# lets write a custom function
coo_ellipse_area <- function(x){
prod(coo_lw(x))*pi
}
bm <- measure(bot, coo_area, coo_perim, coo_ellipse_area)
bm
bm$coe
# how to use arguments, eg with the d() function
measure(wings, coo_area, d(1, 3), d(4, 5))
# alternatively
measure(bot$coo, coo_area, coo_perim, coo_ellipse_area)
# and also
measure(bot[1], coo_area, coo_perim, coo_ellipse_area)
Run the code above in your browser using DataLab