Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(e1071)
- library(caret)
- DB <- read.csv("/home/onu/Desktop/ML/Imtiaz/data.csv")
- DB$class <- as.character(DB$class)
- DB$class <- as.factor(DB$class)
- DB$ind <- sample(2,nrow(DB),replace=TRUE,prob=c(0.7,0.3))
- trainData <- DB[(DB$ind == 1),]
- testData <- DB[(DB$ind ==2),]
- model <- svm(class~age+gender+tB+dB+alkphos+sgpt+sgot+tP+al.B+aG,data=trainData)
- model
- head(testData)
- x_test <- testData[,1:10]
- prediction <- predict(model,x_test)
- testData1 <- na.omit(testData)
- confusionMatrix(testData1$class,prediction)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement