Create rprior.R