<html><body><div style="color:#000; background-color:#fff; font-family:lucida console, sans-serif;font-size:13px"><div class="" style="">Elias, </div><div class="" style="">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.</div><div class="" style="">Vou passar algumas etapas e uma função que improvisei e no meu caso deu certo. Vou explicar os procedimentos:</div><div class="" style=""><br class="" style=""></div><div class="" style="">1) com a funcao deldir() vc faz seu polígonos na área</div><div class="" style="">sss <- deldir( .....)</div><div class="" style="">entao vc tem o objeto sss</div><div class="" style=""><br class="" style=""></div><div class="" style="">2) Para gerar uma lista do objeto "sss" use a funcao tile.list()</div><div class="" style="">sss_list <- tile.list(sss)</div><div class="" style=""><br class=""
style=""></div><div class="" style="">3) Agora desse objeto que é uma lista, vc tem que extrair o conjunto de polígonos</div><div class="" style="">para isso improvisei uma função, grave ela no seu ambiente:</div><div class="" style=""><br class="" style=""></div><div class="" style="">FUN_VOR_MAT <- function (A,TT) #TT é o arquivo, N o número do POL</div><div class="" style=""> {</div><div class="" style=""> AA <- 1</div><div class="" style=""> BB <- 2</div><div class="" style=""> NROW <- length (A[[TT]]$x) + 1 #add primeiro ponto</div><div class="" style=""><br class="" style=""></div><div class="" style=""><br class="" style=""></div><div class="" style=""> VORONOI_MATRIX <- matrix(0,NROW,2)</div><div class="" style=""> VORONOI_MATRIX[1:NROW,AA] <- A[[TT]]$x[1:NROW]</div><div
class="" style=""> VORONOI_MATRIX[1:NROW,BB] <- A[[TT]]$y[1:NROW]</div><div class="" style=""> VORONOI_MATRIX[NROW,AA] <- A[[TT]]$x[1] #+ 1 add primeiro ponto</div><div class="" style=""> VORONOI_MATRIX[NROW,BB] <- A[[TT]]$y[1] #+ 1 add primeiro ponto</div><div class="" style=""><br class="" style=""></div><div class="" style=""> if(TT == NROW){</div><div class="" style=""> print("17/10/2014, rafaeltieppo@yahoo.com.br ")}</div><div class="" style=""> return(VORONOI_MATRIX)</div><div class="" style=""> }</div><div class="" style=""><span class="" style="white-space:pre"> </span></div><div class="" style="">4) Agora vc vai usar a funcao:</div><div class="" style="">sss_areas <- lapply(1:length(sss_list), function (x) ( FUN_VOR_MAT(sss_list,x))
)</div><div class="" style=""><br class="" style=""></div><div class="" style="">5) #Formando Polygons</div><div class="" style="">sss_pols <- lapply(1:length(sss_areas), function(x) Polygons(list(Polygon(sss_areas[[x]])),</div><div class="" style=""> ID = paste("reg", x, sep = "")))</div><div class="" style=""><br class="" style=""></div><div class="" style="">6) Para converter em SpatialPolygins</div><div class="" style="">sss_SPATIAL_POLS <- as.SpatialPolygons.PolygonsList(sss_pols, proj4string=CRS(as.character(NA)))<span class="" style="white-space:pre"> </span></div><div class="" style=""><span class="" style="white-space:pre"> </span></div><div class="" style="">Se tudo correu bem é só comecar a usar o poly2nb(sss_SPATIAL_POLS)</div><div class="" style=""><br></div><div class="" style="color: rgb(0, 0, 0); font-size: 13px; font-family: 'lucida console', sans-serif; font-style: normal;
background-color: transparent;">Boa sorte</div><div class="" style=""><span class="" style="white-space:pre"> </span></div><div class="" style=""><span class="" style=""></span></div><div class="" style=""><span class="" style="white-space:pre"> </span></div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: 'lucida console', sans-serif; font-style: normal; background-color: transparent;" class=""><span class="" style=""><br class="" style=""></span></div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: 'lucida console', sans-serif; font-style: normal; background-color: transparent;" class=""><span class="" style=""><br class="" style=""></span></div><div class="" style=""></div><div class="" style=""> </div><div class="" style=""><font size="1" style="font-family:tahoma, 'new york', times, serif;line-height:normal;" class=""><span class="" style="font-family:verdana, helvetica, sans-serif;font-weight:bold;">Rafael
Tieppo</span><br style="font-family:verdana, helvetica, sans-serif;" class=""></font><br style="font-family:tahoma, 'new york', times, serif;line-height:normal;" class=""></div> <div class="" style=""><br class="" style=""><br class="" style=""></div> </div></body></html>