require(GSVA)
Geneexp<-get("Geneexp")
UserGS<-get("UserGS")
UserDS<-get("UserDS")
gsvaPar <- GSVA::ssgseaParam(Geneexp,UserGS,minSize=2)
spw_matrix<-gsva(gsvaPar)
x<-getDrugSpw(UserDS,row.names(spw_matrix),0.05,1,100)
Run the code above in your browser using DataLab