data_train <- RKEEL::loadKeelDataset("car_train")
data_test <- RKEEL::loadKeelDataset("car_test")
#Create algorithm
algorithm <- RKEEL::SSGA_Integer_knn_FS(data_train, data_test)
algorithm <- RKEEL::SSGA_Integer_knn_FS(data_train, data_test, nEval = 10, pop_size = 10)
#Run algorithm
algorithm$run()
#See results
algorithm$preprocessed_test
Run the code above in your browser using DataLab