R/1_convert.R

In jzeyl/acalculator: Convenience Calculations in Acoustics and Audiometry

#description - converts dB to Pa
#input - dB value and reference micropascals
#output - pascals value

#' Convert units between Pascals, microbars, dynes per cm squared, and microPascals
#'
#' This function converts units between Pa, uPa, dynes per cm squared, and ubar.
#' @param from value in mPa, Pa, dB, microbars or uPa
#' @export
#' @examples convert(from = "Pa", to = "dynespercmsquared",  inputval = 1)
#'[1] 10
#'

#1 pascal = 10 µbars = 10 dynes/cm2 and 1 µbar = 1 dyne/cm2 = 0.1 pascal

#convenience function to convert between Pa, uPa, microvars, and dynespercmsquared
convert<-function(from, to, inputval){
  if (from == "Pa"){
    if (to == "uPa"){
      outval<-inputval*1000000
      return(outval)
    }
    else if (to == "dynespercmsquared"){
      outval<-inputval*10
      return(outval)
    }
    else if (to == "ubar"){
      outval<-inputval*10
      return(outval)
    }
  }
  else if(from == "microbar"){
    if(to == "Pa"){
      outval<-inputval/10
      return(outval)
    }
    else if(to == "dynespercmsquared"){
      outval<-inputval
      return(outval)
    }
    else if(to == "uPa"){
      outval<-(inputval/10)*1000000
      return(outval)
    }
  }
  else{
    "Please try again."
  }
}


convert(from = "6Pa", to = "dB",  inputval = 1)
convert(from = "Pa", to = "uPa",  inputval = 1)
convert(from = "Pa", to = "dynespercmsquared",  inputval = 1)
convert(from = "Pa", to = "ubar",  inputval = 1)
convert(from = "Pa", to = "ubar",  inputval = 1)
convert(from = "microbar", to = "Pa",  inputval = 1)
convert(from = "microbar", to = "dynespercmsquared",  inputval = 1)
convert(from = "microbar", to = "uPa",  inputval = 1)