library(randomForest)
## Warning: package 'randomForest' was built under R version 3.1.1
## randomForest 4.6-10
## Type rfNews() to see new features/changes/bug fixes.
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)
## [1] 0
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.