hour <- seq(5, 18, by = 0.1)
potRadApparentLocal <- potential.radiation(
160, hour, 39.94, -5.77, timezone = +1)
potRadTimezone <- potential.radiation(
160, hour, 39.94, -5.77, timezone = +1, useSolartime = FALSE)
plot(potRadApparentLocal ~ hour, type = 'l'
, ylab = 'potential radiation (W m-2)')
lines(potRadTimezone ~ hour, col = "blue")
abline(v = 12, col = "blue", lty = "dotted")
legend("bottomright", legend = c("solar time", "local winter time")
, col = c("black", "blue"), inset = 0.05, lty = 1)
Run the code above in your browser using DataLab