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 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,<u></u>672079,671386,671364,670753,<u></u>671854,669986,670860,671366)<br>
ycc<-c(6783650,6784105,<u></u>6783470,6782354,6782416,<u></u>6782418,6782199,6783073,<u></u>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",<u></u>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 href="tel:%2B55%20%2835%29%209223-0304" value="+553592230304" target="_blank">+55 (35) 9223-0304</a><br>
<br>
______________________________<u></u>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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/<u></u>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-<u></u>guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div><br></div>