<div dir="ltr">Muito obrigado!<div style>Problema resolvido.</div><div style>Abraço</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/2/27 Elias Teixeira Krainski <span dir="ltr"><<a href="mailto:eliaskrainski@yahoo.com.br" target="_blank">eliaskrainski@yahoo.com.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">### complementando porque vc tem individuos...<br>
<br>
n.times <- 5;       n.ind <- 3<br>
dat <- data.frame(expand.grid(time=1:n.times, indiv=1:n.ind))<br>
dat$resp <- as.vector(replicate(n.ind,<br>
arima.sim(list(ar=.9),n.times)>0)+0)<br>
str(dat)<br>
<br>
lagFun <- function(x)<br>
  cbind(ant1 = c(NA, x[-length(x)]),<br>
        ant2 = c(NA, NA, x[-(-1:0+length(x))]))<br>
<br>
dat <- data.frame(dat, do.call('rbind',<br>
              tapply(dat$res, dat$ind, lagFun)))<br>
str(dat)<br>
<div class="HOEnZb"><div class="h5"><br>
<br>
<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>
Leia o guia de postagem (<a 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>
</div></div></blockquote></div><br></div>