added codebook and cleaned up one step in the R script to get it to be train then test data