R/coerce.R

In simonmoulds/r_lulcc: Land Use Change Modelling in 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)
      }
      )