source("prova.R")
t <- run.gen(3,2,3,0,0,0)
ecdf(t$alg)
ecdf(t$inst)
ecdf(t$alg)
ecdf(t$inst,col="grey")
ecdf(t$inst,col="grey",add=TRUE)
ecdf(t$alg,add=TRUE)
source("prova.R")
t <- run.gen(3,2,3,0,0,0)
ecdf(t$alg,add=TRUE
)
ecdf(t$alg)
t
source("prova.R")
t <- run.gen(3,2,3,0,0,0)
ecdf(t$alg)
ecdf(t$inst)
ecdf(t$alg,add=TRUE,col="grey"
)
source("prova.R")
t <- run.gen(3,2,3,0,0,0)
ecdf(t$inst)
ecdf(t$alg,add=TRUE,col="grey"
)
t <- run.gen(3,2,5,0,0,0)
quartz()
ecdf(t$inst)
ecdf(t$alg,add=TRUE,col="grey")
q()
n
?TukeyHSD
par(ask=T)
q()
n
X11()
?quartz
par(mforw=c(2,1))
quartz()
par(mforw=c(2,1))
par(mfrow=c(1,2))
quartz()
quartz
quartz(autorefresh=FALSE)
q()
n
getwd()
setwd("Lecture-12")
getwd()
system(ls)
getwd()
system("ls")
quartz()
graphics.off()
quartz()
hist(b <- rnorm(10,0,1),prob=TRUE,col=grey(.55))
Hist(a <- rnorm(10,0,1),prob=TRUE,xlim=c(-3,3),col=grey(.95),add=TRUE);
hist(a <- rnorm(10,0,1),prob=TRUE,xlim=c(-3,3),col=grey(.95),add=TRUE);
quartz()
mean(a)
mean(b)
T <- read.table("example.txt",header=TRUE)
T
boxplot(T)
?t.test
t.test(T$Alg.A,T$Alg.B,paired=TRUE)
T
t.test(T$alg.A,T$alg.B,paired=TRUE)
wilcox.test(T$alg.A,T$alg.B,paired=TRUE)
?wilcox.test
wilcox.test(T$alg.A,T$alg.B,paired=TRUE)
?binmial.test
?binomial.test
?binom.test
which(T$alg.A-T$alg.B>0)
lentgh(which(T$alg.A-T$alg.B>0))
length(which(T$alg.A-T$alg.B>0))
binom.test(17,10)
binom.test(17,20)
res
aov(err1~alg,data=res)
summary((aov(err1~alg,data=res))
)
summary((aov(err1~alg*inst,data=res)))
q()
n
library(race)
example(race.init)
example(race.wrapper)
example(race.info)
race
setwd("Lecture-13/")
read.table("Lec13.dataR")
load("Lec13.dataR")
ONE
ONE
THREE
table(ONE$alg,ONE$inst)
table(THREE$alg,THREE$inst)
boxplot(ONE)
boxplot(ONE$k,ONE$alg)
ONE[1,]
boxplot(ONE$k~ONE$alg)
summary(aov(k~alg+inst,data=ONE))
pairwise.t.test(ONE$k,ONE$alg,paired=TRUE)
?pairwise.t.test
pairwise.t.test(ONE$k,ONE$alg,paired=TRUE,pool.sd=FALSE)
pairwise.t.test(ONE$k,ONE$alg,paired=TRUE,pool.sd=FALSE,p.adjust="bonf")
H=TukeyHSD(aov(k~alg+inst,data=ONE),which="alg")
plot(H)
friedman.test(ONE$k~ONE$alg|ONE$inst)
?friedman.test
friedman.test(k~alg|inst,data=ONE)
pairwise.wilcox.test(ONE$k,ONE$alg,paired=TRUE)
ONE
 boxplot(as.data.frame(t(apply(unstack(ONE,form=k~alg),1,rank))))
 unstack(ONE,form=k~alg)
apply( unstack(ONE,form=k~alg),1,rank)
t(apply( unstack(ONE,form=k~alg),1,rank))
as.data.frame(t(apply( unstack(ONE,form=k~alg),1,rank)))
boxplot(as.data.frame(t(apply( unstack(ONE,form=k~alg),1,rank))))
pairwise.wilcox.test(ONE$k,ONE$alg,paired=TRUE)
install.packages(race)
install.packages("race")
library(race)
?race
example(race.init)
expand.grid(c("A","B"),c("C","D"))
source("race.R")
#
race("race.STC.R", maxExp=,#
        stat.test=c("friedman"),#
           conf.level=0.95, first.test=3, interactive=TRUE,#
              log.file="", no.slaves=0,4)
setwd("/Users/machud/Work06/Research/SetTCol/Race-Heuristics")
source("race.R")
#
race("race.STC.R", maxExp=,#
        stat.test=c("friedman"),#
           conf.level=0.95, first.test=3, interactive=TRUE,#
              log.file="", no.slaves=0,4)
#
race("race.STC.R", maxExp=,#
        stat.test=c("friedman"),#
           conf.level=0.95, first.test=3, interactive=TRUE,#
              log.file="", no.slaves=0,Tclass=4)
#
race("race.STC.R", maxExp=,#
        stat.test=c("friedman"),#
           conf.level=0.95, first.test=3, interactive=TRUE,#
              log.file="", no.slaves=0,Tclass=4)
#
race("race.STC.R", maxExp=,#
        stat.test=c("friedman"),#
           conf.level=0.95, first.test=3, interactive=TRUE,#
              log.file="", no.slaves=0,Tclass=4)
#
race("race.STC.R", maxExp=360,#
        stat.test=c("friedman"),#
           conf.level=0.95, first.test=3, interactive=TRUE,#
              log.file="", no.slaves=0,Tclass=4)
source("race.STC.R")
#
race("race.STC.R", maxExp=360,#
        stat.test=c("friedman"),#
           conf.level=0.95, first.test=3, interactive=TRUE,#
              log.file="", no.slaves=0,Tclass=4)
#
race("race.STC.R", maxExp=360,#
        stat.test=c("friedman"),#
           conf.level=0.95, first.test=3, interactive=TRUE,#
              no.slaves=0,Tclass=4)
race.init(4)
#
race("race.STC.R", maxExp=360,#
        stat.test=c("friedman"),#
           conf.level=0.95, first.test=3, interactive=TRUE,#
              no.slaves=0,Tclass=4)
O=#
race("race.STC.R", maxExp=360,#
        stat.test=c("friedman"),#
           conf.level=0.95, first.test=3, interactive=TRUE,#
              no.slaves=0,Tclass=4)
d1<-race.init(4)
source("race.STC.R")
d1<-race.init(4)
plot.race(O,d1)
