# create a grid
g <- trigrid(c(4,4))
# create a data layer
fl <- facelayer(g, rnorm(length(faces(g))))
# target structure
h <- trigrid(4)
# resampling
res <- resample(fl, h)
fl2<-facelayer(h, res)
fl2@values[] <- res
Run the code above in your browser using DataLab