library(randomForest)
library(readr)

set.seed(0)

numTrain <- 10
numTrees <- 25

train <- data.frame(read_csv("../input/train.csv"))
test <- read_csv("../input/test.csv")

train <- train[1:20,]

rows <- sample(1:nrow(train), numTrain)
print(rows)
labels <- as.factor(train[rows,]$label)
train <- train[rows,-1]

x <- split( train, rows )
print(dim(x))
#rf <- randomForest(train, labels, xtest=test, ntree=numTrees)
#predictions <- data.frame(ImageId=1:nrow(test), Label=levels(labels)[rf$test$predicted])
#print(predictions)
print(dim(train))