# NOT RUN {
##########################################################
### Examples for Survival Traits in GWAS Data using KM ###
##########################################################
data("CoxKM_data")
library(seqMeta)
cov <- as.matrix(pheno1[,2:3])
p<-vector()
for (i in 1:2) {
Gene <- unique(SNPInfo$gene)[i]
choose <- SNPInfo$gene == Gene
geno <- Z1[,choose]
cohort1 <- prepCoxKM(Z=Z1, Surv(time, status)~strata(sex)+bmi,
SNPInfo=SNPInfo[choose,], data=pheno1)
p[i] <- CoxKM(cohort1, SNPInfo=SNPInfo[choose,])
}
# }
Run the code above in your browser using DataLab