|
|
@@ -88,7 +88,7 @@ parameters {
|
|
|
matrix<lower=0>[n_children,n_classes-1] mu_child_level;
|
|
|
vector [n_children] child_dev_age;
|
|
|
matrix<lower=0> [n_recs, n_classes] truth_vocs;
|
|
|
- array [n_recs] matrix<lower=0,upper=1>[n_classes,n_classes] actual_confusion_baseline;
|
|
|
+ array [n_recs] matrix<lower=0>[n_classes,n_classes] actual_confusion_baseline;
|
|
|
|
|
|
// confusion parameters
|
|
|
#include "blocks/confusion_model_parameters.stan"
|
|
|
@@ -100,20 +100,19 @@ parameters {
|
|
|
model {
|
|
|
// inverse confusion model
|
|
|
target += reduce_sum(
|
|
|
- inverse_model_lpdf, actual_confusion_baseline, 1,
|
|
|
+ inverse_model_lpmf, children, 1,
|
|
|
n_recs, n_classes, recs_duration,
|
|
|
vocs, age,
|
|
|
- truth_vocs, mus, etas, p//, mus_fp, etas_fp
|
|
|
+ truth_vocs, actual_confusion_baseline, mus, alphas//, mus_fp, etas_fp
|
|
|
);
|
|
|
|
|
|
// contribution of full recordings to the model of behavior
|
|
|
#include "blocks/behavior_observations_model.stan"
|
|
|
|
|
|
target += reduce_sum(
|
|
|
- confusion_model_lpdf, lambda, 1,
|
|
|
+ confusion_model_lpmf, group, 1,
|
|
|
n_classes, n_clips,
|
|
|
- algo_total, truth_total, group, clip_duration, clip_age,
|
|
|
- p//, lambda_fp
|
|
|
+ algo_total, truth_total, lambda, clip_duration, clip_age,
|
|
|
);
|
|
|
|
|
|
// priors on the nuisance parameters of the confusion model
|
