extract user submission to model
remove data prep functions to separate r file