fixed file name of model in R code to call it