**r-bloggers on Programming with R**, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Kannada MNIST dataset is another MNIST-type Digits dataset for Kannada (Indian) Language. All details of the dataset curation has been captured in the paper titled: “Kannada-MNIST: A new handwritten digits dataset for the Kannada language.” by **Vinay Uday Prabhu**. The github repo of the author can be found here.

The objective of this post is to demonstrate how to use `h2o.ai`

’s `automl`

function to quickly get a (better) baseline. Thsi also proves a point how these `automl`

tools help democratizing Machine Learning Model Building process.

### Loading required libraries

`h2o`

– for Machine Learning`tidyverse`

– for Data Manipulation

```
library(h2o)
library(tidyverse)
```

### Initializing H2O Cluster

`h2o::h2o.init()`

### Reading Input Files (Data)

```
train <- read_csv("~/Documents/R Codes/Kannada-MNIST/train.csv")
test <- read_csv("~/Documents/R Codes/Kannada-MNIST/test.csv")
valid <- read_csv("~/Documents/R Codes/Kannada-MNIST/Dig-MNIST.csv")
submission <- read_csv("~/Documents/R Codes/Kannada-MNIST//sample_submission.csv")
```

### Checking the shape / dimension of the dataframe

`dim(train)`

784 Pixel Values + 1 Label denoting what digit it’s.

### Label Count

`train %>% count(label)`

### Visualizing the Kannada MNIST Digits

```
# visualize the digits
par(mfcol=c(6,6))
par(mar=c(0, 0, 3, 0), xaxs='i', yaxs='i')
for (idx in 1:36) {
im<-matrix((train[idx,2:ncol(train)]), nrow=28, ncol=28)
im_numbers <- apply(im, 2, as.numeric)
image(1:28, 1:28, im_numbers, col=gray((0:255)/255), main=paste(train$label[idx]))
}
```

### Converting R dataframe to H2O object which is required by H2O functions

```
train_h <- as.h2o(train)
test_h <- as.h2o(test)
valid_h <- as.h2o(valid)
```

### Converting our numeric target variable into a factor for the algorithm to perform Classification

```
train_h$label <- as.factor(train_h$label)
valid_h$label <- as.factor(valid_h$label)
```

### Explanatory and Response Variables

```
x <- names(train)[-1]
y <- 'label'
```

### AutoML in Action

```
aml <- h2o::h2o.automl(x = x,
y = y,
training_frame = train_h,
nfolds = 3,
leaderboard_frame = valid_h,
max_runtime_secs = 1000)
```

`nfolds`

denotes the number of folds for cross-validation and `max_runtime_secs`

represents the maximum amount of time the AutoML process can go on.

### AutoML Leaderboard

Leaderboard is where the AutoML lists the top performing Models.

`[email protected]`

### Prediction and Submission

```
pred <- h2o.predict(aml, test_h)
submission$label <- as.vector(pred$predict)
#write_csv(submission, "submission_automl.csv")
```

### Submission (for Kaggle)

`write_csv(submission, "submission_automl.csv")`

This is currently a playground Competition on Kaggle. So, this submission file can be submitted to this competition. Based on the above parameters the submission scored `0.90720`

in the public leaderboard. `0.90`

score in an MNIST Classification is close to nothing, but I hope this code snippet can serve as quick starter template for anyone attempting to begin with AutoML.

### References

**If you liked this, Please subscribe to my Language-agnostic Data Science Newsletter and also share it with your friends!**

**leave a comment**for the author, please follow the link and comment on their blog:

**r-bloggers on Programming with R**.

R-bloggers.com offers

**daily e-mail updates**about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.