Create univariate.r