with(sun.data,
split_photon_irradiance(w.length, s.e.irrad,
cut.w.length = c(300, 400, 500, 600, 700)))
with(sun.data,
split_photon_irradiance(w.length, s.e.irrad,
cut.w.length = c(200, 400, 500, 600, 900)))
with(sun.data,
split_photon_irradiance(w.length, s.e.irrad,
cut.w.length = c(300, 400, 500)))
with(sun.data,
split_photon_irradiance(w.length, s.e.irrad))
Run the code above in your browser using DataLab