data(Colon)
Class <- pData(Colon)[,"Classification"]
res.Colon <- stabMeasureRho(Colon, group = Class, log = FALSE)
sort(res.Colon) # cf. Table 3 in Andersen et al (2004)
data(Bladder)
Grade <- pData(Bladder)[,"Grade"]
res.Bladder <- stabMeasureRho(Bladder, group = Grade, log = FALSE)
sort(res.Bladder) # cf. Table 3 in Andersen et al (2004)
Run the code above in your browser using DataLab