R start

Making an R file to do the same thing as my SAS files. Translation
practice so I don't forget my R.