# NOT RUN {
data <- toydata2[, 1:2]
n <- nrow(data)
split.id <- rep(2, n)
split.id[sample(n, floor(n/2))] <- 1
Jvec <- 3:35
icp.torus.objects <- icp.torus(data, split.id = split.id, model = "kmeans",
kmeansfitmethod = "ge", init = "h",
J = Jvec, verbose = TRUE)
hyperparam.torus(icp.torus.objects, option = "risk")
# }
Run the code above in your browser using DataLab