Description Usage Arguments Value Author(s) Examples
Compute the Signal to Noise Ratio of a spectrometer
1 2 3 4 | NoiseEquivalentRadiance(sdLamp = specStats$sdLamp, sdDC = specStats$sdDC,
RadCalCoeff, IntegrationTime)
|
sdLamp |
numeric vector: sd of the spectra acquired with a stable lamp |
sdDC |
numeric vector: sd of the dark current spectra acquired with with the same integration time as the measurements over the lamp |
RadCalCoeff |
numeric vector: wavelength dependent vector of coefficient for calibration |
IntegrationTime |
numeric value: integration time used for the acqisition of the spectra. |
numeric vector: noise equivalent delta radiance for each wavelength
Tommaso Julitta, Mirco Migliavacca, Thomas Wutzler
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
data("snr_data")
data("rad_cal")
#perform statistics on spectra
#calculate standard deviation of the lamp signal
lamp_sd<-StatsOnSpectra(wl=snr_data$wl,spectra=snr_data$data_lamp,fun='sd')
#calculate standard deviation of the dark spectrum
dc_sd<-StatsOnSpectra(wl=snr_data$wl,spectra=snr_data$data_dc,fun='sd')
#calculate noise equivalent delta radiance
NER<-NoiseEquivalentRadiance(sdLamp = lamp_sd,sdDC = dc_sd,IntegrationTime = 4000,RadCalCoeff = rad_cal$cal)
x11();plot(rad_cal$wl,NER*1000,type="l",xlab="WL [nm]",ylab=expression("Radiance [mW m"^-2* "sr"^-1* "nm"^-1*"]"),ylim=c(0,5))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.