initial commit of R scripts