Create qtl-Rscript_1.R

This is the first R script