10 Dez
2013
10 Dez
'13
16:33
Acredito que o jeito mais simples seja assim dados <- expand.grid(trat=gl(3,4), tempo=1:5) dados$y <- rpois(nrow(dados), lambda=10) dados$z <- 1 dados2 <- dados[rep(1:nrow(dados), dados$y),] xtabs(y~trat+tempo, data=dados) xtabs(z~trat+tempo, data=dados2) À disposição. Walmes.