Description Usage Arguments Examples
Plot the results for the Bayesian models
1 2 |
BAout |
| |||||
type |
| |||||
op |
| |||||
iterStart |
the starting iteration for traceplot | |||||
col |
color for the plot in cross-validation |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | ## 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)
#### Cross-validation using BATools
set.seed(1234)
PigPheno=createCV(data = PigPheno,k=5,"driploss")
cvSSVS<-baFit(driploss~sex,data=PigPheno,geno=geno ,genoid = ~id,options = op, train=~cv1)
par(mfrow=c(1,1))
plot(cvSSVS)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.