if (FALSE) {
assessmentKeys <- findAssessmentKey("had", 2015)
landings_img <- getLandingsGraph(assessmentKeys[1])
plot(landings_img)
landings_plots <- getLandingsGraph(assessmentKeys)
plot(landings_plots)
}
Run the code above in your browser using DataLab