# Set working directory
setwd("/Users/oindrilasen/WORK_AREA/Data Science/kaggle/Digit_Recognizer")
# Load the data
digits_train <- data.matrix(read.csv("train.csv"))
# check the dimension
dim(digits_train) # 42000, 785
# Check the structure
str(digits_train)
View(head(digits_train))
# Let's check the Lable column uniue values
unique(digits_train[,1])
# Let's check how many records are there for each number
table(digits_train[,1])
# let's plot the Number's count
barplot(table(digits_train[,1]), col=rainbow(10, 0.5),
        main="Digits Count in Train")