Parameterised report
FRS
4 February 2020
countrydata <- read.csv("countrydata.csv")data2plot <- subset(countrydata, country == params$country)
hist(data2plot$heights, main = paste("Height distribution in", params$country))
countrydata <- read.csv("countrydata.csv")data2plot <- subset(countrydata, country == params$country)
hist(data2plot$heights, main = paste("Height distribution in", params$country))