First Commit

Edit in R