Attempt to create a model in R