@@ -82,7 +82,7 @@ functions {
sd[i] += truth_vocs[k,j]*actual_confusion[k,j,i]*(1+truth_vocs[k,j]*actual_confusion[k,j,i]*theta[j,i]*sqrt(0.00833333333/duration));
}
- sd[i] += actual_fp_rate[k,i] * duration*(1+actual_fp_rate[k,i]*theta[j,i]*sqrt(duration*0.00833333333));
+ sd[i] += actual_fp_rate[k,i] * duration*(1+actual_fp_rate[k,i]*theta_fp[i]*sqrt(duration*0.00833333333));
ll += normal_lpdf(vocs[k,:] | expect, sqrt(expect));