Gracias Carlos. Finalmente lo solucioné con la de abajo. *data *es la base
de datos original.
Esto:
OOF_prediction <- data.frame(cv_model$pred) %>%
mutate(max_prob = max.col(., ties.method = "last"),
label = trainy + 1)
con:
OOF_prediction = data.frame(cv_model$pred) # predicción convertida en df
colnames(OOF_prediction) = levels(as.factor(data$Clase)) # volver a poner
el nombre
OOF_prediction$pred <- colnames(OOF_prediction)[apply(OOF_prediction , 1,
which.max)]
data$pred<-as.factor(OOF_prediction $pred)
De hecho, cuando os lo pregunté ya lo tenía. Pensaba que estaba mal porque
con *confusionMatrix *me daba un valor de kappa distinto al que yo tenía
calculado con kappa2. Finalmente lo sospeché, lo probé con otros resultados
y ¡por fin!
Mi duda, ahora, es por qué kappa da distinto con *confusionMatrix *y
*kappa2*.
Gracias nuevamente,
Un saludo,
Manuel
El mié, 17 feb 2021 a las 21:54, Carlos Ortega (<cof en
qualityexcellence.es>)
escribió:
> Hola Manuel,
>
> Lo que dice este código es esto:
>
> - Selecciono el campo "pred" de cv_model y lo convierto en
data.frame
> (tidyverse actúa sobre data.frames)
> - Crea una variable nueva (mutate) que es el valor de la columna nonde
> se produce el máximo (de "pred", el "." indica eso).
> - Y en mutate(), crea una segunda variable que la llama
"label" que
> es el valor de "trainy + 1".
> - Y todo esto lo guardo en "OOB_prediction".
>
> Gracias,
> Carlos.
>
> El mié, 17 feb 2021 a las 12:14, Manuel Mendoza (<
> mmendoza en fulbrightmail.org>) escribió:
>
>> ¿Alguien podría leerme esto? Si además me lo pone sin %>% y sin
mutate,
>> me
>> hace un rey, pues llevo horas y no lo consigo.
>>
>> OOF_prediction <- data.frame(cv_model$pred) %>%
>> mutate(max_prob = max.col(., ties.method = "last"),
>> label = trainy + 1)
>>
>> Gracias mil,
>> Manuel
>>
>> [[alternative HTML version deleted]]
>>
>> _______________________________________________
>> R-help-es mailing list
>> R-help-es en r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
[[alternative HTML version deleted]]