library(pathClass)
data(example_data)
matched <- matchMatrices(x=x, adjacency=adjacency.matrix, mapping=mapping)
ad.list <- as.adjacencyList(matched$adjacency)
fit = fit.networkBasedSVM(matched$x[1:5,], y[1:5], DEBUG=TRUE, adjacencyList=ad.list, lambdas=10^(-1:2), sd.cutoff=50)
predict(fit, newdata=matched$x[6:10,])
Run the code above in your browser using DataCamp Workspace