Я пытаюсь построить интервал прогнозирования для линейной модели в ggplot.
Следуя инструкциям на других сайтах, я написал следующее
коды:
model1 <- lm(rate ~ conc, data=origin)
temp_var <- predict(model1, interval="prediction")
new_df <- cbind(origin, temp_var)
ggplot(data = new_df, aes(x = conc, y = rate))+
geom_line(data=plot, aes(x=x, y=y, group=group)) +
geom_point(color="#2980B9", size = 0.5) +
geom_line(aes(y=lwr), color = "#2980B9", linetype = "dashed")+
geom_line(aes(y=upr), color = "#2980B9", linetype = "dashed")
Поскольку я хочу предсказать значения за пределами моего диапазона данных (синие точки), я
хотел бы расширить диапазон предсказания. Но проблема заключается в "LWR" и
«upr», сгенерированный функцией предикта, предоставляет только значения в моих данных
диапазон, как показано на следующем графике.
Есть ли способ расширить диапазон предсказания?
Большое спасибо за вашу помощь.