R/sdraw.SpatialLines.r

In semmons1/TEST-SDraw: Spatially Balanced Samples of Spatial Objects

#' @rdname sdraw
#'  
#' @method sdraw SpatialLines
#'
#' @aliases sdraw,SpatialLines-method 

sdraw.SpatialLines <- function(x, n, type, ...){
  
  ans <- switch(type,
                BAS = bas.line( x, n, ...), 
                SSS = sss.line( x, n, ...),
                SRS = srs.line( x, n, ...),
                GRTS = grts.line( x, n, ...), 
                stop( paste("Invalid SpatialLines sample type =", type))
  )
  
  ans
  
}