Skip to content
Permalink
master
Switch branches/tags
Go to file
 
 
Cannot retrieve contributors at this time
30 lines (19 sloc) 637 Bytes
#
# Augustine-missiles.R, 30 Sep 19
# Data from:
# Augustine's Laws
# Norman R. Augustine
#
# Example from:
# Evidence-based Software Engineering: based on the publicly available data
# Derek M. Jones
#
# TAG testing_cost testing_missile
source("ESEUR_config.r")
pal_col=rainbow(2)
missile=read.csv(paste0(ESEUR_dir, "reliability/Augustine-missiles.csv.xz"), as.is=TRUE)
plot(missile$unit_cost, missile$dev_flights, log="xy", col=pal_col[2],
xlab="Unit cost ($)", ylab="Development flights\n")
m_mod=glm(log(dev_flights) ~ log(unit_cost), data=missile)
pred=predict(m_mod)
lines(missile$unit_cost, exp(pred), col=pal_col[1])