LinearResample: LinearResample

Description Usage Arguments Value Author(s) Examples

Description

Compute linear resample of a spectrum based on specific wavelength of a defined spectrometer

Usage

1

Arguments

wl

numeric vector: wavelength vector to be resamped

spectrum

numeric vector: spectrum to be resampled (e.g. radiance, reflectance, digital numbers)

wlRef

numeric vector: reference wavelength vector to be be used for resampling

Value

numeric vector containing the spectrum linearly resample according to the wavelngth vector wlRef.

Author(s)

Tommaso Julitta, Mirco Migliavacca, Thomas Wutzler

Examples

 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
38
39
40
41
42
43
  





data("outdoor_rad_cal_data")


data("atmospheric_absorption_regions")


integration_time<-450


#Create matrix for radiometric calibration


DN_mat<-DNSpectralMatrixRadCal(spectra = outdoor_rad_cal_data$DN_matrix,IntegrationTime = integration_time)


#calculate mean of several spectra


radiance_mean<-StatsOnSpectra(wl=outdoor_rad_cal_data$radiance_wl,spectra=outdoor_rad_cal_data$radiance_matrix,fun='mean')


#linear resample at refrence radiance wavelength 


radiance_meanRes<-LinearResample(wl = outdoor_rad_cal_data$radiance_wl,spectrum = radiance_mean,wlRef = outdoor_rad_cal_data$DN_wl)


#plot results


x11()


plot(outdoor_rad_cal_data$radiance_wl,radiance_mean,type="l",xlab="WL [nm]",ylab=expression("Radiance [W m"^-2* "sr"^-1* "nm"^-1*"]"),ylim=c(0,5))


lines(outdoor_rad_cal_data$DN_wl,radiance_meanRes,col="blue")

tommasojulitta/FieldSpectroscopyCC documentation built on May 31, 2019, 6:19 p.m.