best.R is template from assignment. snippets.R my own