# Compare the number of variables selected by the four methods
# currently available on Alon's Colon Cancer Data set
# (after a logarithmic transformation).
# Use classical pvalues in the original HC approach
log10genes <- log10(AlonDS[,-1])
Res <- array(dim=4)
names(Res) <- c("ExpHC","HC","Fdr","Fair")
Res[1] <- SelectV(log10genes,AlonDS[,1])$nvkpt
Res[2] <- SelectV(log10genes,AlonDS[,1],
Selmethod="HC",NullDist="Theoretical")$nvkpt
Res[3] <- SelectV(log10genes,AlonDS[,1],Selmethod="Fdr")$nvkpt
Res[4] <- SelectV(log10genes,AlonDS[,1],Selmethod="Fair")$nvkpt
print(Res)Run the code above in your browser using DataLab