r - R 黄土曲线之间的插值
问题描述
黄土曲线已拟合以下数据:
library(tidyverse)
data <- tribble(~x, ~y,
1, 0.254334545,
2, 0.495754951,
3, 0.711091409,
4, 0.864910881,
5, 0.941040554,
6, 0.97463615,
7, 0.989459747,
8, 0.995969154,
9, 0.998773181,
10, 1)
x <- data$x
y <- data$y
lo <- loess(y~x)
plot(x,y)
xl <- seq(min(x),max(x), (max(x) - min(x))/1000)
lines(xl, predict(lo,xl), col='red', lwd=2)
如何提取平滑函数的值,y for x = c(1.5, 2.5, 3.5) 说?
谢谢。
解决方案
您可以使用predict.loess
LOESS 拟合进行预测
# Fit LOESS model
fit <- loess(y ~ x, data = data)
# Predict y values for x = c(1.5, 2.5, 3.5)
predict(fit, data.frame(x = c(1.5, 2.5, 3.5)))
# 1 2 3
#0.3849209 0.6154395 0.7926339
或者返回一个data.frame
df <- data.frame(x = c(1.5, 2.5, 3.5))
transform(df, y.pred = predict(fit, df))
# x y.pred
#1 1.5 0.3849209
#2 2.5 0.6154395
#3 3.5 0.7926339
推荐阅读
- laravel - Laravel Nova 组件中的 FullCalendar
- php - Wordpress 出现在错误的 cPanel 帐户上
- javascript - API 数据打印到节点中的控制台,但不显示在 html 中
- twitter-bootstrap - Bootstrap 4 html 工具提示正在删除内联样式
- flutter - 如何检测 Widget 何时获得或失去焦点 - Flutter
- javascript - 如何使用 SignalR 向特定用户发送数据?
- filepond - Filepond 水平预览图像
- python - Python:区分大小写的键盘记录器“
- javascript - React Formik:单击复选框时如何在formik中设置默认值?
- c++ - 匿名命名空间中的 const 与静态 const