Distribuir o resultado de duas condições de ifelse em duas colunas
Bom dia Pessoal, 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: dados=rnorm(10) a1=0.05767 a2=0.89000 RES<-NULL for (i in 1:length(dados)){ I1 <- x[i] x[i] <- as.vector(x[i]) ifelse(x[i] <= a1, 1, 0) I2 <- x[i] x[i] <- as.vector(x[i]) ifelse (x[i] <= a2, 1, 0) RES<-rbind(RES,c(I1,I2)) } RES Mas estou fazendo algo errado, pois são estou obtendo os resultados esperados nas colunas I1 e I2, alguém poderia me ajudar? Obrigado -- ====================================================================== Alexandre dos Santos Proteção Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================
Alexandre, não testei e estou respondendo do celular, mas segue uma sugestão: dados <- rnorm(10) a1 <- 0.05767 a2 <- 0.89000 dados$I1 <- ifelse(dados <= a1, 1, 0) Dados$I2 <- ifelse(dados <= a2, 1, 0) Att, Paulo Em 03/06/2015 08:20, "ASANTOS" <alexandresantosbr@yahoo.com.br> escreveu:
Bom dia Pessoal,
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:
dados=rnorm(10) a1=0.05767 a2=0.89000
RES<-NULL for (i in 1:length(dados)){ I1 <- x[i] x[i] <- as.vector(x[i]) ifelse(x[i] <= a1, 1, 0) I2 <- x[i] x[i] <- as.vector(x[i]) ifelse (x[i] <= a2, 1, 0) RES<-rbind(RES,c(I1,I2)) } RES
Mas estou fazendo algo errado, pois são estou obtendo os resultados
esperados nas colunas I1 e I2, alguém poderia me ajudar?
Obrigado
-- ====================================================================== Alexandre dos Santos Proteção Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================
_______________________________________________ R-br mailing list R-br@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.
Na última linha o D precisa ser minúsculo... Assim: dados <- rnorm(10) a1 <- 0.05767 a2 <- 0.89000 dados$I1 <- ifelse(dados <= a1, 1, 0) dados$I2 <- ifelse(dados <= a2, 1, 0) Em 03/06/2015 08:31, "Paulo Nogueira Starzynski" <paulons@gmail.com> escreveu:
Alexandre, não testei e estou respondendo do celular, mas segue uma sugestão:
dados <- rnorm(10) a1 <- 0.05767 a2 <- 0.89000
dados$I1 <- ifelse(dados <= a1, 1, 0) Dados$I2 <- ifelse(dados <= a2, 1, 0)
Att, Paulo
Em 03/06/2015 08:20, "ASANTOS" <alexandresantosbr@yahoo.com.br> escreveu:
Bom dia Pessoal,
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:
dados=rnorm(10) a1=0.05767 a2=0.89000
RES<-NULL for (i in 1:length(dados)){ I1 <- x[i] x[i] <- as.vector(x[i]) ifelse(x[i] <= a1, 1, 0) I2 <- x[i] x[i] <- as.vector(x[i]) ifelse (x[i] <= a2, 1, 0) RES<-rbind(RES,c(I1,I2)) } RES
Mas estou fazendo algo errado, pois são estou obtendo os resultados
esperados nas colunas I1 e I2, alguém poderia me ajudar?
Obrigado
-- ====================================================================== Alexandre dos Santos Proteção Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================
_______________________________________________ R-br mailing list R-br@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.
dados=rnorm(10) a1=0.05767 a2=0.89000 RES<-NULL I1 <- NULL I2 <- NULL for (i in 1:length(dados)){ if(dados[i] <= a1){ I1[i] <- 1 } else {I1[i] <- 0} if(dados[i] <= a2){ I2[i] <- 1 } else {I2[i] <- 0} RES <- cbind(dados,I1,I2) } RES Em 3 de junho de 2015 08:34, Paulo Nogueira Starzynski <paulons@gmail.com> escreveu:
Na última linha o D precisa ser minúsculo... Assim:
dados <- rnorm(10) a1 <- 0.05767 a2 <- 0.89000
dados$I1 <- ifelse(dados <= a1, 1, 0) dados$I2 <- ifelse(dados <= a2, 1, 0) Em 03/06/2015 08:31, "Paulo Nogueira Starzynski" <paulons@gmail.com> escreveu:
Alexandre, não testei e estou respondendo do celular, mas segue uma sugestão:
dados <- rnorm(10) a1 <- 0.05767 a2 <- 0.89000
dados$I1 <- ifelse(dados <= a1, 1, 0) Dados$I2 <- ifelse(dados <= a2, 1, 0)
Att, Paulo
Em 03/06/2015 08:20, "ASANTOS" <alexandresantosbr@yahoo.com.br> escreveu:
Bom dia Pessoal,
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:
dados=rnorm(10) a1=0.05767 a2=0.89000
RES<-NULL for (i in 1:length(dados)){ I1 <- x[i] x[i] <- as.vector(x[i]) ifelse(x[i] <= a1, 1, 0) I2 <- x[i] x[i] <- as.vector(x[i]) ifelse (x[i] <= a2, 1, 0) RES<-rbind(RES,c(I1,I2)) } RES
Mas estou fazendo algo errado, pois são estou obtendo os resultados
esperados nas colunas I1 e I2, alguém poderia me ajudar?
Obrigado
-- ====================================================================== Alexandre dos Santos Proteção Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato
Grosso
Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================
_______________________________________________ R-br mailing list R-br@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.
_______________________________________________ R-br mailing list R-br@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.
-- Rafael Garcia Cunha YNWA
Seria isso? dados <- rnorm(10) a <- c(0.05767, 0.89000) sapply(a, function(x) as.integer(dados<x)) sapply(a, FUN=">", dados) À disposição. Walmes.
O que signfica o objeto FUN? Seria isso? dados <- rnorm(10) a <- c(0.05767, 0.89000) sapply(a, function(x) as.integer(dados<x)) sapply(a, FUN=">", dados) À disposição. Walmes. --- Este email foi escaneado pelo Avast antivírus. https://www.avast.com/antivirus
Algumas funções podem ser representadas por string, como soma "+" e produto "*". À disposição. Walmes.
Muito obrigado Rafael, Problema resolvido -- ====================================================================== Alexandre dos Santos Proteção Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ====================================================================== On 03/06/2015 07:59, Rafael Garcia Cunha wrote:
dados=rnorm(10) a1=0.05767 a2=0.89000
RES<-NULL I1 <- NULL I2 <- NULL for (i in 1:length(dados)){ if(dados[i] <= a1){ I1[i] <- 1 } else {I1[i] <- 0} if(dados[i] <= a2){ I2[i] <- 1 } else {I2[i] <- 0} RES <- cbind(dados,I1,I2) } RES
participantes (5)
-
ASANTOS -
Mauro Sznelwar -
Paulo Nogueira Starzynski -
Rafael Garcia Cunha -
walmes .