tar_feat1 <- create_feature_target(10, 390, 0, 600)
tar_feat2 <- create_feature_target(9, 391, 1, 599)
tar_feat3 <- create_feature_target(8, 392, 0, 600)
test_features(tar_feat1[,1], cbind(tar_feat1[,2], tar_feat2[,2],
tar_feat3[,2]))
Run the code above in your browser using DataLab