Adding some R example scripts