# NOT RUN {
#First we ray trace the Monterey Bay dataset.
#The default angle is from 40-50 degrees azimuth, from the north east.
# }
# NOT RUN {
montereybay %>%
ray_shade(zscale=50) %>%
plot_map()
# }
# NOT RUN {
#Change the altitude of the sun to 25 degrees
# }
# NOT RUN {
montereybay %>%
ray_shade(zscale=50, sunaltitude=25) %>%
plot_map()
# }
# NOT RUN {
#Remove the lambertian shading to just calculate shadow intensity.
# }
# NOT RUN {
montereybay %>%
ray_shade(zscale=50, sunaltitude=25, lambert=FALSE) %>%
plot_map()
# }
# NOT RUN {
#Change the direction of the sun to the South East
# }
# NOT RUN {
montereybay %>%
ray_shade(zscale=50, sunaltitude=25, sunangle=225) %>%
plot_map()
# }
Run the code above in your browser using DataLab