Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
35 lines (23 sloc) 1021 Bytes
#
# SEC-TN12.R, 9 Oct 17
# Data from:
# Software Development Data White paper 2012-2013
# Kimio Akita and Shogo Itagaki and Yasushi Masawa and Makoto Nonaka and Takanori Hatani and Katsumi Hattori and Shuzo Morisaki and Yukihiro Yanagida and Tsutomu Takaya and Tsuneo Furuyama and Ogura Takashi
#
# Example from:
# Empirical Software Engineering using R
# Derek M. Jones
source("ESEUR_config.r")
plot_layout(3, 1)
# person-hrs1.csv person-hrs2.csv
# out-cost.csv out-eff.csv
# sloc1.csv sloc2.csv
actual_mon=read.csv(paste0(ESEUR_dir, "projects/SEC-TN12/actual-mon.csv.xz"), as.is=TRUE)
sloc_2=read.csv(paste0(ESEUR_dir, "projects/SEC-TN12/sloc2.csv.xz"), as.is=TRUE)
out_eff=read.csv(paste0(ESEUR_dir, "projects/SEC-TN12/out-eff.csv.xz"), as.is=TRUE)
plot(actual_mon, type="b", col=point_col,
xlab="Duration (months)", ylab="Projects\n")
plot(sloc_2, type="b", col=point_col,
xlab="SLOC", ylab="Projects\n")
plot(out_eff, type="b", col=point_col,
xlab="Outsourced effort (percentage)", ylab="Projects\n")