<font color="#333333"><font size="2"><font face="trebuchet ms,sans-serif"><i>## Simulacao de dados<br>set.seed(456)<br>n <- 50<br>var <- 150<br>x <- matrix(0, 1000, 5)<br><br>w <- matrix(0, 1000, 1)<br>y <- matrix(0, 1000, 1)<br>

b <- matrix(0, 1000, 1)<br><br>## Gera w's para a matriz w<br><br>  for (i in 1:1000)<br>    {<br>    x [i,1] <- i<br>    w[i] <- rnorm (1) *sqrt(var)<br>    y[i] <- NA<br>    if(i <= n){<br>    b[i] <- 1}<br>

    else b[i] <- 2<br>    }<br><br><br>Só não entendi o pq da criação de x e y<br clear="all"></i></font></font></font>Atenciosamente,<br>Leandro Marino<br><a href="http://www.leandromarino.com.br">http://www.leandromarino.com.br</a> (Fotógrafo)<br>

<a href="http://est.leandromarino.com.br/Blog">http://est.leandromarino.com.br/Blog</a> (Estatístico)<br>Cel.: + 55 21 9845-7707<br>Cel.: + 55 21 8777-7907<br><br>
<br><br><div class="gmail_quote">Em 23 de agosto de 2011 12:53, Ricardo Pereira <span dir="ltr"><<a href="mailto:huahuag@gmail.com">huahuag@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

Abaixo o exemplo que estou rodando em minha maquina, e em seguida o erro.<br>Mesmo com o <b>rnorm(1)</b>, que o Benilton me corrigiu.<br><br>Abraço<br><br>Ricardo<br><br><br>## Simulacao de dados<br>set.seed(456)<br>n <- 50<br>


var <- 150<br>x <- matrix(0, 1000, 5)<div class="im"><br>w <- matrix(0, 1000, 1)<br></div>y <- matrix(0, 1000, 1)<br>b <- matrix(0, 1000, 1)<br><br>## Gera w's para a matriz w<div class="im"><br>  for (i in 1:1000)<br>

    {<br></div>    x [i,1] <- i<br>
    w[i] <- rnorm (1) *sqrt(var)<br>    y[i] <- NULL<br>    if i <= n<br>    b[i] <- 1<br>    else b[i] <- 2<br>    }<br><br><br><br><span style="border-collapse:separate;color:rgb(0, 0, 0);font-family:Arial;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:auto;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;font-size:medium"><span style="font-family:'Lucida Console';font-size:16px;line-height:20px;text-align:-webkit-left;white-space:pre-wrap"><pre style="font-family:'Lucida Console';font-size:12pt !important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;white-space:pre-wrap !important;margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0px;line-height:1.3">

<span>Erro: símbolo inesperado em:
"    y[i] <- NULL
    if i"
</span><span style="white-space:pre-wrap;color:rgb(127, 0, 85)">> </span><span style="color:rgb(127, 0, 85)">    b[i] <- 1
</span><span>Erro em b[i] <- 1 : objeto 'i' não encontrado
</span><span style="white-space:pre-wrap;color:rgb(127, 0, 85)">> </span><span style="color:rgb(127, 0, 85)">    else b[i] <- 2
</span><span>Erro: 'else' inesperado em "    else"
</span><span style="white-space:pre-wrap;color:rgb(127, 0, 85)">> </span><span style="color:rgb(127, 0, 85)">    }
</span><span>Erro: '}' inesperado em "    }"</span></pre></span></span><br><br><br><br><br>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br>