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é
df11.xlsx
Description: MS-Excel 2007 spreadsheet
_______________________________________________ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es