### R code from vignette source 'ALLintro.Rnw' ################################################### ### code chunk number 1: ALLintro.Rnw:51-54 ################################################### library(ALL) data(ALL) show(ALL) ################################################### ### code chunk number 2: ALLintro.Rnw:57-58 ################################################### print(summary(pData(ALL))) ################################################### ### code chunk number 3: ALLintro.Rnw:59-60 ################################################### hist(cvv <- apply(exprs(ALL),1,function(x)sd(x)/mean(x))) ################################################### ### code chunk number 4: ALLintro.Rnw:61-66 ################################################### ok <- cvv > .08 & cvv < .18 fALL <- ALL[ok,] show(fALL) allx2 <- data.frame(t(exprs(fALL)), class=ALL$BT) ################################################### ### code chunk number 5: ALLintro.Rnw:68-72 ################################################### library(rpart) rp1 <- rpart(class~.,data=allx2) plot(rp1) text(rp1)