## ----echo=FALSE--------------------------------------------------------------- knitr::opts_chunk$set(fig.width=8, fig.height=4) ## ----message=FALSE------------------------------------------------------------ library(photobiology) library(photobiologyWavebands) library(photobiologySun) library(lubridate) library(ggspectra) theme_set(theme_bw()) ## ----------------------------------------------------------------------------- names(sun_reference.mspct) ## ----------------------------------------------------------------------------- sun_reference.mspct$Gueymard.AM0 ## ----------------------------------------------------------------------------- sun_reference.mspct[["Gueymard.AM0"]] ## ----------------------------------------------------------------------------- sun_reference.mspct["Gueymard.AM0"] ## ----------------------------------------------------------------------------- sun_reference.mspct[grep("AM0", names(sun_reference.mspct), ignore.case = TRUE)] ## ----------------------------------------------------------------------------- autoplot(gap.mspct$spct.01) ## ----------------------------------------------------------------------------- ggplot(gap.mspct$spct.01, unit.out = "photon") + geom_line(linetype = "dashed") ## ----------------------------------------------------------------------------- autoplot(sun_hourly_august.spct, unit.out = "photon") ## ----------------------------------------------------------------------------- head(as.data.frame(gap.mspct$spct.01)) ## ----------------------------------------------------------------------------- attach(gap.mspct) q_irrad(gap.mspct$spct.01, Red()) detach(gap.mspct) ## ----------------------------------------------------------------------------- attach(gap.mspct) with(spct.01, max(w.length)) detach(gap.mspct) ## ----------------------------------------------------------------------------- with(gap.mspct, q_response(spct.01, Red()))