combine_logit_hazards.stan

Go to the documentation of this file.

 
vector combine_logit_hazards(int i, array[,] int rdlurd, vector srdlh,
                             matrix refp_lh, array[] int dpmfs, int ref_p,
                             int rep_h, int g, int t, int l, vector refnp_lh, int refnp_p, int p) {
  vector[l] lh;
  // set reference date effects (or zero if none)
  if (ref_p) {
    lh = refp_lh[1:l, dpmfs[i]];
  } else {
    lh = rep_vector(0, l);
  }
  // add non-parametric reference effects
  if (refnp_p) {
    lh += segment(refnp_lh, p, l);
  }
  // add reporting time effects
  if (rep_h) {
    lh += srdlh[rdlurd[g, t:(t + l - 1)]];
  }
  return(lh);
}