Single-predictor models

Author: Andrew Johnson

ARM/Ch.3/kidscore_momhs.stan

@@ -3,12 +3,15 @@ data {
   vector<lower=0, upper=200>[N] kid_score;
   vector<lower=0, upper=1>[N] mom_hs;
 }
+transformed data {
+  matrix[N,1] x = [mom_hs']';
+}
 parameters {
   real alpha;
   vector[1] beta;
   real<lower=0> sigma;
 }
 model {
   sigma ~ cauchy(0, 2.5);
-  kid_score ~ normal_id_glm(mom_hs', alpha, beta, sigma);
+  kid_score ~ normal_id_glm(x, alpha, beta, sigma);
 }

ARM/Ch.3/kidscore_momiq.stan

@@ -3,12 +3,15 @@ data {
   vector<lower=0, upper=200>[N] kid_score;
   vector<lower=0, upper=200>[N] mom_iq;
 }
+transformed data {
+  matrix[N,1] x = [mom_iq']';
+}
 parameters {
   real alpha;
   vector[1] beta;
   real<lower=0> sigma;
 }
 model {
   sigma ~ cauchy(0, 2.5);
-  kid_score ~ normal_id_glm(mom_iq', alpha, beta, sigma);
+  kid_score ~ normal_id_glm(x, alpha, beta, sigma);
 }