# NOT RUN {
my.w.length <- 300:700
my.s.e.irrad <-
with(sun.data, interpolate_spectrum(w.length, s.e.irrad, my.w.length))
plot(my.s.e.irrad ~ my.w.length)
lines(s.e.irrad ~ w.length, data=sun.data)
# }
Run the code above in your browser using DataLab