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