theta should contribute to likelihood

also, prior on r should be changed, or it should
also contribute to the likelihood.