Fixed little bug

had some data in previous environment called from main.R
of course, that data was not in a clean environment
so I added code to load the data file for testing