[R-br] skater e deldir

[Hélio Gallo Rocha]

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 em 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.html
>  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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20141021/ae89966c/attachment.html>