r - R 线性回归 - 插值 - 近似 - xout 给出 NA

Question

我想根据标准图预测值-下面是线性回归和插值的数据和代码

Library(tidyverse)
stddat = tibble(x = c (5, 25, 50, 125, 250),
             y = c(.0173, 0.123, 0.242, 0.545, 0.958))
plot(x = stddat$x, y = stddat$y)
dat.model = lm(stddat$y~stddat$x)
result_values = approx(y = dat.model$fitted.values, x =stddat$x)
lines(x = result_values$x, y = result_values$y)
calForx = c("B_ad" =  0.662, "A_ad" =  0.0091)
approx(y = dat.model$fitted.values, x =stddat$x, xout = calForx)

但输出是

$x
Before_adsorption  After_adsorption 
           0.6620            0.0091 
$y
[1] NA NA

怎么了？如何预测给定“y 值”的“x 值”。请提供信息以获得结果。

标签： rlinear-regressioninterpolation

Answer 1

答案：近似函数——总是计算给定“x 值”的“y 值”

 approx(x = dat.model$fitted.values, y =stddat$x, xout = calForx)