非参数回归

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我不知道R里面非参数回归的函数怎么用？求大神指点
举一最简单例子
x<-c(1,2,4,7,11)
y<-c(9,0,3,2,7)
做x对y的一元非参数回归，核估计或局部线性都行。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：非参数回归 非参数 最简单 不知道 我不知道

1. 核估计的话：  
x<-c(1,2,4,7,11)
y<-c(9,0,3,2,7)h <- 0.055fx.hat <- function(z, h) {    dnorm((z - x)/h)/h}NWSMOOTH <- function(h, y, x) {    n <- length(y)    s.hat <- rep(0, n)    for (i in 1:n) {        a <- fx.hat(x, h)        s.hat <- sum(y * a/sum(a))    }    return(s.hat)}
   
2. 局部多项式：
x<-c(1,2,4,7,11)
y<-c(9,0,3,2,7)h <-0.055
LPRSMOOTH <- function(y, x, h) {    n <- length(y)    s.hat <- rep(0, n)    for (i in 1:n) {        weight <- dnorm((x - x)/h)        mod <- lm(y ~ x, weights = weight)        s.hat <- as.numeric(predict(mod, data.frame(x = x)))    }    return(s.hat)}

3. 也可以用现成的函数loess()来做loess回归
loess(y~x,data,span)