R/coerce.R

#' @include index.R

#' @export
setAs("ObsLulcRasterStack","RasterStack",
      function(from) {
          maps <- list()
          nl <- nlayers(from)
          for (i in 1:nl) {
              maps[[i]] <- from[[i]]
          }
          stack(maps)
      }
      )

Try the lulcc package in your browser

Any scripts or data that you put into this service are public.

lulcc documentation built on May 29, 2017, 12:59 p.m.