speed/freq/wavelength

NAMESPACE

@@ -9,6 +9,7 @@ export(defaultCluster)
 export(dutyCycle)
 export(entropyStats)
 export(frequencyStats)
+export(frequencyWS)
 export(gs_transcribe)
 export(labelPadding)
 export(labelReduction)
@@ -22,6 +23,7 @@ export(rainfallDetection)
 export(sDuration)
 export(soundSpeed)
 export(soundSpeedBMD)
+export(soundSpeedWF)
 export(soundSpeed_cramer1993)
 export(ste)
 export(tSamples)

R/frequency.R

@@ -0,0 +1,12 @@
+#' Get the frequency from wavelength and speed of sound
+#'
+#' TODO: Description
+#'
+#' @param wl Wavelength
+#' @param s Speed of sound
+#' @export
+#'
+frequencyWS <- function(wl, s) {
+  f <- validateWavelength(wl) / validateSpeed(s)
+  return(validateFreqIsPossible(f))
+}

R/soundSpeed.R

@@ -17,6 +17,19 @@ soundSpeed <- function(medium="air",
   }
 }
 
+#' Get the speed of sound in a medium using wavelength and frequency
+#'
+#' TODO: Description
+#'
+#' @param wl Wavelength
+#' @param f Frequency
+#' @export
+#'
+soundSpeedWF <- function(wl, f) {
+  s <- validateWavelength(wl) * validateFreqIsPossible(f)
+  return(s)
+}
+
 #' Get the speed of sound in a medium using bulk modulus and density
 #'
 #' TODO: Description

R/validationFunctions.R

@@ -18,6 +18,23 @@ validateBulkModulus <- function(b) {
   return(b)
 }
 
+validateSpeed <- function(b) {
+  if (!is.numeric(b)) {
+    stop("Speed must be numeric")
+  }
+  return(b)
+}
+
+validateWavelength <- function(b) {
+  if (!is.numeric(b)) {
+    stop("Wavelength must be numeric")
+  }
+  if (b < 0) {
+    stop("Wavelength must not be negative.")
+  }
+  return(b)
+}
+
 validateDensity<- function(b) {
   if (!is.numeric(b)) {
     stop("Density must be numeric")