library(randomForest) setwd("./data") train<-read.csv("sonar_train.csv",header=F) test<-read.csv("sonar_test.csv",header=F) setwd("../")
y_train<-as.factor(train[,61]) x_train<-train[,1:60] fit<-randomForest(x_train, y_train, ) 1-sum(y_train==predict(fit,x_train))/length(y_train)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.