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