# \donttest{
extd.dir <- system.file("extdata", package = "pacu")
raw.yield <- sf::read_sf(file.path(extd.dir, '2012-basswood.shp'),
quiet = TRUE)
chk <- pa_check_yield(raw.yield)
chk
# }
Run the code above in your browser using DataLab