Para a amiga que ontem decidiu que afinal näo queria ser veterinária

Bayesian inference in Quantitative Risk analysis
WinBUGS code for Problem 5
model
{
# SALMONELLA ENTERITIDIS
# Incl. "other" S.E. phage types
for (i in 1 : 6) {
sb[i]<-yt[i]+1 fb[i]<-nt[i]+1

alpha[i] ~ dbeta(sb[i] , fb[i]) dt[i] ~ dbin(alpha[i], pt[i])

spdo[i] <- o[i] - ob[i] - yt[i] - dt[i] }

# Excl. other S.E. phage types for (i in 1 : 5) {

o[i] ~ dpois(lambdaexp[i])

lambdaexp[i] <- lambda[i] + ob[i] + yt[i] + dt[i]

lambda[i] <- sum(lambdaij[1:9, i]) for (j in 1 : 9) { lambdaij[j, i] <- p[j, i]*m[j]*a[j]*q[i]

Podes sempre encontrar outras coisas para fazer. Como eu fiz. Depois vem queixar-te que eu digo-te.

Assim se passam os meus dias. Aaarrrggghhhh.