initial commit

Checking in R scripts and graphic files