R 中的 LOESS 模型

Question

我正在尝试建立一个基于自变量 X 预测 Y 的 LOESS 模型

数据样本是，

x <- c(10, 20, 25, 32, 40)    
y <- c(1200, 1400, 1460, 1620, 1800)

我使用的步骤如下，

lw1 <- loess(y ~ x,data=data)            
plot(y ~ x, data=data,pch=19,cex=0.1)               
j <- order(data$x)              
lines(data$x[j],lw1$fitted[j])

在上面的数据样本中，我们只有 1 个自变量 x。

现在如果我们有 2 个自变量怎么办？如何获取以下示例数据的模型，

x1 <- c(10,20,25,32,40)                   
x2 <- c(1.2,1.4,1.5,2.1,2.8)                
y <- c(1200,1400,1460,1620,1800)

请帮我一个R样本，我们如何处理LOESS模型中的X1和X2？？？

Answer 1

这里有一个 loess(y ~ x1 + x2) 和 predict 的例子：

fit <- loess(y ~ x1 + x2);

pred <- data.frame(ypred = predict(fit, data.frame(x1 = x1, x2 = x2)));
pred$x1 <- x1;
pred$x2 <- x2;
pred$y <- y;

pred;
#      ypred x1  x2    y
#1 1199.8667 10 1.2 1200
#2 1016.4015 20 1.4 1400
#3  728.8215 25 1.5 1460
#4 1620.0000 32 2.1 1620
#5 1799.6245 40 2.8 1800

示例数据

x1 <- c(10,20,25,32,40)                   
x2 <- c(1.2,1.4,1.5,2.1,2.8)                
y <- c(1200,1400,1460,1620,1800);

R 中的 LOESS 模型

LOESS model in R

r

loess

示例数据