<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Obrigado Rodrigo,<br>
<br>
Por ter solucionado o meu problema e por deixar meu script
mais elegante,<br>
<br>
Abraço,<br>
<br>
Alexandre<br>
<br>
<br>
<br>
Em 14/04/2012 14:20, Rodrigo Coster escreveu:
<blockquote
cite="mid:CAKU4wosT8cStGF2aNk2sW4gYgmf-mmjvvrS3foqQ69sp8UtVrQ@mail.gmail.com"
type="cite">Se tu ta usando o mesmo indice nas 2 variaveis não tem
porque usar dois for (), um já basta:
<div><br>
</div>
<div>
<div>
<div>xcc<-c(672036,672332,672674,672079,671386,671364,670753,671854,669986,670860,671366)</div>
<div>ycc<-c(6783650,6784105,6783470,6782354,6782416,6782418,6782199,6783073,6781853,6781791,6781911)</div>
<div><br>
</div>
<div>o <- vector()</div>
<div>for (i in 1:11) {</div>
<div> o <-
rbind(o,cbind(xcc[i]+c(-20,20,20,-20),ycc[i]+c(20,20,-20,-20)))</div>
<div>}</div>
</div>
<div><br>
</div>
<div>Da para fazer com o mapply() também, mas o resultado não
direto no formato do teu exemplo</div>
<div><br>
</div>
<div><br>
</div>
<div><br>
</div>
<div>[]'s</div>
<br>
<div class="gmail_quote">2012/4/14 ASANTOS <span dir="ltr"><<a
moz-do-not-send="true"
href="mailto:alexandresantosbr@yahoo.com.br"
target="_blank">alexandresantosbr@yahoo.com.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex">Boa tarde
pessoal,<br>
<br>
Bom descobri onde estou errando, quando faço:<br>
<br>
for(i in 1:(length(xcc))){<br>
for(j in 1:(length(ycc))){<br>
<br>
O loop vai pegar a primeira coordenada de xcc e fazer
todas as combinações com ycc. Na verdade, eu queria uma
ajuda para o loop e fazer com que ele pegue apenas o
primeiro valor de xcc e comparar apenas com o primeiro valor
de ycc, seguido de xcc[2] com ycc[2] ate xcc[11] com
ycc[11], meu script completo é:<br>
<br>
xcc<-c(672036,672332,672674,672079,671386,671364,670753,671854,669986,670860,671366)<br>
ycc<-c(6783650,6784105,6783470,6782354,6782416,6782418,6782199,6783073,6781853,6781791,6781911)<br>
<br>
res=NULL<br>
for(i in 1:(length(xcc))){<br>
for(j in 1:(length(ycc))){<br>
<br>
xa<-xcc[i]-20<br>
ya<-ycc[j]+20<br>
v1<-cbind(xa,ya)<br>
xb<-xcc[i]+20<br>
yb<-ycc[j]+20<br>
v2<-cbind(xb,yb)<br>
xc<-xcc[i]+20<br>
yc<-ycc[j]-20<br>
v3<-cbind(xc,yc)<br>
xd<-xcc[i]-20<br>
yd<-ycc[j]-20<br>
v4<-cbind(xd,yd)<br>
lim.p<-rbind(v1,v2,v3,v4,v1)<br>
write.table(lim.p, file ="parc.mod", col.names=T,
row.names=F,append=T)<br>
result=read.table("parc.mod",header=F)<br>
}}<br>
<br>
Obrigado<br>
<br>
-- <br>
Alexandre dos Santos<br>
Engenheiro Florestal, Dr.<br>
Universidade Federal de Lavras<br>
Departamento de Entomologia<br>
Laboratório de Entomologia Florestal<br>
Caixa Postal 3037<br>
37200-000 - Lavras/MG<br>
Fone: <a moz-do-not-send="true"
href="tel:%2B55%20%2835%29%209223-0304"
value="+553592230304" target="_blank">+55 (35) 9223-0304</a><br>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a moz-do-not-send="true"
href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a moz-do-not-send="true"
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>
Leia o guia de postagem (<a moz-do-not-send="true"
href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>)
e forneça código mínimo reproduzível.<br>
</blockquote>
</div>
<br>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
<br>
<pre class="moz-signature" cols="72">--
Alexandre dos Santos
Engenheiro Florestal, Dr.
Universidade Federal de Lavras
Departamento de Entomologia
Laboratório de Entomologia Florestal
Caixa Postal 3037
37200-000 - Lavras/MG
Fone: +55 (35) 9223-0304 </pre>
</body>
</html>