zipFname <- "./data-raw/exampleData/TextBookExamples/DownloadsFromRDBES/ZW_1965_WGRDBES-EST_TEST_1.zip"
data <- RDBEScore::createRDBESDataObject(zipFname)
#keep only the selected sampling scheme
samp_scheme <-"WGRDBES-EST TEST 1"
data1<-RDBEScore::filterRDBESDataObject(data,
fieldsToFilter = c("SLspeclistName"),
valuesToFilter = c("WGRDBES-EST_TEST_1_Pckg_SDAResources_agsrs_H1"),
killOrphans = T)
# compare
data
data1
when filterRDBESDataObject filters SL, it cannot killOrphans in IS
Test