Проблема с прогнозируемым значением для модели логита

Question

Я пытаюсь найти прогнозируемую вероятность, когда ЭКГ = 2, но получаю сообщение об ошибке.В моем наборе данных 4 столбца и 78 строк.

> head(coronaryheart)

  sex ecg age ca
1   0   0  28  0
2   1   0  42  1
3   0   1  46  0
4   1   1  45  0
5   0   0  34  0
6   1   0  44  1

Вот моя модель:

ca.logit <- glm(ca ~ age + ecg + sex, data=coronaryheart, 
               binomial(link="logit"), 
               na.action="na.exclude")

Моя проблема с кодом ниже.Я довольно плохо знаком с R и некоторое время гуглял.

ageof30 <- with(coronaryheart, data.frame(age=30))
predict(object=ca.logit, newdata=ageof30, type="response")

Сообщение об ошибке:

Error in model.frame.default(Terms, newdata, na.action = na.action, xlev = object$xlevels) : 
  variable lengths differ (found for 'ecg')
In addition: Warning message:
'newdata' had 1 row but variables found have 78 rows 

Что здесь не так?