/
BF03194493.R
50 lines (37 loc) · 1.16 KB
/
BF03194493.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
#
# BF03194493.R, 22 Feb 18
# Data from:
# The Marginal Value of Increased Testing: An Empirical Analysis using Four Code Coverage Measures
# Swapna S. Gokhale and Robert E. Mullen
#
# Example from:
# Empirical Software Engineering using R
# Derek M. Jones
source("ESEUR_config.r")
library("betareg")
pal_col=rainbow(2)
sh=read.csv(paste0(ESEUR_dir, "reliability/BF03194493.csv.xz"), as.is=TRUE)
sh$Block=sh$Block/100
sh$Dec=sh$Dec/100
plot(sh$Block, sh$Dec, col=pal_col[1],
xlab="Block", ylab="Decision\n")
bd_mod=nls(Dec ~ a*Block^b, data=sh,
start=list(a=0.1, b=1))
summary(bd_mod)
x_range=seq(.01, 1, by=0.01)
pred=predict(bd_mod, newdata=data.frame(Block=x_range))
lines(x_range, pred, col=pal_col[2])
lines(c(0.1, 1), c(0.1, 1), col="grey")
# # A good fit, but the predictions look unrealistic
# # beta_mod=betareg(Dec ~ Block+I(Block^0.5), data=sh)
#
# # The following all fit 'equally' well!
# # beta_mod=betareg(Dec ~ I(Block^2.0), data=sh)
# # beta_mod=betareg(Dec ~ I(Block^0.5), data=sh)
# beta_mod=betareg(Dec ~ Block, data=sh)
#
# summary(beta_mod)
#
# pred=predict(beta_mod, newdata=data.frame(Block=x_range))
# lines(x_range, pred, col=pal_col[3])
#