for (section in sections)
{
query <- paste('select count(sloc) as files, sum(sloc) as sloc, sum(loc) as loc, sum(functions) as funcs, sum(mccabe) as mccabe, sum(halstead_length) as hlength, sum(halstead_volume) as hvolume, sum(halstead_level) as hlevel, sum(halstead_md) as hmd from UniqueFiles as F, UniqueProjects as P, AutoFiles as A, CMetrics as C where not is_auto and A.md5=filemd5 and F.portname=P.portname and C.md5=filemd5 and halstead_md>=0 and F.portsection="',section,'" and F.filepath regexp ".c$" group by P.portname;',sep="");
results <- dbGetQuery(con,query);
files <- results$files
print(files)
sloc <- results$sloc
loc <- results$loc + 1
funcs <- results$funcs + 1
cycl <- results$mccabe
hlen <- results$hlength
hvol <- results$hvolume
hlev <- results$hlevel
hmd  <- results$hmd
rfsloc <- c(rfsloc,cor(files,sloc))
rfloc <- c(rfloc,cor(files,loc))
rffuncs <- c(rffuncs,cor(files,funcs))
rfcycl <- c(rfcycl,cor(files,cycl))
rfhlen <- c(rfhlen,cor(files,hlen))
rfhlev <- c(rfhlev,cor(files,hlev))
rfhvol <- c(rfhvol,cor(files,hvol))
rfhmd <- c(rfhmd,cor(files,hmd))
files <- log(files)
loc <- log(loc)
funcs <- log(funcs)
sloc <- log(sloc)
cycl <- log(cycl)
hlen <- log(hlen)
hvol <- log(hvol)
hlev <- log(hlev)
hmd <- log(hmd)
lfsloc <- c(lfsloc,cor(files,sloc))
lfloc <- c(lfloc,cor(files,loc))
lffuncs <- c(lffuncs,cor(files,funcs))
lfcycl <- c(lfcycl,cor(files,cycl))
lfhlen <- c(lfhlen,cor(files,hlen))
lfhlev <- c(lfhlev,cor(files,hlev))
lfhvol <- c(lfhvol,cor(files,hvol))
lfhmd <- c(lfhmd,cor(files,hmd))
}
data.frame(rfsloc,rfloc,rffuncs,rfcycl,rfhlen,rfhlev,rfhvol,rfhmd,lfsloc,lfloc,lffuncs,lfcycl,lfhlen,lfhlev,lfhvol,lfhmd)
}
sectioncorr_modules(sections,con)
sectioncorr_modules <- function(sections,con)
{
rfsloc <- c()
lfsloc <-c()
rfloc <- c()
lfloc <- c()
rffuncs <- c()
lffuncs <- c()
rfcycl <- c()
lfcycl <- c()
rfhlen <- c()
lfhlen <- c()
rfhvol <- c()
lfhvol <- c()
rfhlev <- c()
lfhlev <- c()
rfhmd <- c()
lfhmd <- c()
for (section in sections)
{
query <- paste('select count(sloc) as files, sum(sloc) as sloc, sum(loc) as loc, sum(functions) as funcs, sum(mccabe) as mccabe, sum(halstead_length) as hlength, sum(halstead_volume) as hvolume, sum(halstead_level) as hlevel, sum(halstead_md) as hmd from UniqueFiles as F, UniqueProjects as P, AutoFiles as A, CMetrics as C where not is_auto and A.md5=filemd5 and F.portname=P.portname and C.md5=filemd5 and halstead_md>=0 and F.portsection="',section,'" and F.filepath regexp ".c$" group by P.portname;',sep="");
results <- dbGetQuery(con,query);
files <- results$files
print(query)
sloc <- results$sloc
loc <- results$loc + 1
funcs <- results$funcs + 1
cycl <- results$mccabe
hlen <- results$hlength
hvol <- results$hvolume
hlev <- results$hlevel
hmd  <- results$hmd
rfsloc <- c(rfsloc,cor(files,sloc))
rfloc <- c(rfloc,cor(files,loc))
rffuncs <- c(rffuncs,cor(files,funcs))
rfcycl <- c(rfcycl,cor(files,cycl))
rfhlen <- c(rfhlen,cor(files,hlen))
rfhlev <- c(rfhlev,cor(files,hlev))
rfhvol <- c(rfhvol,cor(files,hvol))
rfhmd <- c(rfhmd,cor(files,hmd))
files <- log(files)
loc <- log(loc)
funcs <- log(funcs)
sloc <- log(sloc)
cycl <- log(cycl)
hlen <- log(hlen)
hvol <- log(hvol)
hlev <- log(hlev)
hmd <- log(hmd)
lfsloc <- c(lfsloc,cor(files,sloc))
lfloc <- c(lfloc,cor(files,loc))
lffuncs <- c(lffuncs,cor(files,funcs))
lfcycl <- c(lfcycl,cor(files,cycl))
lfhlen <- c(lfhlen,cor(files,hlen))
lfhlev <- c(lfhlev,cor(files,hlev))
lfhvol <- c(lfhvol,cor(files,hvol))
lfhmd <- c(lfhmd,cor(files,hmd))
}
data.frame(rfsloc,rfloc,rffuncs,rfcycl,rfhlen,rfhlev,rfhvol,rfhmd,lfsloc,lfloc,lffuncs,lfcycl,lfhlen,lfhlev,lfhvol,lfhmd)
}
sectioncorr_modules(sections,con)
sectioncorr_modules <- function(sections,con)
{
rfsloc <- c()
lfsloc <-c()
rfloc <- c()
lfloc <- c()
rffuncs <- c()
lffuncs <- c()
rfcycl <- c()
lfcycl <- c()
rfhlen <- c()
lfhlen <- c()
rfhvol <- c()
lfhvol <- c()
rfhlev <- c()
lfhlev <- c()
rfhmd <- c()
lfhmd <- c()
for (section in sections)
{
print(rfsloc)
query <- paste('select count(sloc) as files, sum(sloc) as sloc, sum(loc) as loc, sum(functions) as funcs, sum(mccabe) as mccabe, sum(halstead_length) as hlength, sum(halstead_volume) as hvolume, sum(halstead_level) as hlevel, sum(halstead_md) as hmd from UniqueFiles as F, UniqueProjects as P, AutoFiles as A, CMetrics as C where not is_auto and A.md5=filemd5 and F.portname=P.portname and C.md5=filemd5 and halstead_md>=0 and F.portsection="',section,'" and F.filepath regexp ".c$" group by P.portname;',sep="");
results <- dbGetQuery(con,query);
files <- results$files
sloc <- results$sloc
loc <- results$loc + 1
funcs <- results$funcs + 1
cycl <- results$mccabe
hlen <- results$hlength
hvol <- results$hvolume
hlev <- results$hlevel
hmd  <- results$hmd
rfsloc <- c(rfsloc,cor(files,sloc))
rfloc <- c(rfloc,cor(files,loc))
rffuncs <- c(rffuncs,cor(files,funcs))
rfcycl <- c(rfcycl,cor(files,cycl))
rfhlen <- c(rfhlen,cor(files,hlen))
rfhlev <- c(rfhlev,cor(files,hlev))
rfhvol <- c(rfhvol,cor(files,hvol))
rfhmd <- c(rfhmd,cor(files,hmd))
files <- log(files)
loc <- log(loc)
funcs <- log(funcs)
sloc <- log(sloc)
cycl <- log(cycl)
hlen <- log(hlen)
hvol <- log(hvol)
hlev <- log(hlev)
hmd <- log(hmd)
lfsloc <- c(lfsloc,cor(files,sloc))
lfloc <- c(lfloc,cor(files,loc))
lffuncs <- c(lffuncs,cor(files,funcs))
lfcycl <- c(lfcycl,cor(files,cycl))
lfhlen <- c(lfhlen,cor(files,hlen))
lfhlev <- c(lfhlev,cor(files,hlev))
lfhvol <- c(lfhvol,cor(files,hvol))
lfhmd <- c(lfhmd,cor(files,hmd))
}
data.frame(rfsloc,rfloc,rffuncs,rfcycl,rfhlen,rfhlev,rfhvol,rfhmd,lfsloc,lfloc,lffuncs,lfcycl,lfhlen,lfhlev,lfhvol,lfhmd)
}
sectioncorr_modules(sections,con)
length(sections)
sections
sectioncorr_modules(sections,con)sectioncorr_modules <- function(sections,con)
{
rfsloc <- c()
lfsloc <-c()
rfloc <- c()
lfloc <- c()
rffuncs <- c()
lffuncs <- c()
rfcycl <- c()
lfcycl <- c()
rfhlen <- c()
lfhlen <- c()
rfhvol <- c()
lfhvol <- c()
rfhlev <- c()
lfhlev <- c()
rfhmd <- c()
lfhmd <- c()
for (section in sections)
{
query <- paste('select count(sloc) as files, sum(sloc) as sloc, sum(loc) as loc, sum(functions) as funcs, sum(mccabe) as mccabe, sum(halstead_length) as hlength, sum(halstead_volume) as hvolume, sum(halstead_level) as hlevel, sum(halstead_md) as hmd from UniqueFiles as F, UniqueProjects as P, AutoFiles as A, CMetrics as C where not is_auto and A.md5=filemd5 and F.portname=P.portname and C.md5=filemd5 and halstead_md>=0 and F.portsection="',section,'" and F.filepath regexp ".c$" group by P.portname;',sep="");
results <- dbGetQuery(con,query);
files <- results$files
sloc <- results$sloc
loc <- results$loc + 1
funcs <- results$funcs + 1
cycl <- results$mccabe
hlen <- results$hlength
hvol <- results$hvolume
hlev <- results$hlevel
hmd  <- results$hmd
rfsloc <- c(rfsloc,cor(files,sloc))
rfloc <- c(rfloc,cor(files,loc))
rffuncs <- c(rffuncs,cor(files,funcs))
rfcycl <- c(rfcycl,cor(files,cycl))
rfhlen <- c(rfhlen,cor(files,hlen))
rfhlev <- c(rfhlev,cor(files,hlev))
rfhvol <- c(rfhvol,cor(files,hvol))
rfhmd <- c(rfhmd,cor(files,hmd))
files <- log(files)
loc <- log(loc)
funcs <- log(funcs)
sloc <- log(sloc)
cycl <- log(cycl)
hlen <- log(hlen)
hvol <- log(hvol)
hlev <- log(hlev)
hmd <- log(hmd)
lfsloc <- c(lfsloc,cor(files,sloc))
lfloc <- c(lfloc,cor(files,loc))
lffuncs <- c(lffuncs,cor(files,funcs))
lfcycl <- c(lfcycl,cor(files,cycl))
lfhlen <- c(lfhlen,cor(files,hlen))
lfhlev <- c(lfhlev,cor(files,hlev))
lfhvol <- c(lfhvol,cor(files,hvol))
lfhmd <- c(lfhmd,cor(files,hmd))
}
data.frame(rfsloc,rfloc,rffuncs,rfcycl,rfhlen,rfhlev,rfhvol,rfhmd,lfsloc,lfloc,lffuncs,lfcycl,lfhlen,lfhlev,lfhvol,lfhmd)
}
sectioncorr_modules <- function(sections,con)
{
rfsloc <- c()
lfsloc <-c()
rfloc <- c()
lfloc <- c()
rffuncs <- c()
lffuncs <- c()
rfcycl <- c()
lfcycl <- c()
rfhlen <- c()
lfhlen <- c()
rfhvol <- c()
lfhvol <- c()
rfhlev <- c()
lfhlev <- c()
rfhmd <- c()
lfhmd <- c()
for (section in sections)
{
query <- paste('select count(sloc) as files, sum(sloc) as sloc, sum(loc) as loc, sum(functions) as funcs, sum(mccabe) as mccabe, sum(halstead_length) as hlength, sum(halstead_volume) as hvolume, sum(halstead_level) as hlevel, sum(halstead_md) as hmd from UniqueFiles as F, UniqueProjects as P, AutoFiles as A, CMetrics as C where not is_auto and A.md5=filemd5 and F.portname=P.portname and C.md5=filemd5 and halstead_md>=0 and F.portsection="',section,'" and F.filepath regexp ".c$" group by P.portname;',sep="");
results <- dbGetQuery(con,query);
files <- results$files
sloc <- results$sloc
loc <- results$loc + 1
funcs <- results$funcs + 1
cycl <- results$mccabe
hlen <- results$hlength
hvol <- results$hvolume
hlev <- results$hlevel
hmd  <- results$hmd
rfsloc <- c(rfsloc,cor(files,sloc))
rfloc <- c(rfloc,cor(files,loc))
rffuncs <- c(rffuncs,cor(files,funcs))
rfcycl <- c(rfcycl,cor(files,cycl))
rfhlen <- c(rfhlen,cor(files,hlen))
rfhlev <- c(rfhlev,cor(files,hlev))
rfhvol <- c(rfhvol,cor(files,hvol))
rfhmd <- c(rfhmd,cor(files,hmd))
files <- log(files)
loc <- log(loc)
funcs <- log(funcs)
sloc <- log(sloc)
cycl <- log(cycl)
hlen <- log(hlen)
hvol <- log(hvol)
hlev <- log(hlev)
hmd <- log(hmd)
lfsloc <- c(lfsloc,cor(files,sloc))
lfloc <- c(lfloc,cor(files,loc))
lffuncs <- c(lffuncs,cor(files,funcs))
lfcycl <- c(lfcycl,cor(files,cycl))
lfhlen <- c(lfhlen,cor(files,hlen))
lfhlev <- c(lfhlev,cor(files,hlev))
lfhvol <- c(lfhvol,cor(files,hvol))
lfhmd <- c(lfhmd,cor(files,hmd))
}
data.frame(rfsloc,rfloc,rffuncs,rfcycl,rfhlen,rfhlev,rfhvol,rfhmd,lfsloc,lfloc,lffuncs,lfcycl,lfhlen,lfhlev,lfhvol,lfhmd)
}
sectionresults_modules <- sectioncorr_modules(sections$portsection,con)
summary(sectionresults_modules)
summary(ommit.na(sectionresults_modules))
ommit.na(sectionresults_modules)
na.ommit(sectionresults_modules)
summary(na.omit(sectionresults_modules))
sectionresults_modules <- na.omit(secctionresults_modules)
sectionresults_modules <- na.omit(sectionresults_modules)
summary(sectionresults_modules)
plot(density(sectionresults_modules))
plot(density(sectionresults_modules$lfsloc))
boxplot((sectionresults_modules$lfsloc))
corr_by_field(sectionresults_modules)
corr_by_field(sectionresults_modules,c(.88,.89,.90,.87,.87,.85,.94,.77,.88,.89,.90,.87,.87,.85,.94,.77))
library(xtable)
xtable(corr_by_field(sectionresults_modules,c(.88,.89,.90,.87,.87,.85,.94,.77,.88,.89,.90,.87,.87,.85,.94,.77)))
xtable(corr_by_field(abs(sectionresults_modules),c(.88,.89,.90,.87,.87,.85,.94,.77,.88,.89,.90,.87,.87,.85,.94,.77)))
savehistory(); save.image();
ls()
x
loc
plot(density(log(loc))
)
ls()
summary(sloc)
sloc
min(sloc)
max(sloc)
sloc <- exp(sloc)
summary(sloc)
plot(1-rank(sloc)/length(sloc)~sloc,log="xy")
plot(1-rank(sloc)/length(sloc)~sloc,log="xy",type="l")
plot(1-rank(sloc)/length(sloc)~sloc,log="xy")
ccdf(sloc)
ecdf(sloc)
plot(ecdf(sloc))
help(ecdf)
x <- sloc
rank(x)
plot(1-sort(rank(sloc))/length(sloc)~sloc,log="xy")
plot(1-sort(rank(sloc))/length(sloc)~sort(sloc),log="xy")
plot(1-sort(rank(sloc))/length(sloc)~sort(sloc),log="xy",type="l")
plot(1-sort(rank(sloc))/length(sloc)~sort(sloc),log="xy",type="b")
help(plot)
plot(1-sort(rank(sloc))/length(sloc)~sort(sloc),log="xy",type="o")
plot(sort(sloc),1-sort(rank(sloc))/length(sloc),log="xy",type="o")
plot(sort(sloc),1-sort(rank(sloc))/length(sloc),log="xy",type="o"); grid()
savehistory(); save.image();
ls()
summary(results)
cor(results)
cor(log(results))
ls()
summary(dataset)
cor(dataset)
summary(fcmetrics)
cor(fcmetrics)
length(fcmetrics$sloc)
ls()
cor(ocmetrics)
ls()
desc(corr_by_field)
summary(corr_by_field)
summary(finalsample)
length(finalsample$sloc)
cor(finalsample)
cor(log(finalsample))
cor(log(finalsample+1))
cor(log(finalsample+100000))
quantile(finalmetrics$size)
quantile(finalsample$size)
quantile(finalsample$sloc)
quantile(finalsample$sloc,seq(0,1,.1))
min(finalsample$sloc)
attach(finalsample)
length(sloc)
rm(sloc)
rm(loc)
detach(finalsample)
attach(finalsample)
length(sloc)
a<-10;b<-10;sloc<-finalsample[sloc>=a,sloc<=b,]$sloc; length(sloc)
a<-10;b<-10;sloc<-finalsampl[sloc>=a && sloc<=b,]$sloc; length(sloc)
a<-10;b<-10;sloc<-finalsample[sloc>=a && sloc<=b,]$sloc; length(sloc)
a<-10;b<-10;sloc<-finalsample[sloc>=a & sloc<b,]$sloc; length(sloc)
a<-1;b<-10;sloc<-finalsample[sloc>=a & sloc<b,]$sloc; length(sloc)
a<-1;b<-10;sloc<-finalsample[sloc>=a && sloc<b,]$sloc; length(sloc)
a<-1;b<-10;sloc<-finalsample[sloc>=a & sloc<b,]$sloc; length(sloc)
cor(finalsample9
cor(finalsample)
a<-1;b<-10;s<-finalsample[sloc>=a & sloc<b,]$sloc; length(s)
a<-1;b<-10;s<-finalsample[sloc>=a && sloc<b,]$sloc; length(s)
1 & 1
1 & 0
a<-1;b<-10;s<-finalsample[sloc>=a & sloc<b,]$sloc; length(s)
a<-1;b<-10;finalsample[,sloc>=a & sloc<b]
a<-1;b<-10;s<-finalsample[,sloc>=a & sloc<b]$sloc
a<-1;b<-10;s<-finalsample$slocsloc>=a & sloc<b]
a<-1;b<-10;s<-finalsample$sloc[sloc>=a & sloc<b]
s
a<-1;b<-10;s<-finalsample$sloc[sloc>=a & sloc<b]; length(s)
s<-finalsample$sloc[s
s
a<-1;b<-10;s<-finalsample$sloc[sloc>=a & sloc<b]; length(s)
a<-1;b<-10;s<-finalsample$sloc[sloc<b]; length(s)
a<-1;b<-10;s<-finalsample$sloc[1:44761]
s
help(reshape)
a<-1;b<-10;cor(finalsample[sloc>=a & sloc<b,])
a<-1;b<-10;summary(finalsample[sloc>=a & sloc<b,])
a<-1;b<-10;summary(finalsample[sloc>=a && sloc<b,])
a<-1;b<-10;summary(finalsample[sloc>=1 & sloc<10,])
a<-1;b<-10;summary(finalsample[1:8])
a<-1;b<-10;summary(finalsample[1,])
a<-1;b<-10;summary(finalsample[sloc>1e4,])
save.image(); savehistory()
attach(finalsample)
a<-370; b<-713; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b]));
length(sloc[sloc>a & sloc<=b])
length(mccabe[sloc>a & sloc<=b])
a<-370; b<-713; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b]));
detach(finalsample)
rm(sloc)
attach(finalsample)
a<-370; b<-713; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b]));
detach(finalsample)
attach(finalsample_nh)
a<-370; b<-713; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b]));
deciles(sloc)
quantile(sloc)
a<-370; b<-713; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-1; b<-100; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-100; b<-1000; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-1000; b<-10000; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-10000; b<-100000; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
length(sloc[sloc>a & sloc<=b])
cor.test(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b]))
a<-1;b<-10cor.test(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b]))
a<-1;b<-10;cor.test(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b]))
cor.test(sloc,mccabe)
cor.test(log(sloc),log(mccabe))
a<-100000;b<-1000000;cor.test(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b]))
a<-100000;b<-10000000;cor.test(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b]))
length(sloc[sloc>100000])
quantile(sloc)
a<-1; b<-52; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-52; b<-161; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-161; b<-424; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-424; b<-1000000; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
detach(finalsample_nh)
attach(finalsample_h)
quantile(sloc)
a<-1; b<-12; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-12; b<-29; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-29; b<-71; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-71; b<-1000000; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
cor(log(sloc),log(mccabe))
detach(finalsample_nh)
detach(finalsample_h)
attach(finalsample)
quantile(finalsample)
quantile(sloc)
a<-1; b<-26; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-26; b<-86; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-86; b<-284; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-284; b<-162648; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-284; b<-1000000; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
plot(sloc,mccabe,log="xy")
plot(sloc,mccabe)
plot(sloc,mccabe,xlim=c(0,1e4))
exp(2)
exp(7)
a<-8; b<-1100; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
detach(finalsample)
attach(finalsample_nh)
a<-8; b<-1100; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
qqplot(log(sloc));qqline(log(sloc))
help(qqplot)
help(qqline)
qqnort(log(sloc));qqline(log(sloc))
qqnorm(log(sloc));qqline(log(sloc))
qqnorm(log(sloc));qqline(log(sloc));grid()
detach(finalsample_nh)
attach(finalsample)
qqnorm(log(sloc));qqline(log(sloc));grid()
detach(finalsample)
attach(finalsample_h)
qqnorm(log(sloc));qqline(log(sloc));grid()
quantile(sloc[sloc>=exp(2) & sloc<=exp(6))
quantile(sloc[sloc>=exp(2) & sloc<=exp(6)])
a<-8; b<-18; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-18; b<-34; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-34; b<-74; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-74; b<-403; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
detach(finalsample_h(
detach(finalsample_h)
attach(finalsample_nh)
quantile(sloc[sloc>=exp(2) & sloc<=exp(7)])
a<-8; b<-52; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-52; b<-145; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-145; b<-340; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-340; b<-1096; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-1; b<-1096; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-8; b<-1096; cor(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
plot(sloc,mccabe,xlim=c(8,1096),log="xy")
plot(lowess(sloc,mccabe),log="xy")
plot(lowess(sloc,mccabe),type="l",log="xy")
plot(lowess(sloc,mccabe),type="l")
exp(2)
exp(4)
var(sloc)
var(log(sloc))
var(log(sloc[sloc>8 & sloc<=1100))
var(log(sloc[sloc>8 & sloc<=1100]))
var(log(sloc[sloc>8 & sloc<=18]))
var(log(sloc[sloc>8 & sloc<=52]))
a<-8; b<-1096; cor.test(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-8; b<-52; cor.test(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-8; b<-52; cor.test(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b]),method="spearman"); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
a<-8; b<-1096; cor.test(log(sloc[sloc>a & sloc<=b]),log(mccabe[sloc>a & sloc<=b]),method="spearman"); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_length[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_volume[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_level[sloc>a & sloc<=b])); cor(log(sloc[sloc>a & sloc<=b]),log(halstead_md[sloc>a & sloc<=b]))
quantile(sloc)
min(sloc)
max(sloc)
median(sloc)
detach(finalsample)
detach(finalsample_nh)
save.image(); savehistory()