# NOT RUN {
# Data
rsp <- raster::stack(system.file("extdata/sp_layers.tif",
package = "biosurvey"))
names(rsp) <- paste0("Species_", 1:5)
rlist <- lapply(1:5, function(x) {rsp[[x]]})
# Species data from RasterStack
sp_data <- rlist_2data(raster_list = rlist)
summary(sp_data)
# }
Run the code above in your browser using DataLab