I was looking for something like the following. I simply ran the code and copied what appeared in the console.
> DF <- data.frame(Age = runif(n =500, min = 0, max = 100),
+ sex = sample(c("female", "male"), 500, replace = TRUE))
> DF$AGEcut <- cut(x = DF$Age, breaks = seq(0, 100, 5))
> levels(DF$AGEcut)
[1] "(0,5]" "(5,10]" "(10,15]" "(15,20]" "(20,25]" "(25,30]" "(30,35]" "(35,40]"
[9] "(40,45]" "(45,50]" "(50,55]" "(55,60]" "(60,65]" "(65,70]" "(70,75]" "(75,80]"
[17] "(80,85]" "(85,90]" "(90,95]" "(95,100]"
>
What does running this on your system produce?
HH_rep$AGEcut <- cut(HH_rep$age,seq(0,100,5))
levels(HH_rep$AGEcut)