R/FEL0550.R

In tjconstant/thor: Thorlabs Optics and Equipment Curves

#' Transmission from Thorlabs longpass filter number FEL0550 given wavelength
#'
#' @param wavelength_nm incident wavelength in nanometers
#'
#' @return Returns the fractional transmission coefficient of Thorlabs longpass filter number FEL0550
#' @export
#'
#' @examples
#' FEL0550(570)
FEL0550 <- function(wavelength_nm){

  FEL0550_Transmission <- FEL0550_data # from manual
  FEL0550_Transmission_Function <- stats::splinefun(FEL0550_Transmission$wavelength_nm, FEL0550_Transmission$Transmission)

  if(max(wavelength_nm) > max(FEL0550_Transmission$wavelength_nm) | min(wavelength_nm) < min(FEL0550_Transmission$wavelength_nm)){
    warning("wavelength is outside dataset range")
  }

  Transmission_pct <- FEL0550_Transmission_Function(wavelength_nm)
  Transmission_frac <- Transmission_pct/100

  return(Transmission_frac)
}