library(SubLasso) # Version: 1.2 # Authors: Youxi Luo, Qinghan Meng, Ruiquan Ge, Guoqin Mai, Jikui Liu, Fengfeng Zhou(#corresponding) # Update: 2014-08-11 # Contact: Fengfeng Zhou (FengfengZhou@gmail.com) ##### import test data testdata <-read.table("GSE9574.txt",head=T) testfeatures <-apply(testdata[-1,-1],2,as.numeric) testclasses<-as.vector(as.matrix(testdata[1,-1])) testy <- ifelse(testclasses=="RM",0,1) testX<-testfeatures #### use the training model(no fixed features) to test a new data load("nofix.RData") predtesty<- predict.SubLasso(f1,testX) predy<- predtesty[[1]] table(testy,predy) load("fixBRCA1.RData") predtesty<- predict.SubLasso(f2,testX) predy<- predtesty[[1]] table(testy,predy)