require(survJamda.data)
data(gse4335)
data(gse3143)
data(gse1992)
data(gse4335pheno)
data(gse3143pheno)
data(gse1992pheno)
geno.files = c("gse4335", "gse3143","gse1992")
surv.data = list(c(gse4335pheno[,6],gse3143pheno[,4],gse1992pheno[,19]),
c(gse4335pheno[,5],gse3143pheno[,3],gse1992pheno[,18]))
#The following script might take some time
#meta.main(geno.files, surv.data)
## The function is currently defined as
function(geno.files,surv.data, method = "none")
{
options(warn=-1)
curr_set = 1:length(geno.files)
for (y in curr_set){
x = setdiff(curr_set, y)
data.set.meta (x, y, geno.files,surv.data, method)
}
}
Run the code above in your browser using DataLab