У меня есть три функции, и одна функция сделана из двух других с помощью useMethod ().
logReg <- function(x, ...) UseMethod("logReg")
logRec.numeric <- function(x, y) {
print(x)
}
logReg.formula <- function(formula, data) {
print(formula)
}
Мои функции немного сложнее, но это не имеет значения для моего вопроса.Я хочу, чтобы logReg дополнительно выдавал мне исходный вызов функции в качестве вывода (а не вызов функции logReg.numeric oder logReg.formula).Моя первая попытка была:
logReg <- function(x, ...) {
out <- list()
out$call <- match.call()
out
UseMethod("logReg")
}
Но это не работает.Может кто-нибудь подсказать, как решить мою проблему?