Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
39 lines (28 sloc) 952 Bytes
#
# 2011-TR-bpm.R, 3 Jul 17
#
# Data from:
# An Empirical Study on Consistency Management of Business and {IT} Process Models
# Mois{\'e}s Castelo Branco and Yingfei Xiong and Krzysztof Czarnecki and Jochen K{\"u}ster and Hagen V{\"o}lzer
#
# Example from:
# Empirical Software Engineering using R
# Derek M. Jones
source("ESEUR_config.r")
pal_col=rainbow(4)
P1=read.csv(paste0(ESEUR_dir, "ecosystems/P1_Change_Requests.tsv.xz"), sep="\t", as.is=TRUE)
P1$MONTH=as.Date(paste0("01-", P1$MONTH), format="%d-%b/%Y")
ybounds=c(0, max(P1$NONE))
plot_change=function(kind, col_num)
{
lines(P1$MONTH, kind, type="l", col=pal_col[col_num])
}
plot(P1$MONTH, P1$NONE, type="n",
ylim=ybounds,
xlab="Date", ylab="Number of changes\n")
plot_change(P1$NONE, 1)
plot_change(P1$BPEL, 2)
plot_change(P1$BOTH, 3)
plot_change(P1$BPMN, 4)
legend(x="topright", legend=c("Neither", "IT only", "Business/IT", "Business only"),
bty="n", fill=pal_col, cex=1.2)