# NOT RUN {
#simula <- simPathAR1Snp(nGenes=20, nGenes1=1, nSNPlim=c(1, 20), nSNP0=1:3,
# LOR=.2, rholim=c(0,0),
# n=10, MAFlim=c(0.05, 0.4), p0=0.05)
#logitp <- getlogitp(simula$Y, simula$X)
# }
Run the code above in your browser using DataLab