# NOT RUN {
#Calculating solar incidence angle for two consecutive days on 45 degree latitude and
# 10 degree longitude
DOY <- seq(0, 2, .05)
SextrNormal <- ExtraterrestrialNormal(DOY, Lat = 45, Lon=10, SLon=10, DS=0, Slope = 10, Aspect = 0)
#Note: only the difference between Lon and SLon matters not each value
plot(DOY, SextrNormal)
# }
Run the code above in your browser using DataLab