#######Função para transformar uma objeto da classe cpslib para SpatialPolygons# grp2sp <- function(subpolys,ID){ lista = list() lista.pols2 <- list() for(i in 1:length(subpolys)){ obje = get.pts(subpolys[[i]]) obje = data.frame(obje[[1]]$x,obje[[1]]$y) names(obje) = c("x","y") substi = dim(obje)[1] obje[substi+1,]=obje[1,] lista[[1]] = Polygon(obje) lista.pols = Polygons(lista,ID= ID[i]) lista.pols2[[i]] = lista.pols } final = SpatialPolygons(lista.pols2) return(final)}