we are preparing notebook in R language. Here it\'s our code:
trainset <- read.csv("train.csv", header = TRUE, sep = ",") testset <