require(GenABEL.data)
data(srdta)
a <- scan.glm("bt~sex+age+CRSNP",family=binomial(),data=srdta,snps=(1:10),bcast=2)
#plot(a)
osnp <- "rs4934"
maposnp <- srdta@gtdata@map[osnp]
maposnp
reg <- snp.names(srdta,begin=maposnp-100000,end=maposnp+100000,chrom="1")
## Not run:
# a <- scan.glm("qt3~sex+age+CRSNP",data=srdta,snps=reg)
# plot(a)
# plot(a,df=1)
# add.plot(a,df=2)
# ## End(Not run)
# interaction with sex
## Not run:
# a <- scan.glm("qt3~age+sex*CRSNP",data=srdta,snps=reg)
# plot(a,df=1)
# add.plot(a,df=2)
# # you can do interaction with a selected polymorphisms in the same way
# ## End(Not run)
Run the code above in your browser using DataLab