Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
39 lines (28 sloc) 1.11 KB
#
# id-renaming.R, 8 Jun 17
#
# Data from:
# An exploratory study of identifier renamings
# Laleh M. Eshkevari and Venera Arnaoudova and Massimiliano {Di Penta} and Rocco Oliveto and Yann-Ga{\"e}l Gu{\'e}h{\'e}neuc and Giuliano Antoniol
#
# Example from:
# Empirical Software Engineering using R
# Derek M. Jones
source("ESEUR_config.r")
pal_col=rainbow(2)
id_changes=read.csv(paste0(ESEUR_dir, "ecosystems/eclipse-id-dates.csv.xz"), as.is=TRUE)
version_date=read.csv(paste0(ESEUR_dir, "ecosystems/eclipse-ver-date.csv.xz"), as.is=TRUE)
# Assume end-of-month
id_changes$date=as.Date(paste0(id_changes$date, "-30"), format="%Y-%m-%d")
version_date$date=as.Date(version_date$date, format="%d %b %Y")
plot(id_changes, type="b", col=pal_col[1],
xlab="Date", ylab="Identifiers changed\n")
text(version_date$date, 200, version_date$version, srt=90, col=pal_col[2])
# Are id changes more likely to occur just before a release?
# library("lubridate")
#
# id_changes$month=round_date(id_changes$date, "month")
# version_date$month=round_date(version_date$date, "month")
#
# t=merge(id_changes, version_date, by="month", all=TRUE)
#