<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<style>
<!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;}
@page Section1
{size:612.0pt 792.0pt;
margin:70.85pt 3.0cm 70.85pt 3.0cm;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=PT-BR link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal> Boa Tarde Pessoal,<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal> Estou reorganizando minhas coordenadas geográficas
(pontos) para calcular todas os arranjos possíveis de pontos em diferentes
distâncias (código abaixo), até aí tudo bem, mas o problema é quando utilizo o
comando apply(), dentro do loop para remover as linhas que contem NA’s e ficar
somente com as coordenadas em X com correspondencia em Y (<b>xyc</b>) e
posteriormente adicionar os resultados em <b>maille</b>. Neste objeto maille que
guarda o resultado de cada loop se eu adiciono <b>c(xyc,n.pontos,Bk[m]) </b>o
resultado fica todo bagunçado, com <b>n.pontos</b> na mesma coluna que <b>xyc</b>
, mais se deixo só <b>xyc</b> o resultado fica correto, tem alguma forma de
fazercom que <b>xyc,n.pontos,Bk[m]</b> apareça individualmente em cada <b>maille[i,],</b><o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>Obrigado,<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>###############################################################################################<o:p></o:p></p>
<p class=MsoNormal>pt0 <- c(725990,7912746)#Ponto inicial<o:p></o:p></p>
<p class=MsoNormal><span lang=EN-US>h.b.a.f.p1<-
expand.grid(latitude=seq(pt0[1], by=25, length.out=12),longitude=seq(pt0[2],
by=25, length.out=12)) ##Malha<o:p></o:p></span></p>
<p class=MsoNormal>x<-c(20,100,110,144)<o:p></o:p></p>
<p class=MsoNormal>h.b.a.f.p1<-h.b.a.f.p1[-(x),]##Removendo alguns pontos
para criar distâncias inexistentes<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>Bk=seq(0,50,25)###Diferentes distâncias entre pontos
amostrais<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><span lang=EN-US>maille<-NULL<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p>
<p class=MsoNormal><span lang=EN-US>for(m in 1:length(Bk)){<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p>
<p class=MsoNormal>Px<-c(h.b.a.f.p1[,1])###Coordenadas X<o:p></o:p></p>
<p class=MsoNormal>Py<-c(h.b.a.f.p1[,2])###Coordenadas Y<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><span lang=EN-US>Pxy<-cbind(Px,Py)<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US>plot(Pxy)<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p>
<p class=MsoNormal>sqx<-seq(min(Px)+Bk[m],max(Px),25)###Sequência de distancias
em X<o:p></o:p></p>
<p class=MsoNormal>sqy<-seq(min(Py)+Bk[m],max(Py),25)###Sequência de distancias
em Y<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><span lang=EN-US>for(j in 1:length(Px)){<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US>for(k in 1:length(Py)){<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p>
<p class=MsoNormal>n.pontos<-1:length(Px)<o:p></o:p></p>
<p class=MsoNormal>xx=sqx[j] ###Coordenada X presente ou não nesta posição<o:p></o:p></p>
<p class=MsoNormal>yy=sqy[k] ###Coordenada Y presente ou não nesta posição<o:p></o:p></p>
<p class=MsoNormal><span lang=EN-US>xyc=cbind(xx,yy)<o:p></o:p></span></p>
<p class=MsoNormal><span lang=EN-US>xyc=xyc[apply(xyc, 1,
function(x)!any(is.na(x))), drop=F] ###Remove linhas se NA<o:p></o:p></span></p>
<p class=MsoNormal>maille=rbind(maille,c(xyc,n.pontos,Bk[m]))###Resultado<o:p></o:p></p>
<p class=MsoNormal>}}}<o:p></o:p></p>
<p class=MsoNormal>#<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Arial","sans-serif";
color:black'>Alexandre dos Santos</span></b><span style='font-size:10.0pt;
color:black'><o:p></o:p></span></p>
<p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Arial","sans-serif";
color:black'>Ingenieur forestier, Msc.</span></b><span style='font-size:10.0pt;
color:black'><o:p></o:p></span></p>
<p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Arial","sans-serif";
color:black'>INRA- Biostatistique et Processus Spatiaux (BioSP)</span></b><span
style='font-size:10.0pt;color:black'><o:p></o:p></span></p>
<p class=MsoNormal><b><span lang=EN-US style='font-size:10.0pt;font-family:
"Arial","sans-serif";color:black'>Domaine Saint-Paul<br>
Site Agroparc <br>
84914 - Avignon - France<br>
Tél. : +33 (0)6 87 95 16 29</span></b><span style='font-size:10.0pt;color:black'><o:p></o:p></span></p>
<p class=MsoNormal><o:p> </o:p></p>
</div>
</body>
</html>