## Not run:
# library(pathClass)
# data(example_data)
# matched <- matchMatrices(x=x, adjacency=adjacency.matrix, mapping=mapping)
# dk <- calc.diffusionKernel(L=matched$adjacency, is.adjacency=TRUE, beta=0) # beta should be tuned
# fit <- fit.graph.svm(matched$x[1:5,], y[1:5], DEBUG=TRUE, mapping=matched$mapping,
# diffusionKernel=dk)
# predict(fit, newdata=matched$x[6:10,])
# ## End(Not run)
Run the code above in your browser using DataLab