Systemfit, чтобы сделать из выборочного прогноза

Question

Это взято из systemfit"s predict документация С некоторыми изменениями, чтобы сделать так, чтобы одно уравнение зависело от выходных данных другого.

data( "Kmenta" )
eqDemand <- consump ~ price + income
eqSupply <- price ~ consump + farmPrice + trend

## want to OOS prediction for 20th observation...
Kmenta$consump[[20]] = NA
Kmenta$price[[20]] = NA


system <- list( demand = eqDemand, supply = eqSupply )


## OLS estimation
fitols <- systemfit( system, data=Kmenta[1:19, ])

predict(fitols,newdata=Kmenta[20, ])

возвращается

[1] demand.pred supply.pred
<0 rows> (or 0-length row.names)

У меня два вопроса: почему он не возвращает предсказания для обоих demand а также supply? Как я могу изменить так, чтобы predict делает прогноз для обоих неизвестных значений?