powered by
proposal
proposalRatio(parOld, parNew, propSd)
cand <- proposal(1, 0.01) proposalRatio(1, cand, 0.01)
Run the code above in your browser using DataLab