# \donttest{
# simulate data (see \link{\code{mastSim}})
seedNames <- specNames <- 'acerRubr'
sim <- list(nyr=10, ntree=30, nplot=5,
specNames = specNames, seedNames = seedNames)
inputs <- mastSim(sim)
inputs$mapPlot <- 'p1'
inputs$mapYears = inputs$years[1]
mastMap( inputs )
# for Pinus
d <- "https://github.com/jimclarkatduke/mast/blob/master/pinusExample.rdata?raw=True"
repmis::source_data(d)
specNames <- c("pinuEchi","pinuRigi","pinuStro","pinuTaed","pinuVirg")
seedNames <- c(specNames, "pinuUNKN")
mapList <- list( treeData = treeData, seedData = seedData,
specNames = specNames, seedNames = seedNames,
xytree = xytree, xytrap = xytrap, mapPlot = 'DUKE_BW',
mapYears = c(2004:2007), treeScale = .5, trapScale=1.2,
plotScale = 1.2, LEGEND=TRUE)
mastMap(mapList)
# }
Run the code above in your browser using DataLab