Boa tarde Rafael Quem está com dúvidas fui eu, não o Elias... Mas o código funcionou perfeitamente, muito obrigado. Se utilizou este procedimento deve ter incluído dados ao polígono, se tiver algum código que faça isso, agradeço desde já. Abraço Hélio Em 21 de outubro de 2014 12:52, Rafael Tieppo [via R-br] < ml-node+s2285057n4663325h43@n4.nabble.com> escreveu:
Elias, Pelo o que eu entendi, vc usou a funcao deldir(), no caso Voronoi para fazer os polígono da área. Se for isso acho que passei pelo mesmo processo. Vou passar algumas etapas e uma função que improvisei e no meu caso deu certo. Vou explicar os procedimentos:
1) com a funcao deldir() vc faz seu polígonos na área sss <- deldir( .....) entao vc tem o objeto sss
2) Para gerar uma lista do objeto "sss" use a funcao tile.list() sss_list <- tile.list(sss)
3) Agora desse objeto que é uma lista, vc tem que extrair o conjunto de polígonos para isso improvisei uma função, grave ela no seu ambiente:
FUN_VOR_MAT <- function (A,TT) #TT é o arquivo, N o número do POL { AA <- 1 BB <- 2 NROW <- length (A[[TT]]$x) + 1 #add primeiro ponto
VORONOI_MATRIX <- matrix(0,NROW,2) VORONOI_MATRIX[1:NROW,AA] <- A[[TT]]$x[1:NROW] VORONOI_MATRIX[1:NROW,BB] <- A[[TT]]$y[1:NROW] VORONOI_MATRIX[NROW,AA] <- A[[TT]]$x[1] #+ 1 add primeiro ponto VORONOI_MATRIX[NROW,BB] <- A[[TT]]$y[1] #+ 1 add primeiro ponto
if(TT == NROW){ print("17/10/2014, [hidden email] <http://user/SendEmail.jtp?type=node&node=4663325&i=0> ")} return(VORONOI_MATRIX) } 4) Agora vc vai usar a funcao: sss_areas <- lapply(1:length(sss_list), function (x) ( FUN_VOR_MAT(sss_list,x)) )
5) #Formando Polygons sss_pols <- lapply(1:length(sss_areas), function(x) Polygons(list(Polygon(sss_areas[[x]])), ID = paste("reg", x, sep = "")))
6) Para converter em SpatialPolygins sss_SPATIAL_POLS <- as.SpatialPolygons.PolygonsList(sss_pols, proj4string=CRS(as.character(NA))) Se tudo correu bem é só comecar a usar o poly2nb(sss_SPATIAL_POLS)
Boa sorte
Rafael Tieppo
_______________________________________________ R-br mailing list [hidden email] <http://user/SendEmail.jtp?type=node&node=4663325&i=1> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
------------------------------ If you reply to this email, your message will be added to the discussion below:
http://r-br.2285057.n4.nabble.com/R-br-skater-e-deldir-tp4663303p4663325.htm... To unsubscribe from R-br, click here <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=aGVsaW9nYWxsb3JvY2hhQGdtYWlsLmNvbXwzMzU3OTgyfC0xMzQ3NTkwMDY4> . NAML <http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml>
-- Hélio Gallo Rocha IFSULDEMINAS - Câmpus Muzambinho