Update prior.R