Ich habe eine Liste der räumlichen Puffer (30000 Puffer), die ich mit der Funktion erstellt habe lapply: buff.pts <- lapply(1:nrow(pts.prj), FUN=function(l){ buff <- gBuffer(pts.prj[l,], width=1000) ## 1km return(buff) })) > head(buff.pts) [[1]] class : SpatialPolygons features : 1 extent...