# NOT RUN {
Covars<-c("Age","Smoking","Treatment")
SNPs<-c("snp_1","snp_2","snp_3")
xlink_fit(os="OS",ostime="OS_time",snps=SNPs,gender="gender",covars=Covars,
option =list(MAF_v=0.05),model="survival",data = Rdata)
xlink_fit(resp="OS_time",snps=SNPs,gender="gender",option =list(type="XCI",MAF_v=0.05),
model="linear",data = Rdata)
# }
Run the code above in your browser using DataLab