# NOT RUN {
data <- toydata1[, 1:2]
icp.torus <- icp.torus(data, model = "kmeans",
mixturefitmethod = "general",
J = 4, concentration = 25)
icp.torus.eval(icp.torus, level = c(0.1, 0.08), eval.point = grid.torus())
# }
Run the code above in your browser using DataLab