# NOT RUN {
# for speed sake
b1 <- coo_sample(bot[1], 12)
b5 <- bot %>% slice(1:5) %>% coo_sample(12)
# coo_perim
coo_perim(b1)
coo_perim(b5)
# coo_perimpts
coo_perimpts(b1)
b5 %>% coo_perimpts()
# coo_perimcum
b1 %>% coo_perimcum()
b5 %>% coo_perimcum()
# }
Run the code above in your browser using DataLab