# NOT RUN {
library(magrittr)
my.mspct <- source_mspct(list(sun1 = sun.spct, sun2 = sun.spct * 2))
q_irrad(my.mspct) %>%
add_attr2tb(my.mspct, c(lat = "latitude",
lon = "longitude",
when.measured = "time"))
when_measured2tb(my.mspct)
# }
Run the code above in your browser using DataLab