Preparing record data in R