# \donttest{
# Not run
library(ammiBayes)
library(bayesplot)
library(ggpubr)
data(ammiData)
Env <- factor(ammiData$amb)
Rep <- factor(ammiData$rep)
Gen <- factor(ammiData$gen)
Y <- ammiData$prod
model <- ammiBayes(Y=Y, Gen=Gen, Env=Env, Rep=Rep, iter=1000, burn=10, jump=2, chains=2)
gen.diagnosis <- diagnosis.ammiBayes(model, pars="Genotype")
mcmc_trace(gen.diagnosis)
mcmc_dens_overlay(gen.diagnosis)
mcmc_areas(gen.diagnosis)
dens <- bayesplot::mcmc_dens_overlay(gen.diagnosis)
trac <- bayesplot::mcmc_trace(gen.diagnosis, facet_args=list(ncol=1))
ggpubr::ggarrange(trac,dens, common.legend=TRUE)
# }Run the code above in your browser using DataLab