initial R script to assemble final dataset!