My R Code

The following the version of R Code I used to create my model.  It does
not contain any of the testing I did to determine how to create the
model.