read.csv("./classes/SE-Empirical/data-sets/chromium-data/chrome-log-bugs-multiple.csv")
read.csv("./classes/SE-Empirical/data-sets/chromium-data/bugtable.csv")
read.csv("./classes/SE-Empirical/data-sets/g2t/raw_data/M1-M2/AllRawData.csv")
read.csv("./classes/SE-Empirical/data-sets/g2t/raw_data/M1-M2/RawDataFemale.csv")
data.path <- "./data-sets/g2t/Raw_Data/Effort/"
data.path <- "./data-sets/g2t/Raw_Data/Effort/"
in.file <-"AllEffort.csv"
e <- read.csv(paste(data.path,in.file,sep="/"), header = T, sep = ",")
colnames(d)
data.path <- "./data-sets/g2t/raw_data/Effort/"
in.file <-"AllEffort.csv"
e <- read.csv(paste(data.path,in.file,sep="/"), header = T, sep = ",")
colnames(d)
d$TimeAll
d1 <- subset(d,  Model=='G')
d2 <- subset(d,  Model=='T')
mt <- sqrt(var(d$TimeAll))
summary(d1$TimeAll)
summary(d2$TimeAll)
png(filename = "MyFile.png",
width = 480, height = 480, units = "px",
pointsize = 12, bg = "white",
type = c("Xlib"))
boxplot(d2$TimeWholeModel, d1$TimeWholeModel)
dev.off()
e1 <- subset(e,  Model=='G')
e2 <- subset(e,  Model=='T')
e1c <- subset(e,  Model=='G' & AFD.IrM < 400 & AFD.M <400  & AFD.ReM < 400)
e2c <- subset(e,  Model=='T' & AFD.IrM < 400& AFD.M <400 & AFD.ReM < 400)
png(filename = "MyFile.png",
width = 480, height = 480, units = "px",
pointsize = 12, bg = "white",
type = c("Xlib"))
boxplot(e2$AFD.M, e1$AFD.M,e2$AFD.Q, e1$AFD.Q, e2$AFD.ReM, e1$AFD.ReM,e2$AFD.IrM, e1$AFD.IrM)
dev.off()
boxplot(e2c$AFD.M, e1c$AFD.M,e2c$AFD.Q, e1c$AFD.Q, e2c$AFD.ReM, e1c$AFD.ReM,e2c$AFD.IrM, e1c$AFD.IrM)
library(vioplot)
vioplot(e2c$AFD.M, e1c$AFD.M,e2c$AFD.Q, e1c$AFD.Q, e2c$AFD.ReM, e1c$AFD.ReM,e2c$AFD.IrM, e1c$AFD.IrM, na.rm=T)
# remove the NaN
e01c <- e1[is.finite(e1$AFD.M),]
e02c <- e2[is.finite(e2$AFD.M),]
data.path <- "./data-sets/g2t/raw_data/M1-M2/"
in.file <-"AllRawData.csv"
d <- read.csv(paste(data.path,in.file,sep="/"), header = T, sep = ",")
library(tm)
csv <- read.csv("result_0_EvalTop5packages.csv", sep = ";", header = T)
setwd("~/repository/java-xal/evaluation-vuze/target")
csv <- read.csv("result_0_EvalTop5packages.csv", sep = ";", header = T)
library(plyr)
csv <- read.csv("result_0_EvalTop5packages.csv", sep = ";", header = T)
csv <- read.csv("result_0_EvalTopFile.csv", sep = ";", header = T)
x <- max(csv$number.sync)
y <- max(csv$time.constraint)
r <- nrow(csv)
View(csv)
View(csv)
csv <- read.csv("result_0_EvalTopFile.csv", sep = ";", header = T)
x <- max(csv$number.sync)
y <- max(csv$time.constraint)
r <- nrow(csv)
library(plyr)
csv <- read.csv("result_0_EvalTopFile.csv", sep = ";", header = T)
x <- max(csv$number.sync)
y <- max(csv$time.constraint)
r <- nrow(csv)
View(csv)
csv_only_meaningfuldata <- csv[csv$sum > 0]
View(csv_only_meaningfuldata)
View(csv_only_meaningfuldata)
csv_only_meaningfuldata <- csv[,csv$sum > 0]
View(csv_only_meaningfuldata)
csv_only_meaningfuldata <- csv[csv$sum > 0,]
View(csv_only_meaningfuldata)
csv_only_meaningfuldata <- csv[csv$total > 0,]
View(csv_only_meaningfuldata)
n_elements_with_time_and_sync <- nrow( csv[ csv$time.constraint>0 & csv$number.sync > 0 ,] )
list_classes_sync <- count(csv$class.name.out)
View(list_classes_sync)
list_classes_sync <- count(csv$class.name.out & csv$class.name.in)
list_classes_sync <- count(csv$class.name.out, csv$class.name.in)
View(list_classes_sync)
View(list_classes_sync)
View(list_classes_sync)
View(csv_only_meaningfuldata)
list_classes_sync <- subset( csv_only_meaningfuldata, select = -c(method.name.out, method.name.in ) )
View(list_classes_sync)
csv_only_sync < csv_only_meaningfuldata[csv$number.sync > 0]
csv_only_sync < csv_only_meaningfuldata[csv_only_meaningfuldata$number.sync > 0]
csv_only_meaningfuldata <- csv[csv$total > 0,]
csv_only_sync < csv_only_meaningfuldata[csv_only_meaningfuldata$number.sync > 0]
csv_only_sync <- csv_only_meaningfuldata[csv_only_meaningfuldata$number.sync > 0]
csv_only_sync <- csv_only_meaningfuldata[csv_only_meaningfuldata$number.sync > 0,]
View(csv_only_sync)
list_classes_sync <- subset( csv_only_sync, select = -c(method.name.out, method.name.in ) )
list_classes_sync <- subset( csv_only_sync, select = -c(method.name.out, method.name.in, total ) )
View(list_classes_sync)
list_classes_sync <- subset( csv_only_sync, select = -c(method.name.out, method.name.in, total, time.constraint ) )
list_classes_sync <- subset( csv_only_sync, select = -c(method.name.out, method.name.in, total, time.constraint, number.sync ) )
View(list_classes_sync)
View(list_classes_sync)
list_classes_sync <- subset( csv_only_sync, select = -c(method.name.out, method.name.in, total, time.constraint, number.sync, X ) )
tmp <- within(list_classes_sync, class_out <- paste(package.out, class.name.out, sep='.'))
View(tmp)
tmp <- within(tmp, class_in <- paste(package.in, class.name.in, sep='.'))
list_classes_sync <- subset( tmp, select = -c( package.out, class.name.out, method.name.out, package.in, class.name.in, method.name.in, total, time.constraint, number.sync, X ) )
library(plyr)
csv <- read.csv("result_0_EvalTopFile.csv", sep = ";", header = T)
n_lines <- nrow(csv)
csv_only_meaningfuldata <- csv[csv$total > 0,]
csv_only_sync <- csv_only_meaningfuldata[csv_only_meaningfuldata$number.sync > 0,]
n_elements_with_time_and_sync <- nrow( csv[ csv$time.constraint>0 & csv$number.sync > 0 ,] )
tmp <- within(list_classes_sync, class_out <- paste(package.out, class.name.out, sep='.'))
tmp <- within(csv_only_sync, class_out <- paste(package.out, class.name.out, sep='.'))
tmp <- within(tmp, class_in <- paste(package.in, class.name.in, sep='.'))
list_classes_sync <- subset( tmp, select = -c( package.out, class.name.out, method.name.out, package.in, class.name.in, method.name.in, total, time.constraint, number.sync, X ) )
View(list_classes_sync)
tmp <- count(list_classes_sync)
View(tmp)
count_list_classes_sync <- count(list_classes_sync)
View(count_list_classes_sync)
csv <- read.csv("result_0_EvalTopFile.csv", sep = ";", header = T)
library(plyr)
csv <- read.csv("result_0_EvalTopFile.csv", sep = ";", header = T)
n_lines <- nrow(csv)
csv_only_meaningfuldata <- csv[csv$total > 0,]
csv_only_sync <- csv_only_meaningfuldata[csv_only_meaningfuldata$number.sync > 0,]
csv_only_time <- csv_only_meaningfuldata[csv_only_meaningfuldata$time.constraint > 0,]
n_elements_with_time_and_sync <- nrow( csv[ csv$time.constraint>0 & csv$number.sync > 0 ,] )
tmp <- within(csv_only_sync, class_out <- paste(package.out, class.name.out, sep='.'))
tmp <- within(tmp, class_in <- paste(package.in, class.name.in, sep='.'))
list_classes_sync <- subset( tmp, select = -c( package.out, class.name.out, method.name.out, package.in, class.name.in, method.name.in, total, time.constraint, number.sync, X ) )
count_list_classes_sync <- count(list_classes_sync)
tmp <- within(csv_only_time, class_out <- paste(package.out, class.name.out, sep='.'))
tmp <- within(tmp, class_in <- paste(package.in, class.name.in, sep='.'))
list_classes_time <- subset( tmp, select = -c( package.out, class.name.out, method.name.out, package.in, class.name.in, method.name.in, total, time.constraint, number.sync, X ) )
count_list_classes_time <- count(list_classes_time)
View(count_list_classes_time)
setwd("~/repository/java-xal/evaluation-vuze/PCFG")
csv <- read.csv("resultIndexSyncnumber.csv", sep = ";", header = T)
library(plyr)
csv <- read.csv("resultIndexSyncnumber.csv", sep = ";", header = T)
csv_sum_greater_zero <- csv[csv$sum>0,]
csv_importing_greater_zero_and_sum_zero <- csv[csv$sum==0 & csv$num.imported > 0,]
aggregate_sum <- ddply(csv_sum_greater_zero, .(package), summarize, Sum=sum(sum))
aggregate_import <- ddply(csv_sum_greater_zero, .(package), summarize, imported=sum(num.imported))
t <- cbind(aggregate_sum[ order( aggregate_sum$package ),] , aggregate_import[order(aggregate_import$package), ])
t <- t[,c(1,2,4)]
top5sum <- t[order( t$Sum , decreasing = T ),][1:5,]
top5import <- t[order( t$imported , decreasing = T ),][1:5,]
View(top5import)
View(top5sum)
View(top5sum)
View(top5sum)
View(aggregate_import)
View(aggregate_sum)
View(csv_sum_greater_zero)
setwd("~/repository/java-xal/evaluation-vuze/target")
library(plyr)
csv <- read.csv("result_0_EvalTopFile.csv", sep = ";", header = T)
n_lines <- nrow(csv)
csv_only_meaningfuldata <- csv[csv$total > 0,]
csv_only_sync <- csv_only_meaningfuldata[csv_only_meaningfuldata$number.sync > 0,]
csv_only_time <- csv_only_meaningfuldata[csv_only_meaningfuldata$time.constraint > 0,]
View(csv_only_sync)
setwd("~/repository/java-xal/evaluation-vuze/PCFG")
library(plyr)
csv <- read.csv("resultIndexSyncnumber.csv", sep = ";", header = T)
csv_sum_greater_zero <- csv[csv$sum>0,]
csv_importing_greater_zero_and_sum_zero <- csv[csv$sum==0 & csv$num.imported > 0,]
View(csv_sum_greater_zero)
tmp <- within(csv_sum_greater_zero, class_out <- paste(package, classname, sep='.'))
View(tmp)
tmp <- within(csv_sum_greater_zero, class <- paste(package, classname, sep='.'))
tmp <- subset( tmp, select = -c(package, classname ) )
tmp <- subset( tmp, select = -c(package, classname, sync.method, time.constraint ) )
tmp <- within(csv_sum_greater_zero, class <- paste(package, classname, sep='.'))
tmp <- subset( tmp, select = -c(package, classname, sync.method, time.constraint ) )
tmp <- within(csv_sum_greater_zero, class <- paste(package, classname, sep='.'))
tmp <- subset( tmp, select = -c(package, classname, sync.method, time.constraint, sum, num.imported ) )
boxplot($tmp)
boxplot(tmp)
plot(tmp)
plot(tmp$sync.block)
boxplot(tmp$sync.block)
boxplot(tmp$sync.block)
text(x=fivenum(X), labels =fivenum(X), y=1.25)
text(x=fivenum(tmp$sync.block), labels =fivenum(X), y=1.25)
text(x=fivenum(tmp$sync.block), labels =fivenum(tmp$sync.block), y=1.25)
boxplot(tmp$sync.block, horizontal = TRUE, axes = FALSE, staplewex = 1)
text(x=fivenum(tmp$sync.block), labels =fivenum(tmp$sync.block), y=1.25)
boxplot(tmp$sync.block, horizontal = TRUE, axes = T, staplewex = 1)
text(x=fivenum(tmp$sync.block), labels =fivenum(tmp$sync.block), y=1.25)
csv_sync_greater_zer <- csv_sum_greater_zero[csv_sum_greater_zero$sync.block>0,]
tmp <- within(csv_sync_greater_zer, class <- paste(package, classname, sep='.'))
tmp <- subset( tmp, select = -c(package, classname, sync.method, time.constraint, sum, num.imported ) )
boxplot(tmp$sync.block, horizontal = TRUE, axes = T, staplewex = 1)
text(x=fivenum(tmp$sync.block), labels =fivenum(tmp$sync.block), y=1.25)
tmp <- within(csv_sum_greater_zero, class <- paste(package, classname, sep='.'))
tmp <- subset( tmp, select = -c(package, classname, sync.method, time.constraint, sum, num.imported ) )
boxplot(tmp$sync.block, horizontal = TRUE, axes = T, staplewex = 1)
text(x=fivenum(tmp$sync.block), labels =fivenum(tmp$sync.block), y=1.25)
