data-raw/make.d2.fel.data.r

In aphalo/photobiology: Photobiological Calculations

# Save constants for fitted functions for D2 and FEL lamps
#
D2.UV653 <- c(-4.1090384E-17, 7.6305376E-14, -5.6315241E-11, 2.0714647E-08, -3.8162638E-06, 0.0002842542)
D2.UV653 <- polynom::as.polynomial(rev(D2.UV653))
comment(D2.UV653) <- "D2 lamp UV-653"

D2.UV586 <- c(7.1215397E-18, -4.0918226E-15, -2.9069045E-12, 3.0340054E-09, -8.9554589E-07, 9.1200585E-05)
D2.UV586 <- polynom::as.polynomial(rev(D2.UV586))
comment(D2.UV586) <- "D2 lamp UV-586"

D2.UV654 <- c(-6.2181585E-17, 1.135044E-13, -8.2196585E-11, 2.9598246E-08, -5.3217495E-06, 0.00038528517)
D2.UV654 <- polynom::as.polynomial(rev(D2.UV654))
comment(D2.UV654) <- "D2 lamp UV-654"

FEL.BN.9101.165 <- list(TK = 3106.87561155307, kc = 1.5032470318064E-10 * 3.74183488349896E-16 * 0.0000001,
            kb = c(1.48299373059776E-19, -6.73783136663075E-16, 1.28071973512943E-12, -1.31864190324975E-09, 7.93362535586965E-07, -0.000278602532732717, 0.052698171960183, -3.66729840729808))
comment(FEL.BN.9101.165) <- "FEL lamp BN-9101-165, from calibration document T-R_387.xls"

save(D2.UV653, D2.UV586, D2.UV654, FEL.BN.9101.165,
     file = "./data/D2-FEL-constants.rda")