Я работаю над проектом для профилирования выходных данных функции, поэтому мне нужно передать функцию в качестве аргумента в R. Чтобы уточнить, у меня различное количество моделей, и я не ищу помощи в настройке моделей, просто передаю Имена функций модели в функцию оценки.

Это работает для прямого вызова, но я хочу сделать его более общим для построения модуля. Вот краткий пример:

#create a test function:
model1 = function(y,X){
fit = lm(y~X)
output = data.frame(resid = fit$residuals)
}

#score function:
score = function(y,X,model){
y= as.matrix(y) 
X = as.matrix(X)
fitModel = model(y,X)
yhat = y - fitModel$residual
output = data.frame(yhat=yhat)
}

Я могу назвать этот код с действительными y и X матами с

df