# Homework 08 template
# ====================

# Goal: Join and transform data from Czech Statistical Office


# clear workspace
rm(list = ls())


# edit the following lines -- assign resulting table into variable czdata:

czdata <-


# do not edit following
# - save results
save(czdata, file = "results.RData")