# NOT RUN {
#bb is a BigBang object
pcaModels(bb, bb$bestChromosomes[1])
fsm <- forwardSelectionModels(bb)
fsm
names(fsm)
heatmapModels(fsm, subset=1)
fsm <- forwardSelectionModels(bb, minFitness=0.9,
fitnessFunc=bb$galgo$fitnessFunc)
heatmapModels(fsm, subset=1)
pcaModels(fsm, subset=1)
fitnessSplits(bb, chromosomes=list(fsm$models[[1]]))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab