library(kernlab) # Load kernlab package (used for SVM via ksvm) library(kknn)

data <- read.table(“credit_card_data.txt”, header = F, stringsAsFactors = F)

Display the first few rows of the dataset to verify it loaded correctly

head(data)

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQpsaWJyYXJ5KGtlcm5sYWIpICAgIyBMb2FkIGtlcm5sYWIgcGFja2FnZSAodXNlZCBmb3IgU1ZNIHZpYSBrc3ZtKQpsaWJyYXJ5KGtrbm4pIAoKZGF0YSA8LSByZWFkLnRhYmxlKCJjcmVkaXRfY2FyZF9kYXRhLnR4dCIsIGhlYWRlciA9IEYsIHN0cmluZ3NBc0ZhY3RvcnMgPSBGKQoKIyBEaXNwbGF5IHRoZSBmaXJzdCBmZXcgcm93cyBvZiB0aGUgZGF0YXNldCB0byB2ZXJpZnkgaXQgbG9hZGVkIGNvcnJlY3RseQpoZWFkKGRhdGEpCg==