Renaming R file.
Add function to output the model to a csv file.