[R-es] Cómo leer %>% y mutate

[Manuel Mendoza]

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 using 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 using 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 using r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>

	[[alternative HTML version deleted]]