if (require(GEOquery)){
#treatment gene-expression profiles
GSM118720 <- getGEO(filename=system.file("extdata/GSM118720.soft",package=
"GeneExpressionSignature"))
#control gene-expression profiles
GSM118721 <- getGEO(filename=system.file("extdata/GSM118721.soft",package=
"GeneExpressionSignature"))
#data ranking according to the different expression values
control <- as.matrix(as.numeric(Table(GSM118721)[,2]))
treatment <- as.matrix(as.numeric(Table(GSM118720)[,2]))
ranked_list <-getRLs(control,treatment)
}
Run the code above in your browser using DataLab