code book and R file