[R-br] gerar dados

[Leandro Marino]

*## 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 em 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 em 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110823/841d15c4/attachment.html>