R语言做非参数回归怎么求回归系数？-经管之家官网！

免费学术公开课,扫码加入

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

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP