# NOT RUN {
#Load plot data
data(exampleSPL)
#Load species parameters
data(SpParamsMED)
#Apply summary function
y <- spatialForestSummary(exampleSPL,summary.forest, SpParamsMED)
head(y@data)
#Plot basal area
spplot(y["BA"])
# }
Run the code above in your browser using DataLab