## Import SSN object
copy_lsn_to_temp() ## Only needed for this example
ssn <- ssn_import(paste0(tempdir(), "/MiddleFork04.ssn"),
predpts = c("pred1km", "CapeHorn"),
overwrite = TRUE
)
## Split predictions based on 'size' method
ssn1 <- ssn_split_predpts(ssn, "CapeHorn",
size_predpts = 200,
keep = FALSE, overwrite = TRUE
)
names(ssn1$preds)
nrow(ssn1$preds[["CapeHorn-1"]])
## Split predictions using 'by' method
ssn$preds$pred1km$net.fac <- as.factor(ssn$preds$pred1km$netID)
ssn2 <- ssn_split_predpts(ssn, "pred1km",
by = "net.fac",
overwrite = TRUE
)
names(ssn2$preds)
## Split predictions using 'subset' method
ssn3 <- ssn_split_predpts(ssn, "pred1km",
subset = ratio > 0.5,
id_predpts = "RATIO_05", overwrite = TRUE
)
names(ssn3$preds)
Run the code above in your browser using DataLab