Ran successully pre-small.R Saving the output