# NOT RUN {
dat <- opf_read_subGraph(system.file("extdata/boat.dat",package = "LibOPF"))
X <- opf_split(dat,0.3,0.2,0.5,0)
T <- X$training
T2 <- X$testing
E <- X$evaluating
Y <- opf_knn_train(T,E,100)
class <- opf_knn_classify(T2, Y$classifier)
acc <- opf_accuracy(T2, class)
# }
Run the code above in your browser using DataLab