# NOT RUN {
dat <- opf_read_subGraph(system.file("extdata/boat.dat",package = "LibOPF"))
X <- opf_split(dat,0.5,0,0.5,0)
T <- X$training
T2 <- X$testing
Y <- opf_train(T)
opf_write_classification(Y$classification, file.path(tempdir(), "classification.txt"))
# }
Run the code above in your browser using DataLab