require(GenABEL.data)
data(srdta)
a <- ccfast("bt",srdta,snps=(717:733),ids=(srdta@phdata$age<40))
plot(a)
if (require(haplo.stats)) {
b <- scan.haplo("bt~sex+CRSNP",srdta,snps=(717:733),
ids=(srdta@phdata$age<40))
c <- scan.haplo("bt~sex+CRSNP",srdta,snps=(717:733),
ids=(srdta@phdata$age<40),n.slide=3)
add.plot(b,col="red",type="l")
add.plot(c,col="darkgreen",type="l")
}
Run the code above in your browser using DataLab