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 "    }"