R/cauchyerrorpost.R

cauchyerrorpost=function(theta, data)
{
logf=function(data,theta)
  log(dt((data-theta[1])/exp(theta[2]),df=1)/exp(theta[2]))

return(sum(logf(data,theta)))
}

Try the LearnBayes package in your browser

Any scripts or data that you put into this service are public.

LearnBayes documentation built on May 1, 2019, 7:03 p.m.