<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">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: (+55) 65 8132-8112 (TIM)   (+55) 65 9686-6970 (VIVO)<br>
> <a href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a><br>
>         <a href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a><br>
> Lattes: <a href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a><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">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">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</p>