Permalink
Cannot retrieve contributors at this time
| # | |
| # id-renaming.R, 28 Aug 20 | |
| # | |
| # 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: | |
| # Evidence-based Software Engineering: based on the publicly available data | |
| # Derek M. Jones | |
| # | |
| # TAG identifier_renaming | |
| 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], | |
| xaxs="i", yaxs="i", | |
| ylim=c(0, 310), | |
| 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) | |
| # |