Лубридатное вычитание возвращает только числовое значение

У меня есть один переменная с именем Начата , которая является датой включения людей в исследование, и другая переменная с именем dos1 , которая представляет собой дату, когда субъекту в последний раз была сделана операция. Я хочу выяснить, как много месяцев с момента их последней операции до дня зачисления. Я пробовал:

as.period(syrrupan$Started-syrrupan$dos1,units=c("month"))

Я ожидал этого чтобы дать мне что-то вроде:

14, 18, 1, 26 

Каждое число - это количество месяцев.

Вместо этого я получаю:

1 year, -4 months, -5 days and -1 hours   1 year, -5 months, -23 days and -1 hours   1 year, -7 months, 2 days and -1 hours   1 year, -8 months, -28 days and 1 hour   1 year, -7 months, -23 days and 1 hour.   

Как я могу получить только числовое значение месяцев?