预测R中非参数模型的值

Question

目标是使用包monreg模型预测测试集的值，但这不能与预测函数一起使用，因为没有模型对象可以使用预测函数。

举个例子：

require(monreg)   # Package ‘monreg’ 
x <- rnorm(100)
y <- x + rnorm(100)

x_train=x[0:80]
y_train=y[0:80]
x_test=x[81:100]
y_test=y[81:100]

mon1 <- monreg(x, y, hd = .5, hr = .5)

# I was expecting to get the prediction over the test partion as R usualy works
predict(mon1,h=length(y_test))

但这不起作用。 如果这个包没有任何预测函数，我会接受任何建议来实现R中的Narayada Watson回归，以便预测像我给出的这个例子的值。