data(morphSnodgrassHeller)
finch_isabela <- na.omit(morphSnodgrassHeller[morphSnodgrassHeller$IslandID=="Isa_Alb",
c("WingL","TailL","BeakW","BeakH")])
finch_isabela_rangebox_nopadding = padded_range(finch_isabela)
finch_isabela_rangebox_nopadding
finch_isabela_rangebox_padding = padded_range(finch_isabela,
multiply.interval.amount=0.5, add.amount=0.1)
finch_isabela_rangebox_padding
Run the code above in your browser using DataLab