Description Usage Arguments Value Author(s) Examples
View source: R/ConvolutionFunction.R
Function to compute the standard deviation of gaussian convolution on a specific spectral range
1 | fGaussianConvolSD(Wl = Wl, Ref = Ref, CWl = CWl, FWHM = FWHM)
|
Wl |
numeric array: wavelenghts spectrometer to be deconvolved |
Ref |
numeric array: Reflectance |
CWl |
scalar: Central Wavelength |
FWHM |
scalar: Full-Width at Half Maximum of the central Wavelength |
numeric value: standard deviation of gaussian convolution on a specific spectral range
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 | data("reflOO")
#Define center wavelength
CWl<-600
#Define Full Width at Half Maximum
FWHM<-8
#Extract SD of the convolved spectrum
res<-fGaussianConvolSD(Wl=reflOO$Wl, Ref=reflOO$Ref, CWl=CWl, FWHM=FWHM)
#plot results
plot(reflOO$Wl, reflOO$Ref, ylim=c(0,0.7),xlim=c(400,900), type="l",xlab = "Wl [nm]", ylab= "Reflectance [-]")
points(CWl, res, col="red")
legend("topleft",col=c("red"),pch=1,cex=1.2,legend=c("SD"),box.col="white")
box()
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.