R/wavelength.R

In edwbaker/SonicScrewdriveR: Bioacoustic Analysis and Publication Tools

wavelength <- function(frequency, speed=soundSpeed(medium="air"), unit="m") {
  if (unit == "m") {
    return (speed/frequency)
  }
  if (unit == "cm") {
    return (100 * speed/frequency)
  }
  stop("Invalid unit selction: ", unit)
}