# NOT RUN {
## convert clock coordinates to cartesian coordinates
xy <- clock2cart(rho=rep(1,33),phi=seq(0,to=360,length.out=33),circle=360)
## convert the cartesian coordinates back to clock coordinates
rhophi <- cart2clock(xy$x,xy$y,circle=360)
round(clock2cart(rhophi,circle=360)-xy)
## QED
# }
Run the code above in your browser using DataCamp Workspace