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