Как переписать коэффициенты регрессии для формирования уравнения? R

Question

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

как записать коэффициенты регрессии, чтобы сформировать уравнение? Так что можно выделить «х». Ожидаемый результат:

K = 359,6182526432944 -2,475447990866698 * x

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

Я пытался использовать функцию выражения, но это не удалось работа:

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

Answer 1

Вы можете получить доступ к коэффициентам вашего объекта линейной модели следующим образом:

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

, поэтому

eq <- expression(b + k*x)