// This Stan block defines a Gamma model, by Sean van der Merwe, UFS
data {
  int<lower=1> n;   			        // number of observations
  real<lower=0> y[n];       // observations
}
// The parameters of the model
parameters {
  real<lower=0> a;                 
  real<lower=0> l;                 
}
model {
  y ~ gamma(a, l);       
}

// This Stan block defines a Beta model, by Sean van der Merwe, UFS
data {
  int<lower=1> n;   			        // number of observations
  real y[n];       // observations
}
// The parameters of the model
parameters {
  real m;                 
  real<lower=0> s;                 
}
model {
  y ~ normal(m, s);       
}

// This Stan block defines a Beta model, by Sean van der Merwe, UFS
data {
  int<lower=1> n;   			        // number of observations
  real<lower=0> y[n];       // observations
}
// The parameters of the model
parameters {
  real m;                 
  real<lower=0> s;                 
}
model {
  y ~ lognormal(m, s);       
}

// This Stan block defines a Beta model, by Sean van der Merwe, UFS
data {
  int<lower=1> n;   			        // number of observations
  real y[n];       // observations
}
// The parameters of the model
parameters {
  real m;                 
  real<lower=0> s;
  real<lower=0.5> v;
}
model {
  y ~ student_t(v, m, s);
  target += log(v) - 3*log(v+0.75) - 2*log(s);   // joint objective prior
}