R/anyPreds.R

Defines functions anyPreds

anyPreds <- function(x){
  if(class(x)[1] != "SpatialStreamNetwork"){
    stop("The class of x must be a SpatialStreamNetwork")
  }
  length(
    x@predpoints@SSNPoints
  ) > 0
}
apear9/SSNdesign documentation built on Feb. 19, 2020, 4:29 a.m.