Moved out the script that uses the library back into Rscripts