Description Usage Arguments Value Examples
Create Manhattan plot for posterior probability based models
1 |
ba |
an object of the class |
type |
can be c("SNP","Win") for single SNP or window based Manhattan plot |
col |
color for the Manhattan plot |
... |
other plot options |
Null. This function only prints to the screen.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ## Not run:
rm(list=ls())
library(BATools)
data("Pig")
#Standardize genotype matrix
#or set your own starting values using
#init=list(df=5,scale=0.01,pi=1)
run_para=list(niter=2000,burnIn=1000,skip=10)
print_mcmc=list(piter=500)
update_para=list(df=FALSE,scale=TRUE,pi=F)
op<-create.options(model="SSVS",method="MCMC",seed=1,priors=NULL,init=init,
update_para=update_para,run_para=run_para,save.at="SSVS",print_mcmc=print_mcmc)
SSVS<-baFit(driploss~sex,data=PigPheno,geno=geno ,genoid = ~id,options = op,map=PigMap,GWA="Win")
par(mfrow=c(1,2))
man_plot_prob(SSVS)
man_plot_prob(SSVS,type="Win")
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.