# NOT RUN {
shapes[4] %>% coo_sample(64) %>% coo_plot() #clockwise cat
shapes[4] %>% coo_likely_clockwise()
shapes[4] %>% coo_rev() %>% coo_likely_clockwise()
# on Coo
shapes %>% coo_likely_clockwise %>% `[`(4)
# }
Run the code above in your browser using DataLab