Added readme and another R file