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==