lprior_dw function

Calculation of log prior

lprior_dw(
  tilde.E,
  w1,
  w2,
  k1,
  k2,
  tau,
  g0.alpha,
  g0.beta,
  k1.theta,
  k2.theta,
  tau.alpha,
  tau.beta
)