Little pruning in R script and more description in codebook and readme