# NOT RUN {
assessmentKeys <- findAssessmentKey("had", 2015)
landings_img <- getLandingsGraph(assessmentKeys[1])
plot(landings_img)
landings_plots <- getLandingsGraph(assessmentKeys)
plot(landings_plots)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace