Revision 4d048784cc1691d7539bc45fef9d3916724c6650 authored by Mitzi Morris on 27 August 2019, 15:59:25 UTC, committed by Mitzi Morris on 27 August 2019, 15:59:25 UTC
2 parent s f239669 + 93c21d2
Raw File
normal_censored.stan
data {
  real U;
  int<lower=0> N_censored;
  int<lower=0> N_observed;
  real<upper=U> y[N_observed];
}
parameters { 
  real mu;
}
model {
  for (n in 1:N_observed)
    y[n] ~ normal(mu,1.0) T[,U];
  increment_log_prob(N_censored 
                     * log1m(normal_cdf(U,mu,1.0)));
}


back to top