<div dir="ltr"><div>dados=rnorm(10)</div><div>a1=0.05767</div><div>a2=0.89000</div><div><br></div><div>RES<-NULL</div><div>I1 <- NULL</div><div>I2 <- NULL</div><div>for (i in 1:length(dados)){</div><div>  if(dados[i] <= a1){</div><div>    I1[i] <- 1</div><div>  } else {I1[i] <- 0}</div><div>  if(dados[i] <= a2){</div><div>    I2[i] <- 1</div><div>  } else {I2[i] <- 0}</div><div>  RES <- cbind(dados,I1,I2)</div><div>}</div><div>RES</div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 3 de junho de 2015 08:34, Paulo Nogueira Starzynski <span dir="ltr"><<a href="mailto:paulons@gmail.com" target="_blank">paulons@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><p>Na última linha o D precisa ser minúsculo...<br>
Assim:</p><span class="im HOEnZb">
<p>dados <- rnorm(10) <br>
a1 <- 0.05767<br>
a2 <- 0.89000</p>
<p>dados$I1 <- ifelse(dados <= a1, 1, 0)<br>
dados$I2 <- ifelse(dados <= a2, 1, 0)</p>
</span><div class="HOEnZb"><div class="h5"><div class="gmail_quote">Em 03/06/2015 08:31, "Paulo Nogueira Starzynski" <<a href="mailto:paulons@gmail.com" target="_blank">paulons@gmail.com</a>> escreveu:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><p>Alexandre,<br>
não testei e estou respondendo do celular, mas segue uma sugestão:</p>
<p>dados <- rnorm(10)<br>
a1 <- 0.05767<br>
a2 <- 0.89000</p>
<p>dados$I1 <- ifelse(dados <= a1, 1, 0)<br>
 Dados$I2 <- ifelse(dados <= a2, 1, 0)<br></p>
<p>Att,<br>
Paulo</p>
<p>Em 03/06/2015 08:20, "ASANTOS" <<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>> escreveu:<br>
><br>
> Bom dia Pessoal,<br>
><br>
><br>
>      Tenho um vetor de dados artificiais chamado dados e gostaria de testar se os valores de dados são <=0.05767 e jogar o resultado (sendo que se true =1, senão 0) em uma coluna e ao mesmo tempo testar se x<=0.89000 e colocar o resultados (sendo que se true =1, senão 0) em outra coluna, para isso fiz:<br>
><br>
> dados=rnorm(10)<br>
> a1=0.05767<br>
> a2=0.89000<br>
><br>
> RES<-NULL<br>
> for (i in 1:length(dados)){<br>
>     I1 <- x[i]<br>
>     x[i] <- as.vector(x[i])<br>
>     ifelse(x[i] <= a1, 1, 0)<br>
>     I2 <- x[i]<br>
>     x[i] <- as.vector(x[i])<br>
>     ifelse (x[i] <= a2, 1, 0)<br>
> RES<-rbind(RES,c(I1,I2))<br>
> }<br>
> RES<br>
><br>
> Mas estou fazendo algo errado, pois são estou obtendo os resultados esperados nas colunas I1 e I2, alguém poderia me ajudar?<br>
><br>
> Obrigado<br>
><br>
> -- <br>
> ======================================================================<br>
> Alexandre dos Santos<br>
> Proteção Florestal<br>
> IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso<br>
> Campus Cáceres<br>
> Caixa Postal 244<br>
> Avenida dos Ramires, s/n<br>
> Bairro: Distrito Industrial<br>
> Cáceres - MT                      CEP: 78.200-000<br>
> Fone: <a href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a> (TIM)   <a href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a> (VIVO)<br>
> <a href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@yahoo.com.br</a><br>
>         <a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.br</a><br>
> Lattes: <a href="http://lattes.cnpq.br/1360403201088680" target="_blank">http://lattes.cnpq.br/1360403201088680</a><br>
> ======================================================================<br>
><br>
> _______________________________________________<br>
> R-br mailing list<br>
> <a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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>
</p>
</blockquote></div>
</div></div><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><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div>Rafael Garcia Cunha</div><div><br></div><div>YNWA</div><div><br></div></div>
</div>