countrydata <- read.csv("countrydata.csv")
data2plot <- subset(countrydata, country == params$country)
hist(data2plot$heights, main = paste("Height distribution in", params$country))