R语言多元非参数回归有没有package可以调用？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请问R语言多元非参数回归有package可以调用吗？
比如说拟合一个非参数模型
y=x1+exp(x2)+(x3)^2+e, e~N(0,1)
这样的模型用R语言进行多元非参数回归？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：package Pack 非参数 R语言 PAC R语言 非参数回归

非参数回归的R代码：
install.packages("SemiPar")
library(SemiPar);
data(age.income);
attach(age.income);
X=age;
Y=log.income;
plot(X,Y); #画原始数据的散点图

X2=X^2; X3=X^3; X4=X^4;
fit1<-lm(Y~X)
lines(X,fit1$fitted.values,lty=1,col=1,lwd=3)
fit2<-lm(Y~X+X2)
lines(X,fit2$fitted.values,lty=2,col=2,lwd=3)
fit3<-lm(Y~X+X2+X3)
lines(X,fit3$fitted.values,lty=3,col=3,lwd=3)
fit4<-lm(Y~X+X2+X3+X4)
lines(X,fit4$fitted.values,lty=4,col=4,lwd=3)
legend(20,15.1,c("线性","二次","三次","四次"),lty=c(1,2,3,4),col=c(1,2,3,4))



library(locfit);
data(ethanol);
attach(ethanol);
summary(ethanol)
Y=NOx;
X=E;
Y=Y[order(X)]
X=sort(X)
plot(X,Y);
plot(X,Y); #画原始数据的散点图
X2=X^2; X3=X^3; X4=X^4;
fit1<-lm(Y~X)
lines(X,fit1$fitted.values,lty=1,col=1,lwd=3)
fit2<-lm(Y~X+X2)
lines(X,fit2$fitted.values,lty=2,col=2,lwd=3)
fit3<-lm(Y~X+X2+X3)
lines(X,fit3$fitted.values,lty=3,col=3,lwd=3)
fit4<-lm(Y~X+X2+X3+X4)
lines(X,fit4$fitted.values,lty=4,col=4,lwd=3)
legend(0.53,4,c("线性","二次","三次","四次"),lty=c(1,2,3,4),col=c(1,2,3,4))