Substituir valores em um vetor
Pessoal, Gostaria de substituir em dados$y todos os valores maiores que 1 por 1 , sendo: y<-rpois(100,2) x<-1:100 dados<-cbind(x,y) dados[dados[, 2] %in% >1, 2] <- 1 Porém, se utilizo >1 não funciona, mas se escolho um valor de cada vez ao invés de >1 funciona, 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 ======================================================================
a %in% b verifica quais valores de a estão em b. O que tu quer é: dados[dados[, 2] > 1, 2] <- 1 2013/12/24 ASANTOS <alexandresantosbr@yahoo.com.br>
Pessoal,
Gostaria de substituir em dados$y todos os valores maiores que 1 por 1 , sendo: y<-rpois(100,2) x<-1:100 dados<-cbind(x,y) dados[dados[, 2] %in% >1, 2] <- 1
Porém, se utilizo >1 não funciona, mas se escolho um valor de cada vez ao invés de >1 funciona, 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.
Em 24/12/2013 12:04, ASANTOS escreveu:
Pessoal,
Gostaria de substituir em dados$y todos os valores maiores que 1 por 1 , sendo: y<-rpois(100,2) x<-1:100 dados<-cbind(x,y) dados[dados[, 2] %in% >1, 2] <- 1
Porém, se utilizo >1 não funciona, mas se escolho um valor de cada vez ao invés de >1 funciona, alguém poderia me ajudar?
Obrigado,
tente isso aí: y<-rpois(100,2) x<-1:100 dados<-data.frame(x,y) dados[dados$y>1,]<-1 dados --- Este email está limpo de vírus e malwares porque a proteção do avast! Antivírus está ativa. http://www.avast.com
tudo o q vc esta' fazendo e' a indicadora de y >= 1... as.integer(y >= 1) ou pmin(y, 1) Em 24 de dezembro de 2013 13:21, Fernando Souza <nandodesouza@gmail.com>escreveu:
Em 24/12/2013 12:04, ASANTOS escreveu:
Pessoal,
Gostaria de substituir em dados$y todos os valores maiores que 1 por 1 , sendo: y<-rpois(100,2) x<-1:100 dados<-cbind(x,y) dados[dados[, 2] %in% >1, 2] <- 1
Porém, se utilizo >1 não funciona, mas se escolho um valor de cada vez ao invés de >1 funciona, alguém poderia me ajudar?
Obrigado,
tente isso aí:
y<-rpois(100,2) x<-1:100 dados<-data.frame(x,y) dados[dados$y>1,]<-1 dados
--- Este email está limpo de vírus e malwares porque a proteção do avast! Antivírus está ativa. http://www.avast.com
_______________________________________________ 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.
Boa tarde, Minha sugestão: dados[which(dados[,2]>1),2] dados[which(dados[,2]>1),2] <- 1 Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]
Obrigado Éder e Benilton, Ambas as soluções funcionaram, -- ====================================================================== 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 ====================================================================== Em 24/12/2013 14:06, Éder Comunello escreveu:
Boa tarde,
Minha sugestão:
dados[which(dados[,2]>1),2] dados[which(dados[,2]>1),2] <- 1
Éder Comunello <c <mailto:comunello.eder@gmail.com>omunello.eder@gmail.com <mailto:omunello.eder@gmail.com>> Dourados, MS - [22 16.5'S, 54 49'W]
_______________________________________________ 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.
ifelse() Tambem é uma boa opção. abs Em 24/12/2013 15:06, "Éder Comunello" <comunello.eder@gmail.com> escreveu:
Boa tarde,
Minha sugestão:
dados[which(dados[,2]>1),2] dados[which(dados[,2]>1),2] <- 1
Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]
_______________________________________________ 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.
participantes (6)
-
ASANTOS -
Benilton Carvalho -
Fernando Souza -
Luciano F. Sgarbi -
Rodrigo Coster -
Éder Comunello