[R-br] Substituir valores em um vetor

[ASANTOS]

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 em yahoo.com.br
         alexandre.santos em cas.ifmt.edu.br
Lattes: http://lattes.cnpq.br/1360403201088680
======================================================================