Wagner, funcionou perfeitamente! Muito obrigado!<div><br></div><div>Fabrício.<div><a href="http://vizzual.net" target="_blank">http://vizzual.net</a></div><br>
<br><br><div class="gmail_quote">Em 30 de maio de 2011 12:18, Wagner bonat <span dir="ltr"><<a href="mailto:wbonat@gmail.com">wbonat@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

Veja este exemplo, fiz isto a algum tempo deve estar desatualizado<br><br>require(gpclib)<br>require(tripack)<br>require(sp)<br>require(spdep)<br>## Lendo o arquivo das bordas<br>bordas <- read.table("<a href="http://www.leg.ufpr.br/~wagner/ExemploBordaVoronoi/points_higi.csv" target="_blank">http://www.leg.ufpr.br/~wagner/ExemploBordaVoronoi/points_higi.csv</a>",header=TRUE,sep=";",dec=".")<br>


bordas = bordas[,-1]<br>bordas[44,] <- bordas[1,]<br><br>## Lendo o arquivo que contem as coordenadas<br>mosq = read.table("<a href="http://www.leg.ufpr.br/~wagner/ExemploBordaVoronoi/mosqhigi.csv" target="_blank">http://www.leg.ufpr.br/~wagner/ExemploBordaVoronoi/mosqhigi.csv</a>",header=TRUE,sep=";",dec=".")<br>


<br>## Funcoes extras<br>source("<a href="http://www.leg.ufpr.br/~wagner/ExemploBordaVoronoi/voronoi.R" target="_blank">http://www.leg.ufpr.br/~wagner/ExemploBordaVoronoi/voronoi.R</a>")<br>source("<a href="http://www.leg.ufpr.br/~wagner/ExemploBordaVoronoi/grp2sp.r" target="_blank">http://www.leg.ufpr.br/~wagner/ExemploBordaVoronoi/grp2sp.r</a>")<br>


<br>coords.x <- c()<br>coords.y <- c()<br>cod.mosq <- unique(mosq$mosquitrap)<br>for(i in 1:40){<br>coords.x[i] = unique(mosq[which(mosq$mosquitrap == cod.mosq[i]),]$x)<br>coords.y[i] = unique(mosq[which(mosq$mosquitrap == cod.mosq[i]),]$y)}<br>


<br>mapa.mosq <- voronoi(coords.x1=coords.x,coords.x2=coords.y,poligono = bordas)<br>mapa.mosq = grp2sp(mapa.mosq,ID = cod.mosq)<br>mapa.mosq.nb <- poly2nb(mapa.mosq)<br>plot(mapa.mosq)<br><font color="#888888"><br>

-- <br>Wagner Hugo Bonat<br>
LEG - Laboratório de Estatística e Geoinformação<br>UFPR - Universidade Federal do Paraná<br>
</font><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
<br></blockquote></div><br></div>