Two R Scripts