выход confusionMatrix в виде таблицы .csv

Question

У меня есть следующий код приводит к таблице, как выход

lvs <- c("normal", "abnormal") 
truth <- factor(rep(lvs, times = c(86, 258)), 
       levels = rev(lvs)) 
pred <- factor(
       c(
        rep(lvs, times = c(54, 32)), 
        rep(lvs, times = c(27, 231))),    
       levels = rev(lvs)) 

xtab <- table(pred, truth) 

library(caret) 
confusionMatrix(xtab) 

confusionMatrix(pred, truth) 
confusionMatrix(xtab, prevalence = 0.25) 

Я хотел бы экспортировать ниже часть вывода в виде таблицы .csv

   Accuracy : 0.8285   
       95% CI : (0.7844, 0.8668) 
    No Information Rate : 0.75    
    P-Value [Acc > NIR] : 0.0003097  

        Kappa : 0.5336   
Mcnemar's Test P-Value : 0.6025370  

      Sensitivity : 0.8953   
      Specificity : 0.6279   
     Pos Pred Value : 0.8783   
     Neg Pred Value : 0.6667   
      Prevalence : 0.7500   
     Detection Rate : 0.6715   
    Detection Prevalence : 0.7645   
     Balanced Accuracy : 0.7616 

Попытка записать его как .csv таблице результатов в сообщении об ошибке:

write.csv(confusionMatrix(xtab),file="file.csv") 
Error in as.data.frame.default(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors) : 
cannot coerce class ""confusionMatrix"" to a data.frame 

Выполнение всей работы вручную, по очевидным причинам, нецелесообразно и подвержено человеческим ошибкам.

Любые предложения по его экспорту как .csv?

Answer 1

Итак, если вы проверяете выход confusionMatrix(xtab, prevalence = 0.25), это список:

cm <- confusionMatrix(pred, truth) 
str(cm) 

    List of 5 
$ positive: chr "abnormal" 
$ table : 'table' int [1:2, 1:2] 231 27 32 54 
    ..- attr(*, "dimnames")=List of 2 
    .. ..$ Prediction: chr [1:2] "abnormal" "normal" 
    .. ..$ Reference : chr [1:2] "abnormal" "normal" 
$ overall : Named num [1:7] 0.828 0.534 0.784 0.867 0.75 ... 
    ..- attr(*, "names")= chr [1:7] "Accuracy" "Kappa" "AccuracyLower" "AccuracyUpper" ... 
$ byClass : Named num [1:8] 0.895 0.628 0.878 0.667 0.75 ... 
    ..- attr(*, "names")= chr [1:8] "Sensitivity" "Specificity" "Pos Pred Value" "Neg Pred Value" ... 
$ dots : list() 
- attr(*, "class")= chr "confusionMatrix" 

С этого момента вы выбираете соответствующие объекты, которые вы хотите создать файл CSV из и сделать data.frame, который будет есть столбец для каждой переменной. В вашем случае это будет:

tocsv <- data.frame(cbind(t(cm$overall),t(cm$byClass))) 

# You can then use 
write.csv(tocsv,file="file.csv")