# Split into data and labels
dataset_train <- dataset_shuffle[1:2000, -1]
dataset_test <- dataset_shuffle[2001:4000, -1]
dataset_train_label <- dataset_shuffle[1:2000, 1]
dataset_test_label <- dataset_shuffle[2001:4000, 1]

# Normalization
normalizedTrainingData <- (dataset_train-min(dataset_train))/(max(dataset_train)-min(dataset_train))
normalizedTestData <- (dataset_test-min(dataset_test))/(max(dataset_test)-min(dataset_test))