Create a function age that receives one argument, birthdate, representing a person's birthday in numeric character string format "dd-mm-yvy" (eg. 06-01-1958) and returns the age of the person in year, months and days. The function should return the message: "Age is xx years yy months and 22 days", where xx, yy and zz represent the calculated age of the person.

In R programming