いくつかのデータ ポイントf1
に適合した線形モデルがあるx
とします。y
f1 <- lm(y ~ x,data=d)
Rでこの適合を使用してy
、新しいx
値 (古い値とは異なりx
ますが、古い値の範囲内にある) で新しい値を生成するにはどうすればよいですか?x
f1
いくつかのデータ ポイントf1
に適合した線形モデルがあるx
とします。y
f1 <- lm(y ~ x,data=d)
Rでこの適合を使用してy
、新しいx
値 (古い値とは異なりx
ますが、古い値の範囲内にある) で新しい値を生成するにはどうすればよいですか?x
f1
私は同じ問題を見ています。
簡単に言えば、残差からのサンプルを使用して実行できます。
mod <- lm(y ~ x, data = df)
x_new <- c(5) # value that you need to simulate for.
pred <- predict(mod, newdata=data.frame(x = x_new))
err <- sample(mod$residuals, 1)
y <- pred + err
simulate(fit, nsim = 10, XX = x_new)
あなたのためにそれを行うはずの関数があります。
これに使用できますpredict
:
x <- runif(20, 0, 100)
y <- 5*x + rnorm(20, 0, 10)
df <- data.frame(x, y)
df
plot(df)
mod <- lm(y ~ x, data = df)
x_new <- 1:100
pred <- predict(mod, newdata=data.frame(x = x_new))
plot(df)
points(x_new, pred)