data(fake.f2)
fake.f2 <- calc.genoprob(fake.f2,step=1,off.end=5)
output1 <- scanone(fake.f2,method="im")
permo1 <- scanone.perm(fake.f2,method="im",n.perm=1000)
<testonly>permo1 <- scanone.perm(fake.f2,method="im",n.perm=3)</testonly>
data(fake.bc)
fake.bc <- argmax.geno(fake.bc)
output2 <- scanone(fake.bc,chr=c(1,9),method="anova")
permo2 <- scanone.perm(fake.bc,chr=c(1,9),method="anova",n.perm=1000)
<testonly>permo2 <- scanone.perm(fake.bc,chr=c(1,9),method="anova",n.perm=3)</testonly>
threshold <- quantile(permo2[,1],0.95)Run the code above in your browser using DataLab