如何从系数列表中获取lm对象并在R中进行拦截

Question

我有一个带截距的系数列表，我想从中创建一个R lm对象。这可能吗，如果可以，怎么办？

Answer 1

如果我们知道截距和斜率，并且x是我们想知道y的某个值，我们可以使用y =截距+斜率* x。

上面的代码很简单，我们实际上并不需要lm对象，但是如果您仍然确实想要lm对象，请注意，如果x = 0则y =截距，如果x = 1则y =截距+斜率，因此下面的fm是必需的lm对象：

intercept <- 1; slope <- 2 # test data

y <- c(intercept, intercept + slope)
x <- 0:1

fm <- lm(y ~ x)

# suppose we want to know y given x = 3. Here are two ways.

predict(fm, list(x = 3))
## 1 
## 7 

intercept + slope * 3
## [1] 7