Как бы я сделал функцию в г работать с любым количеством ввода

Question

Функция, которую я сделал, предсказывает первый коэффициент. Есть ли простой способ сделать это, сколько бы вводных данных вам не дали, или мне нужно было бы сделать кучу операторов if else для длины векторных коэффициентов.

fitted_line <- function(coeff, father){
  coeff[1] + coeff[2]*father
}
fit_2<- lm(Strength ~  Cement + Superplasticizer + Age + Water, data = concrete)
fitted_line(fit_2$coefficients, 250)

Answer 1

Используйте небольшое изменение в вашей функции:

fitted_line <- function(coeff, father){
  return(sum(coeff * c(1,father)))
}

Обратите внимание, что coeff должен быть вектором length >= 2, а father - length(coeff) - 1.