Замена чисел в диапазоне коэффициентом

Учитывая столбец фрейма данных, который представляет собой серию целых чисел (возраст), я хочу преобразовать диапазоны целых чисел в порядковые переменные.

Мой текущий код не не работает, как мне это сделать?

df <- read.table("http://dl.dropbox.com/u/822467/df.csv", header = TRUE, sep = ",")

df[(df >= 0)  & (df <= 14)] <- "Age1"
df[(df >= 15) & (df <= 44)] <- "Age2"
df[(df >= 45) & (df <= 64)] <- "Age3"
df[(df > 64)] <- "Age4"

table(df)