Как решить уравнение в R со средним и SD?

Question

Я должен разрешить оба уравнения, которые вы видите на графике (см. Ниже)

y1 = 38 + 0.067 x

и

y2 = 38 + 0.047 x

для значения топора x = 70

Моя цель - получить значения у (которые легко получить вручную) И стандартное отклонение. Есть ли способ получить его с помощью R?

Спасибо!

Answer 1

По сути, вы смотрите на регрессионную модель, т. Е. Используете lm в R. Однако для ее использования необходимо иметь переменную y. Таким образом, основываясь на данных x и y, модель будет изучать beta, то есть коэффициенты, которые дают наилучший результат, в данном случае Rˆ2.

Итак, если у вас нет а y и, желая использовать вышеприведенное уравнение, вы можете написать простую функцию, что-то вроде:

compute_y = function(intercept = 38, x=70, coefficient){
  y <- intercept + (coefficient * x)
  sdev <-  sd(y)
  return(list(y = y, sdev=  sdev))
}

y1 <- compute_y(coefficient=0.067)
y2 <- compute_y(coefficient=0.047)

Это должно дать значения y. Однако для расчета стандартного отклонения необходим вектор значений x или y, для скалярного значения вычисление sd невозможно.