Create hrangeR.R