# \donttest{
# simulate data
seedNames <- specNames <- 'acerRubr'
sim <- list(nyr=10, ntree=30, nplot=5, specNames = specNames, seedNames = seedNames)
inputs <- mastSim(sim)
output <- mastif( inputs = inputs, ng = 4000, burnin = 2000 )
# plot output
# mastPlot( output, plotPars = list(trueValues = inputs$trueValues) )
# }
Run the code above in your browser using DataLab