Boa tarde,

Minha sugestão:

dados[which(dados[,2]>1),2]

dados[which(dados[,2]>1),2] <- 1

Éder Comunello <c omunello.eder@gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]