# NOT RUN {
data(HNSCC)
Y.shortTest <- Y.HNSCC.averageBetas[1:500,]
testArray2 <- RefFreeCellMixArray(Y.shortTest,Klist=1:5,iters=5)
sapply(testArray2,deviance,Y=Y.shortTest)
# }
# NOT RUN {
testBootDevs <- RefFreeCellMixArrayDevianceBoots(testArray2,Y.shortTest,R=10)
testBootDevs
apply(testBootDevs[-1,],2,mean,trim=0.25)
which.min(apply(testBootDevs[-1,],2,mean,trim=0.25))
# }
Run the code above in your browser using DataLab