# NOT RUN {
data <- toydata1[,1:2]
n <- nrow(data)
split.id <- rep(2,n)
split.id[ sample(n,floor(n/2)) ] <- 1
Jvec = 4:20
icp.torus.objects <- icp.torus(data, split.id = split.id, model = "kmeans", J = Jvec)
hyperparam.J(icp.torus.objects, option = "AIC")
# }
Run the code above in your browser using DataLab