R/createSSNList.R

In apear9/SSNdesign: An R Package for Optimal and Adaptive Sampling Designs on Stream Networks

createSSNList <- function(ssn){
  
  # Get networks with sites on them
  nets <- unique(ssn@obspoints@SSNPoints[[1]]@point.data$netID)
  
  # Return ssn.list
  list(
    ssn.object = ssn,
    bin.table = getBIDtables(ssn, nets)
  )
  
}