updated mle-params knitr case study

knitr/mle-params/license.txt

@@ -0,0 +1,7 @@
+The code in this repository is copyrighted by Columbia University and licensed under the new BSD (3-clause) license:
+
+  https://opensource.org/licenses/BSD-3-Clause
+
+The text in this repository is copyrighted by Bob Carpenter and licensed under the CC-BY 4.0 license: 
+
+  https://creativecommons.org/licenses/by/4.0/

knitr/mle-params/logodds-jac.stan

@@ -5,12 +5,13 @@ data {
 parameters {
   real alpha;
 }
-model {
-  for (n in 1:N)
-    y[n] ~ bernoulli(inv_logit(alpha));
-  increment_log_prob(log(inv_logit(alpha)) + log(1 - inv_logit(alpha)));
-}
-generated quantities {
+transformed parameters {
   real<lower=0, upper=1> theta;
   theta <- inv_logit(alpha);
 }
+model {
+  for (n in 1:N)
+    y[n] ~ bernoulli(theta);
+  theta ~ uniform(0, 1);
+  increment_log_prob(log(theta) + log(1 - theta));
+}

knitr/mle-params/logodds.stan

@@ -5,11 +5,12 @@ data {
 parameters {
   real alpha;
 }
-model {
-  for (n in 1:N)
-    y[n] ~ bernoulli(inv_logit(alpha));
-}
-generated quantities {
+transformed parameters {
   real<lower=0, upper=1> theta;
   theta <- inv_logit(alpha);
 }
+model {
+  for (n in 1:N)
+    y[n] ~ bernoulli(theta);
+  theta ~ uniform(0, 1);
+}