y = ifelse(train$Target == "Control", 1, 0)
y_test = ifelse(test$Target  == "Control", 1, 0)
klr_predict = KLR(data.matrix(train[,-1]),y,data.matrix(test[,-1]))

> klr_predict
[1] 0.7577828 0.7577828 0.7577828 0.7577828 0.7577828 0.7577828 0.7577828 0.7577828 0.7577828 0.7577828 0.7577828