# \donttest{
d <- "https://github.com/jimclarkatduke/mast/blob/master/pinusExample.rdata?raw=True"
repmis::source_data(d)
# prior parameter values
pfile <- tempfile(fileext = '.txt')
d <- "https://github.com/jimclarkatduke/mast/blob/master/priorParameters.txt?raw=True"
download.file(d, destfile = pfile)
specNames <- c("pinuEchi","pinuRigi","pinuStro","pinuTaed","pinuVirg")
seedNames <- c(specNames, "pinuUNKN")
priorTable <- mastPriors(file = pfile, specNames,
code = 'code4', genus = 'pinus')
inputs <- list( specNames = specNames, seedNames = seedNames,
treeData = treeData, seedData = seedData,
xytree = xytree, xytrap = xytrap,
priorTable = priorTable, seedTraits = seedTraits)
formulaRep <- as.formula( ~ diam )
formulaFec <- as.formula( ~ diam )
output <- mastif(inputs = inputs, formulaFec, formulaRep,
ng = 1000, burnin = 400)
# }
Run the code above in your browser using DataLab