Skip to content
Permalink
master
Switch branches/tags
Go to file
 
 
Cannot retrieve contributors at this time
51 lines (37 sloc) 1.3 KB
#
# udd-smooth-ai.R, 22 Apr 20
#
# Data from:
# Impact of Installation Counts on Perceived Quality: A Case Study of Debian
# Israel Herraiz and Emad Shihab and Thanh H. D. Nguyen and Ahmed E. Hassan
#
# Evidence-based Software Engineering: based on the publicly available data
# Derek M. Jones
#
# Example from:
# Evidence-based Software Engineering: based on the publicly available data
# Derek M. Jones
#
# TAG Debian_package package_install package_age
source("ESEUR_config.r")
library("MASS")
plot_layout(3, 1, max_height=ESEUR_max_height-2)
par(mar=MAR_default-c(0.6, 0.0, 1.0, 0.0))
q1=read.csv(paste0(ESEUR_dir, "regression/Q1_udd.csv.xz"), as.is=TRUE)
q10=read.csv(paste0(ESEUR_dir, "regression/Q10_udd.csv.xz"), as.is=TRUE)
udd=merge(q1, q10)
plot(udd$age, udd$insts, log="y", col=point_col,
xaxs="i",
cex.axis=1.5, cex.lab=1.5,
xlab="Age (days)", ylab="Installations\n")
smoothScatter(udd$age, log(udd$insts),
xaxs="i",
cex.axis=1.5, cex.lab=1.5,
xlab="Age (days)", ylab="log(Installations)\n")
plot(udd$age, udd$insts, log="y", col=point_col,
xaxs="i",
cex.axis=1.5, cex.lab=1.5,
xlab="Age (days)", ylab="Installations\n")
# There is no log option, so we have to compress/expand ourselves
d2_den=kde2d(udd$age, log(udd$insts+1e-5), n=50)
contour(d2_den$x, exp(d2_den$y), d2_den$z, nlevels=5, add=TRUE)