# You can write R code here and then click "Run" to run it on our platform

library(readr)
library(xgboost)

# The competition datafiles are in the directory ../input
# Read competition data files:
train <- read_csv("../input/train.csv")
test <- read_csv("../input/test.csv")
label<-train$label
train<-as.matrix(train[,-1])
train<- matrix(as.numeric(train),nrow(train),ncol(train))


test<-as.matrix(test)
test<- matrix(as.numeric(test),nrow(test),ncol(test))


#Fit model

bst<-xgboost(data = train, label = label, max.depth = 6, eta = .3, nround =10,
               nthread = 2, objective = "multi:softmax",num_class=10)

predictions<-data.frame(Imageid=1:nrow(test),Label=NA)
predictions[,2]<-predict(bst,test)


write.csv(predictions,'xgboost.csv',row.names=F)