В настоящее время я работаю над нейронными сетями и по какой-то странной причине получаю случайную ошибку, утверждающую, что при передаче их в функцию точности необходимо указать число c, как показано ниже.
Фрагмент кода:
originalValues <- max.col(dataTest[,11:15])
originalValues
predictedValues <- max.col(predictedResult)
predictedValues
CrossTable(originalValues, predictedValues, prop.r = FALSE, prop.c = FALSE, prop.t = FALSE,
prop.chisq = FALSE)
originalValues
predictedValues
Accuracy(originalValues, predictedValues)
Precision(originalValues, predictedValues)
Recall(originalValues, predictedValues)
При выполнении этого кода по какой-то причине работает функция точности, а функции точности и возврата работают странно, как показано ниже.
Результат :
> originalValues
[1] 1 1 1 1 1 2 2 3 3 3 4 4 4 4 4 5 5 5
> predictedValues
[1] 2 2 2 2 2 2 2 3 3 3 5 5 5 5 5 5 5 5
> Accuracy(originalValues, predictedValues)
[1] 0.4444444
> Precision(originalValues, predictedValues)
Error in FUN(X[[i]], ...) :
only defined on a data frame with all numeric variables
> Recall(originalValues, predictedValues)
[1] NA