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)))
}
bayesball/LearnBayes documentation built on May 11, 2019, 9:21 p.m.