## load data
data(marty)
## filtering data
marty <- expFilter(marty, threshold=3.5, graph=FALSE)
##Class label 0/1
marty.type.num <- ifelse(marty.type.cl=="Her2+",0,1)
## run sam analysis on example set
example.subset <- marty[1:100,]
samOUT <- runSAM(example.subset, marty.type.num, nbpermut=50, q=0.05, plot=TRUE)
samSIGN <- samOUT[which(samOUT[,"Significant"]),]Run the code above in your browser using DataLab