[R-es] SVM plot duda

[Jose Betancourt Bethencourt]

Estimados
En este modelo no puedo hacer el plot(svmfit,df11 ) #AQUI NO TRABAJA
Le adjunto Excel


library(readxl)

df11
attach(df11)

df11$fallecido=factor(df11$fallecido)

# Selección de una submuestra del 70% de los datos
set.seed(101)
tamano.total <- nrow(df11)
tamano.entreno <- round(tamano.total*0.7)
datos.indices <- sample(1:tamano.total , size=tamano.entreno)
datos.entreno <- df11[datos.indices,]
datos.test <- df11[-datos.indices,]

# Ejecución del modelo SVM
modelo <- svm(fallecido~., data=datos.entreno)

# Predicción de los restantes
prediccion <- predict(modelo,new=datos.test)

# Tabla de confusión.

(mc <- with(datos.test,(table(prediccion,fallecido))))


# % correctamente clasificados
(correctos <- sum(diag(mc)) / nrow(datos.test) *100)


plot(svmfit,df11 ) #AQUI NO TRABAJA

Saludos José

------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: df11.xlsx
Type: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
Size: 13680 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20230216/f0b9d42b/attachment.xlsx>