commented out testing code, making it easier to source the file from r