Доступ к переменным в e1071 для пользовательской error.fun

Question

Я пытаюсь написать функцию, которая вычисляет F1, чтобы я мог использовать F1 в качестве error.fun в tune.svm с помощью библиотеки e1071. Я нашел базовый код:

                repeat.errors[reps] <- if (!is.null(tunecontrol$error.fun))
                    tunecontrol$error.fun(true.y, pred)
                else if ((is.logical(true.y) || is.factor(true.y)) && (is.logical(pred) || is.factor(pred) || is.character(pred))) ## classification error
                    1 - classAgreement(table(pred, true.y))
                else if (is.numeric(true.y) && is.numeric(pred)) ## mean squared error
                    crossprod(pred - true.y) / length(pred)
                else
                    stop("Dependent variable has wrong type!")

по адресу: https://github.com/cran/e1071/blob/master/R/tune.R

Я хотел бы получить доступ к переменным для прогнозов для отдельных складок. Я думаю, что они хранятся в векторах true.y и pred в приведенном выше коде, но я не могу понять, как: #1) Просматривать эти векторы, чтобы я мог видеть, действительно ли они содержат нужные мне значения и #2) Используйте эти значения в моя функция.

Я пробовал: toString(true.y) toString(pred) print(true.y) print(pred)

но ничего из этого не работает. Как я могу получить доступ к этим переменным?