AgeTest <- c("12-","13","14","55+")
(AgeNew <- age2int(AgeTest))
AgeNew + .5 # sort of mid-interval
# also handles abrdiged ages properly:
AgeAbridged <- c("0","1-4","5-9","10-14")
age2int(AgeAbridged)
Run the code above in your browser using DataLab