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

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

0 голосов
/ 15 октября 2018

это взято из systemfit 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 делал прогноз для обоих неизвестных значений?

...