# NOT RUN {
library(TDA)
set.seed(123)
foo.data = list()
for(i in 1:20){
foo = circleUnif(100)
foo.data[[i]] = ripsDiag(foo, 1,1)$diagram}
for(i in 21:40){
foo = cbind(runif(100), runif(100))
foo.data[[i]] = ripsDiag(foo, 1,1)$diagram
}
GSWkernel = gaus.kernel(foo.data, h =1, dimension = 1, q = 2)
GGKclass = krein.svm(kernelmat = GSWkernel, y = rep(c(1,2), c(20,20)))
# }
Run the code above in your browser using DataLab