sum_spectra(w.length1, w.length2 = NULL, s.irrad1, s.irrad2, trim = "union", na.rm = FALSE)
head(sun.data)
twice.sun.data <- with(sun.data, sum_spectra(w.length, w.length, s.e.irrad, s.e.irrad))
head(twice.sun.data)
tail(twice.sun.data)
Run the code above in your browser using DataLab