Initial commit of R scripts