data(geNSCLC)
geData <- geNSCLC
data(stNSCLC)
stData <- stNSCLC
######################
randomClustering <- runif(nrow(stData)) > .5
survdiff(stData ~ randomClustering)
###############
clusteringByPrognosis <- goodAndPoorClassification(randomClustering)
survdiff(stData ~ clusteringByPrognosis)
Run the code above in your browser using DataLab