R/vol_calcs.R

Defines functions vol_calcs

vol_calcs <- function(x,type) {

z <- x[[4]]

if (type == 'round') {

	volume <- pi * (z$d/2)^2 * z$h

} else {

	volume <- z$l * z$w * z$h

}

return(volume)

}
randallhelms/cakeR documentation built on March 19, 2020, 11:54 p.m.