<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Acredito que o jeito mais simples seja assim<br><br><span style="font-family:courier new,monospace">dados <- expand.grid(trat=gl(3,4), tempo=1:5)<br>
dados$y <- rpois(nrow(dados), lambda=10)<br>dados$z <- 1<br><br>dados2 <- dados[rep(1:nrow(dados), dados$y),]<br><br>xtabs(y~trat+tempo, data=dados)<br>xtabs(z~trat+tempo, data=dados2)<br></span><br>À disposição.<br>
Walmes.<br><br></div></div>