hw4p5

Load files / libraries

library(randomForest)

setwd("./data")
train<-read.csv("sonar_train.csv",header=F)
test<-read.csv("sonar_test.csv",header=F)
setwd("../")

Format training data set. Fit model. Calculate training error.

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)


MickyDowns/mine_algorithms documentation built on May 8, 2019, 10:49 a.m.