###################################################
### chunk number 1: 
###################################################
library(macat)
loaddatapkg("stjudem")


###################################################
### chunk number 2: 
###################################################
summary(stjude)


###################################################
### chunk number 3: 
###################################################
stjude$geneName[1:10]


###################################################
### chunk number 4: 
###################################################
unique(stjude$labels)
table(stjude$labels)


###################################################
### chunk number 5: 
###################################################
sum(stjude$chromosome==1)


###################################################
### chunk number 6:  eval=FALSE
###################################################
## plotSliding(stjude, 6, sample=3, kernel=rbf)


###################################################
### chunk number 7:  eval=FALSE
###################################################
## evalkNN6 = evaluateParameters(stjude, class="T", chromosome=6, kernel=kNN,
##                               paramMultipliers=c(0.01,seq(0.1,2.0,0.1),2.5))