## 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] <- 1
Erro em b[i] <- 1 : objeto 'i' não encontrado
>     else b[i] <- 2
Erro: '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.