require(survJamda.data)
data(gse4335)
data(gse3143)
data(gse1992)
data(gse4335pheno)
data(gse3143pheno)
data(gse1992pheno)
geno.files = c("gse4335","gse1992","gse3143")
surv.data = list(c(gse4335pheno[,6],gse1992pheno[,19],gse3143pheno[,4]),
c(gse4335pheno[,5],gse1992pheno[,18],gse3143pheno[,3]))
#pred.time.indep.valid(geno.files, surv.data)
## The function is currently defined as
function(geno.files, surv.data)
{
common.gene = colnames(get(geno.files[1]))
for (i in 2:length(geno.files))
common.gene = intersect(common.gene, colnames(get(geno.files[i])))
par (mfrow = c(1,length(geno.files)))
par(oma=c(2,2,length(geno.files),2))
main.process (common.gene, geno.files, surv.data)
}
Run the code above in your browser using DataLab