Permalink
Cannot retrieve contributors at this time
| # | |
| # NASA_gruhl.R, 4 Mar 20 | |
| # | |
| # Data from: | |
| # Lessons Learned cost/schedule assessment guide | |
| # Werner Gruhl | |
| # | |
| # Example from: | |
| # Evidence-based Software Engineering: based on the publicly available data | |
| # Derek M. Jones | |
| # | |
| # TAG estimate_NASA project_investment | |
| source("ESEUR_config.r") | |
| pal_col=rainbow(3) | |
| gruhl=read.csv(paste0(ESEUR_dir, "regression/NASA_gruhl.csv.xz"), as.is=TRUE) | |
| plot(gruhl$definition.ratio, gruhl$target.overrun, col=pal_col[2], | |
| xaxs="i", yaxs="i", | |
| xlim=c(0, max(gruhl$definition.ratio)), ylim=c(0, max(gruhl$target.overrun)), | |
| xlab="Project definition investment", ylab="Cost overrun\n") | |
| lines(loess.smooth(gruhl$definition.ratio, gruhl$target.overrun, span=0.5), col=pal_col[3]) | |
| # Values done by eye | |
| arrows(3.3, 130, 2.6, 150, col=pal_col[1]) | |