x1 <-
ir_correct_atmosphere(
ir_sample_data[1:5, ], ir_sample_data[1:5, ], wn1 = 2361, wn2 = 2349
)
x2 <-
ir_correct_atmosphere(
ir_sample_data[1:5, ], ir_sample_data[1:5, ], wn1 = 2361, wn2 = 2349,
return_contribution = TRUE
)
x2$contribution
Run the code above in your browser using DataLab