diff --git a/notas/src/vinos-1.stan b/notas/src/vinos-1.stan new file mode 100644 index 0000000..77904bd --- /dev/null +++ b/notas/src/vinos-1.stan @@ -0,0 +1,28 @@ +data { + int N; //número de calificaciones + int n_vinos; //número de vinos + int n_jueces; //número de jueces + vector[N] S; + array[N] int juez; + array[N] int vino; +} + +parameters { + vector[n_vinos] Q; + real sigma; +} + +transformed parameters { + vector[N] media_score; + // determinístico dado parámetros + for (i in 1:N){ + media_score[i] = Q[vino[i]]; + } +} + +model { + // partes no determinísticas + S ~ normal(media_score, sigma); + Q ~ std_normal(); + sigma ~ exponential(1); +}