added some rScripts