Может ли модель R соответствовать константе?

Question

Я пытаюсь добавить константу в мою модель

 exponential <- lm((log(fallpercent$n_activities)~ 
 ((fallpercent$percentabovebelow1 )+3)) 

Это приводит к ошибке

Error in terms.formula(formula, data = data) : 
  invalid model formula in ExtractVars. 

Я пытаюсь создать функцию с эквивалентом у = е^{х + 3}.

Идеи о том, как это сделать?

Answer 1

Я пытаюсь создать функцию с эквивалентом у = е ^(х +3) идеи о том, как это сделать?

Вы просто пытаетесь создать эту функцию?

myFunc <- function(x) {
  exp(x + 3)
}

myFunc(2)
[1] 148.4132

Answer 2

Вы можете исправить перехват в lm если хочешь. Я верю, что следующее может вам помочь. Я использовал ирис в качестве примера данных.

Сначала с перехвата.

fit <- lm(log(Sepal.Length) ~ Sepal.Width, data = iris)
fit

#Call:
#lm(formula = log(Sepal.Length) ~ Sepal.Width, data = iris)

#Coefficients:
#(Intercept)  Sepal.Width  
#    1.88199     -0.04141  

Сейчас без

fit <- lm(log(Sepal.Length) - 1.88199 ~  0 + Sepal.Width, data = iris)
fit

#Call:
#lm(formula = log(Sepal.Length) - 1.88199 ~ 0 + Sepal.Width, data = iris)

#Coefficients:
#Sepal.Width  
   -0.04141 

Здесь 1.88199 - это 3 ваших случая и т. Д.