Create generate.r

Created by Maurits to generate sample data to be used in chapters