require(GSVA)
Geneexp<-get("GeneexpT")
UserDS<-get("UserDST")
UserGS<-get("UserGST")
gsvapar <- gsvaParam(Geneexp, UserGS)
spw_matrix<-gsva(gsvapar)
x<-getDrugMatrix(spw_matrix,UserDS,weighted.score=FALSE)
Run the code above in your browser using DataLab