Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
50 lines (38 sloc) 1.15 KB
#
# herraiz-projects.R, 28 Jun 18
#
# Data from:
# A statistical examination of the properties and evolution of libre software
# Israel Herraiz Tabernero
#
# Example from:
# Evidence-based Software Engineering using R
# Derek M. Jones
#
# TAG files SLOC projects
source("ESEUR_config.r")
proj_inf=read.csv(paste0(ESEUR_dir, "sourcecode/herraiz-projects.tsv.xz"),
as.is=TRUE, sep="\t")
proj_inf=subset(proj_inf, Files > 0)
# plot(proj_inf$Files, proj_inf$SLOC, log="xy", col=point_col,
# xlab="Files", ylab="SLOC")
# sf_mod=glm(log(SLOC) ~ log(Files), data=proj_inf)
# summary(sf_mod)
# Bug in support for log argument :-(
smoothScatter(log(proj_inf$Files), log(proj_inf$SLOC), axes=FALSE,
xlab="Files", ylab="SLOC")
xbounds=c(1, 10, 100, 1000, 10000)
ybounds=c(1e1, 1e3, 1e5, 1e7)
axis(1, at=log(xbounds), lab=xbounds)
axis(2, at=log(ybounds), lab=ybounds)
# library("hexbin")
#
# loc_bin=hexbin(log(proj_inf$Files), log(proj_inf$SLOC), xbins=50)
# plot(loc_bin,
# xlab="log(Files)", ylab="log(SLOC)")
#
#
#
# xyplot(Files ~ SLOC, data=proj_inf, panel=panel.hexbinplot,
# col=point_col, pch=point_pch, type="b",
# scales=list(x=list(log=10), y=list(log=10)))
You can’t perform that action at this time.