Fixed error in prior.R.