train <- read.csv("../input/train.csv")
test <- read.csv("../input/test.csv")

library(randomForest)
train$label<-factor(train$label)

fit<-randomForest(label~., data=train, ntree=100)
predict<-predict(fit, newdata=test)

result <- data.frame(ImageId=1:nrow(test), Label=predict)
head(result)

write.csv(result, "result_randomForest_100.csv",row.names=FALSE)