- Eliminated R script errors
- added scale