New script to create dataframes for use in R