# You can write R code here and then click "Run" to run it on our platform
library(readr)
library(randomForest)
train <- (read_csv("../input/train.csv"))


numTrain <- 42000
set.seed(1)
labels <- as.factor(train[,1]$label)
testData <- data.frame(read_csv("../input/test.csv"))
train <- train[ , -1]


rf <- randomForest(train, labels, xtest=testData, ntree=250)
predicted1 <- (data.frame(ImageId=1:nrow(testData), Label=rf$test$predicted))

head(predicted1)
write_csv(predicted1, "rf_benchmark.csv")