ggplot(ccd.spct) +
geom_line() +
scale_y_s.e.action_continuous() + # per joule
scale_x_wl_continuous()
ggplot(ccd.spct) +
geom_line() +
scale_y_s.e.response_continuous() + # per joule
scale_x_wl_continuous()
ggplot(ccd.spct) +
geom_line() +
scale_y_s.e.response_continuous(unit.exponent = 6) + # per mega joule
scale_x_wl_continuous()
ggplot(ccd.spct, unit.out = "photon") +
geom_line() +
scale_y_s.q.response_continuous() + # per mol
scale_x_wl_continuous()
ggplot(ccd.spct, unit.out = "photon") +
geom_line() +
scale_y_s.q.response_continuous(unit.exponent = 3) + # per 1000 moles
scale_x_wl_continuous()
norm_ccd.spct <- normalize(ccd.spct, norm = "max")
ggplot(norm_ccd.spct) +
geom_line() +
scale_y_s.e.response_continuous(normalized = getNormalized(norm_ccd.spct)) +
scale_x_wl_continuous()
photon_as_default()
norm_ccd.spct <- normalize(ccd.spct, norm = "max")
ggplot(norm_ccd.spct) +
geom_line() +
scale_y_s.q.response_continuous(normalized = getNormalized(norm_ccd.spct)) +
scale_x_wl_continuous()
ggplot(norm_ccd.spct) +
geom_line() +
scale_y_s.q.response_continuous(unit.exponent = 2,
normalized = getNormalized(norm_ccd.spct)) +
scale_x_wl_continuous()
unset_radiation_unit_default()
Run the code above in your browser using DataLab