|
@@ -219,16 +219,16 @@ model {
|
|
|
|
|
|
|
|
|
for (k in 1:n_recs) {
|
|
|
- real chi_mu = exp(
|
|
|
- log(mu_pop_level[1]) + child_dev_age[children[k]]*age[k]/12.0/10.0+beta_dev*(mu_child_level[children[k],2]+mu_child_level[children[k],3]-mu_pop_level[3]-mu_pop_level[4])*age[k]/12.0/10.0
|
|
|
+ real chi_mu = mu_pop_level[1]*exp(
|
|
|
+ child_dev_age[children[k]]*age[k]/12.0/10.0+beta_dev*(mu_child_level[children[k],2]+mu_child_level[children[k],3]-mu_pop_level[3]-mu_pop_level[4])*age[k]/12.0/10.0
|
|
|
);
|
|
|
(truth_vocs[k,1]/1000/recs_duration) ~ gamma(
|
|
|
alpha_child_level[1],
|
|
|
alpha_child_level[1]/chi_mu
|
|
|
);
|
|
|
|
|
|
- real och_mu = exp(
|
|
|
- log(mu_child_level[children[k],1]) + (child_siblings[children[k]]>0?beta_sib_och:0)
|
|
|
+ real och_mu = mu_child_level[children[k],1] * exp(
|
|
|
+ (child_siblings[children[k]]>0?beta_sib_och:0)
|
|
|
);
|
|
|
(truth_vocs[k,2]/1000/recs_duration) ~ gamma(
|
|
|
alpha_child_level[2],
|
|
@@ -236,7 +236,7 @@ model {
|
|
|
);
|
|
|
|
|
|
(truth_vocs[k,3:]/1000/recs_duration) ~ gamma(
|
|
|
- alpha_child_level[3:], alpha_child_level[2:]./mu_child_level[children[k],2:]' //'
|
|
|
+ alpha_child_level[3:], alpha_child_level[3:]./mu_child_level[children[k],2:]' //'
|
|
|
);
|
|
|
}
|
|
|
|
|
@@ -288,16 +288,16 @@ model {
|
|
|
}
|
|
|
|
|
|
for (g in 1:n_rates) {
|
|
|
- real chi_mu = exp(
|
|
|
- log(mu_pop_level[1]) + child_dev_speech_age[speech_rate_child[g]]*speech_rate_age[g]/12.0/10.0 + beta_dev*(speech_rate_child_level[speech_rate_child[g],2]+speech_rate_child_level[speech_rate_child[g],3]-mu_pop_level[3]-mu_pop_level[4])*speech_rate_age[g]/12.0/10.0
|
|
|
+ real chi_mu = mu_pop_level[1]*exp(
|
|
|
+ child_dev_speech_age[speech_rate_child[g]]*speech_rate_age[g]/12.0/10.0 + beta_dev*(speech_rate_child_level[speech_rate_child[g],2]+speech_rate_child_level[speech_rate_child[g],3]-mu_pop_level[3]-mu_pop_level[4])*speech_rate_age[g]/12.0/10.0
|
|
|
);
|
|
|
speech_rate[1,g] ~ gamma(
|
|
|
alpha_child_level[1],
|
|
|
alpha_child_level[1]/chi_mu
|
|
|
);
|
|
|
|
|
|
- real och_mu = exp(
|
|
|
- log(speech_rate_child_level[speech_rate_child[g],1]) + (speech_rate_child_siblings[speech_rate_child[g]]>0?beta_sib_och:0)
|
|
|
+ real och_mu = speech_rate_child_level[speech_rate_child[g],1]*exp(
|
|
|
+ (speech_rate_child_siblings[speech_rate_child[g]]>0?beta_sib_och:0)
|
|
|
);
|
|
|
speech_rate[2,g] ~ gamma(
|
|
|
alpha_child_level[2],
|