# example data
library(sf)
data(paleocoastlines)
st <-paleocoastlines@stack
ind <- 1:nlayers(st)
dim(ind) <- c(3,2)
dimnames(ind) <- list(age=c(0, 10, 20), c("margin", "coastlines"))
sa<- SfcArray(stack=st, index=ind)
Run the code above in your browser using DataLab