Training <- opf_read_subGraph(system.file("extdata/Z1LINE.dat",package = "LibOPF"))
TUnlabeled <- opf_read_subGraph(system.file("extdata/Z1DOUBLELINE.dat",package = "LibOPF"))
Testing <- opf_read_subGraph(system.file("extdata/Z3.dat",package = "LibOPF"))
Y <- opf_semi(Training,TUnlabeled)
class <- opf_classify(Testing, Y$classifier)
acc <- opf_accuracy(Testing, class)
Run the code above in your browser using DataLab