Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
38 lines (28 sloc) 906 Bytes
#
# german-libre-office.R, 6 Nov 17
#
# Data from:
#
# https://people.gnome.org/~michael/data/2015-08-01-5.5-data.ods
# Michael Meeks
#
# Example from:
# Empirical Software Engineering using R
# Derek M. Jones
source("ESEUR_config.r")
pal_col=rainbow(1)
lb=read.csv(paste0(ESEUR_dir, "ecosystems/german-libre-office.csv.xz"), as.is=TRUE)
lb$date=as.Date(lb$date, format="%d %b %Y")
plot(lb$date, lb$lines, log="y", col=point_col,
ylim=c(3000, max(lb$lines)),
xlab="Release date", ylab="German comments\n")
axis(3, at=lb$date, labels=lb$version)
mtext("Version", padj=-1.8, cex=0.7)
gc_mod=glm(lines ~ as.numeric(date), data=lb, family=poisson)
pred=predict(gc_mod, type="response")
lines(lb$date, pred, col=pal_col[1])
# plot(lb$lines, log="y", col=point_col,
# xaxt="n",
# ylim=c(3000, max(lb$lines)),
# xlab="Version", ylab="German comments\n")
# axis(1, at=1:nrow(lb), labels=lb$version)