R语言做非参数回归怎么求回归系数？

如题。请问用R软件做非参数回归时怎样求回归系数？下图是一个实例（支出为因变量收入为自变量）和用到的代码，输入coef(fit)时显示的是Null顿时就方了。还请各位指教Orz

install.packages("np")

library(np)

library(boot)

install.packages("cubature")(似乎是无必要的代码因为一步骤已经包含)

library(cubature)

# 把数据文件放在根目录文件的下面，或指定你的根目录到数据文件所在的文件夹

dat=read.table("income.txt",head=TRUE)

cuh=dat$income

icup=dat$payment

plot(cuh,icup,xlab="城镇居民的可支配收入",ylab="城镇居民的消费支出")

# 使用非参数h核回归方法，通过最小二乘交叉验证方法(cv.ls)选择最优带宽，核函数为高斯核

bw1=npregbw(icup~cuh,regtype="lc",bwmethod="cv.ls",bwscaling=FALSE,ckerorder=2,ckertype="gaussian")$bw            # 最优带宽 bw=942.80058

fit=npreg(icup~cuh,bws=bw1,gradients=TRUE,residuals = TRUE,regtype="ll")   

summary(fit)                   #  拟合优度 R^2=0.999914

求解答啊啊啊

Mr.Holmes 发表于 2017-3-1 09:12
求解答啊啊啊

你的txt下载都要论坛币。。

Mr.Holmes 发表于 2017-3-1 09:12
求解答啊啊啊

你的附件下载需要论坛币，大兄弟

数据小宝 发表于 2017-3-1 11:19
你的附件下载需要论坛币，大兄弟

可是我没设置下载需要论坛币的啊?

求解答Orz

求答复，真的很急。是不是悬赏不够吸引人Orz

烧一半论坛币来悬赏...求解答qwq

再加100论坛币...

我不太明白
既然是非参数回归，为什么还会有回归系数，系数不就是参数了吗