corrections

Working R Scripts