*## Simulacao de dados set.seed(456) n <- 50 var <- 150 x <- matrix(0, 1000, 5) w <- matrix(0, 1000, 1) y <- matrix(0, 1000, 1) b <- matrix(0, 1000, 1) ## Gera w's para a matriz w for (i in 1:1000) { x [i,1] <- i w[i] <- rnorm (1) *sqrt(var) y[i] <- NA if(i <= n){ b[i] <- 1} else b[i] <- 2 } Só não entendi o pq da criação de x e y *Atenciosamente, Leandro Marino http://www.leandromarino.com.br (Fotógrafo) http://est.leandromarino.com.br/Blog (Estatístico) Cel.: + 55 21 9845-7707 Cel.: + 55 21 8777-7907 Em 23 de agosto de 2011 12:53, Ricardo Pereira <huahuag@gmail.com> escreveu:
Abaixo o exemplo que estou rodando em minha maquina, e em seguida o erro. Mesmo com o *rnorm(1)*, que o Benilton me corrigiu.
Abraço
Ricardo
## Simulacao de dados set.seed(456) n <- 50 var <- 150 x <- matrix(0, 1000, 5)
w <- matrix(0, 1000, 1) y <- matrix(0, 1000, 1) b <- matrix(0, 1000, 1)
## Gera w's para a matriz w
for (i in 1:1000) { x [i,1] <- i w[i] <- rnorm (1) *sqrt(var) y[i] <- NULL if i <= n b[i] <- 1 else b[i] <- 2 }
Erro: símbolo inesperado em: " y[i] <- NULL if i"> b[i] <- 1Erro em b[i] <- 1 : objeto 'i' não encontrado> else b[i] <- 2Erro: 'else' inesperado em " else"> }Erro: '}' inesperado em " }"
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.