FLD3: FLD3

In tommasojulitta/FieldSpectroscopyDP: R package for processing fieldspectroscopy data

Description

Compute the 3 Fraunhofer Line Discriminator

Usage

FLD3(wl, E, L, fwhm = 0.5, O2band)

Arguments

wl	numeric vector: wavelength vector
E	numeric vector or dataframe: vector or dataframe of spectral solar radiance
L	numeric vector or dataframe: vector or dataframe of spectral reflected radiance
fwhm	numeric value: spectral resolution in terms of full width at half maximum of the spectrometer used
O2band	character value: A or B referring to the oxygen absorption band where to compute the fluorescence estimation

Value

Return the output

numeric list containing the computed the estimated true reflectance and fluorescence value from 3 Fraunhofer Line Discriminator.

Author(s)

Tommaso Julitta, Mirco Migliavacca, Thomas Wutzler

Examples

  





data("FloX_data")


data("up_coeff")


data("dw_coeff")


data("wl_FloX")





#Get Target Radiance 


L<-GetRadiance(DNSignal=FloX_data$L-FloX_data$dcL,IntegrationTime=FloX_data$IT_L/1000,RadCalCoeff=dw_coeff)


#Get Solar Radiance 


E<-GetRadiance(DNSignal=FloX_data$E-FloX_data$dcE,IntegrationTime=FloX_data$IT_E/1000,RadCalCoeff=up_coeff)


#Estimate Sun induced chlorophyll Fluorescence at O2A band


FLD3_O2A<-FLD3(wl=wl_FloX,E,L,fwhm =0.3,O2band="A")


#Estimate Sun induced chlorophyll Fluorescence at O2B band


FLD3_O2B<-FLD3(wl=wl_FloX,E,L,fwhm =0.3,O2band="B")


#plot results


x11()    


par(mar=c(5,5,2,2))


plot(FLD3_O2A$Fluo*1000,pch=20,xlab="N. measurements",ylab=expression("Radiance [mW m"^-2* "sr"^-1* "nm"^-1*"]"),ylim=c(-10,5))    


points(FLD3_O2B$Fluo*1000,pch=20,col="red")


legend("topleft",col=c("black","red"),pch=20,cex=1.2,legend=c("SIF O2A","SIF O2B"),box.col="white")


box()


  

tommasojulitta/FieldSpectroscopyDP documentation built on March 12, 2020, 1:42 p.m.