# NOT RUN {
O <- c(1,2, 10,11,12,13,14,15, 27,28,29,30,31,32, 40,41)
K <- 3
Circumference <- 42
# Perform circular clustering:
output <- CirClust(O, K, Circumference)
# Visualize the circular clusters:
opar <- par(mar=c(1,1,2,1))
plot(output)
par(opar)
# }
Run the code above in your browser using DataLab