Missed covariate

Andrew Johnson · Andrew Johnson · commit 5e5d68350a25 · 2021-02-06T23:29:09.000+08:00
diff --git a/ARM/Ch.5/wells_dae_inter.stan b/ARM/Ch.5/wells_dae_inter.stan
@@ -11,11 +11,11 @@ transformed data {
   vector[N] educ4 = educ / 4.0;
   // interaction
   vector[N] inter = dist100 .* arsenic;
-  matrix[N,3] x = [dist100', educ4', inter']';
+  matrix[N,4] x = [dist100', arsenic', educ4', inter']';
 }
 parameters {
   real alpha;
-  vector[3] beta;
+  vector[4] beta;
 }
 model {
   switched ~ bernoulli_logit_glm(x, alpha, beta);

Original file line number	Diff line number	Diff line change
`@@ -11,11 +11,11 @@ transformed data {`
`11`	`11`	`vector[N] educ4 = educ / 4.0;`
`12`	`12`	`// interaction`
`13`	`13`	`vector[N] inter = dist100 .* arsenic;`
`14`		`- matrix[N,3] x = [dist100', educ4', inter']';`
	`14`	`+ matrix[N,4] x = [dist100', arsenic', educ4', inter']';`
`15`	`15`	`}`
`16`	`16`	`parameters {`
`17`	`17`	`real alpha;`
`18`		`- vector[3] beta;`
	`18`	`+ vector[4] beta;`
`19`	`19`	`}`
`20`	`20`	`model {`
`21`	`21`	`switched ~ bernoulli_logit_glm(x, alpha, beta);`