# \donttest{
d <- "https://github.com/jimclarkatduke/mast/blob/master/outputAbies.rdata?raw=True"
repmis::source_data( d )
# single Abies tree from fitted output$prediction$fecPred:
wt <- which( fecPred$treeID == "BAMT1-1" )
s <- mastSpectralDensity( log(fecPred$fecEstMu[ wt ]), PLOT = TRUE )
# population year effects (log scale) for an ecoRegion_species in output$parameters$betaYrRand:
x <- betaYrRand['3_abiesAmabilis', ]
x <- x[ x != 0 ] # ecoRegion_species vary in observation years
s <- mastSpectralDensity( x, PLOT = TRUE )
# }
Run the code above in your browser using DataLab