Given_Training_data <- get(load("Given_Training_data.RData"))
Given_Testing_data <- get(load("Given_Testing_data.RData"))

Maximum_Pixel_value = max(Given_Training_data)
Tot_Col_Train_data = ncol(Given_Training_data)
training_data_adjusted <- Given_Training_data[, 2:ncol(Given_Training_data)]/Maximum_Pixel_value
testing_data_adjusted <- Given_Testing_data[, 2:ncol(Given_Testing_data)]/Maximum_Pixel_value
label_training_data <- Given_Training_data$label
final_training_data <- cbind(label_training_data, training_data_adjusted)


smp_size <- floor(0.75 * nrow(final_training_data))

set.seed(100)
training_ind <- sample(seq_len(nrow(final_training_data)), size = smp_size)
training_data1 <- final_training_data[training_ind, ]
testing_data1 <- final_training_data[-training_ind, ]
train_no_label1 <- training_data1[-final_training_data$label_training_data]
train_label1 <-training_data1$label_training_data
test_no_label1 <- testing_data1[-final_training_data$label_training_data]
test_label1 <- testing_data1$label_training_data

svm_model1 <- svm(train_label1,train_no_label1) #This line is throwing an error