Adding some R scripts