Ver. 3

CODEBOOK added & some comments in R-script changed