library(Rcmdr)
BinAlt <- bin.var(pelican$Altitude, bins=10, method='intervals', labels=c('1','2','3','4','5','6','7','8','9','10'))