R script

Generate data for testing. Comments included.