时间戳

首页 > 解决方案 > 如何重写回归系数以形成方程？R

r - 如何重写回归系数以形成方程？R

问题描述

test<-lm(spreadsheet[,1]~spreadsheet[,2])
test<-test[1][[1]]
> test
(Intercept) spreadsheet[, 2] 
  359.6182526432944  -2.475447990866698

如何写出回归的系数以形成方程？这样就可以隔离“​​x”。预期输出：

K= 359.6182526432944 -2.475447990866698 *x

x= -(17249403*K-6203200166)/42700000

我尝试使用表达式函数，但它不起作用：

> eq<- expression(test[1][[1]]*x)
> eq
expression(test[1][[1]] * x)

标签： r

解决方案

您可以像这样访问线性模型对象的系数

b <- test$coefficients[1]  ### intercept
k <- test$coefficients[2]  ### slope

所以

eq <- expression(b + k*x)

推荐阅读