# \dontshow{
# Restrict threads for CRAN compliance
dt_threads <- data.table::getDTthreads()
data.table::setDTthreads(1)
# }
data(fiaRI)
data(countiesRI)
# Perform spatial intersection
db <- intersectFIA(fiaRI,
countiesRI)
# Group estimates by variable defined
# in `countiesRI`
tpa(db,
grpBy = COUNTY)
# \dontshow{
# Restore thread setting
data.table::setDTthreads(dt_threads)
# }
Run the code above in your browser using DataLab