Skip to content
Permalink
master
Switch branches/tags
Go to file
 
 
Cannot retrieve contributors at this time
#
# lin-log-plot.R, 24 Mar 20
#
# Data from:
# An Experiment in Software Reliability
# Janet R. Dunham and John L. Pierce
#
# Example from:
# Evidence-based Software Engineering: based on the publicly available data
# Derek M. Jones
#
# TAG experiment_reliability fault_input-value
source("ESEUR_config.r")
library("reshape2")
plot_layout(2, 1, max_height=12.5)
par(mar=MAR_default-c(0.7, 0.0, 0.7, 0.0))
pal_col=rainbow(4)
tests=read.csv(paste0(ESEUR_dir, "reliability/19860020075-500.csv.xz"), as.is=TRUE)
tests$Code=NULL
tests$Rep=NULL
all_fails=reshape(tests, varying=colnames(tests), timevar="failure", dir="long", sep="")
plot(1, type="n", cex=1.2, cex.lab=1.3,
xlim=range(all_fails$F, na.rm=TRUE), ylim=range(all_fails$failure, na.rm=TRUE),
xlab="Input cases", ylab="Failure")
dummy=sapply(1:4, function(X)
{
t=subset(all_fails, id == X)
lines(t$F, t$failure, col=pal_col[t$id])
})
plot(1, type="n", log="x", cex=1.2, cex.lab=1.3,
xlim=range(all_fails$F, na.rm=TRUE), ylim=range(all_fails$failure, na.rm=TRUE),
xlab="Input cases", ylab="Failure")
dummy=sapply(1:4, function(X)
{
t=subset(all_fails, id == X)
lines(t$F, t$failure, col=pal_col[t$id])
})