obs_lpmf.stan

Go to the documentation of this file.

 
real obs_lpmf(array[] int obs, vector log_exp_obs, array[] real phi,
                   int model_obs) {
  real tar = 0;
  if (model_obs) {
    tar = neg_binomial_2_log_lpmf(obs | log_exp_obs, phi[1]);
  }else{
    tar = poisson_log_lpmf(obs | log_exp_obs);
  }
  return(tar);
}
 
real obs_lpmf(int obs, real log_exp_obs, array[] real phi,
         int model_obs) {
  real tar = 0;
  if (model_obs) {
    tar = neg_binomial_2_log_lpmf(obs | log_exp_obs, phi[1]);
  }else{
    tar = poisson_log_lpmf(obs | log_exp_obs);
  }
  return(tar);
}