# NOT RUN {
data(HNSCC)
Y.shortTest <- Y.HNSCC.averageBetas[1:500,]
mu.start.svd <- RefFreeCellMixInitializeBySVD(Y.shortTest)
testArray2 <- RefFreeCellMixArrayWithCustomStart(Y.shortTest, mu.start=mu.start.svd,
Klist=1:3,iters=5)
sapply(testArray2,deviance,Y=Y.shortTest)
# }
# NOT RUN {
testBootDevs <- RefFreeCellMixArrayBySVDDevianceBoots(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