http://143.107.246.201:8081/ecor/ 2026-04-22T21:32:32+00:00 http://143.107.246.201:8081/ecor/ http://143.107.246.201:8081/ecor/lib/exe/fetch.php?media=logo.png text/html 2026-03-27T14:02:20+00:00 Anonymous (anonymous@undisclosed.example.com) http://143.107.246.201:8081/ecor/doku.php?id=05_curso_antigo:r2013:alunos:trabalho_final:isabella.fontana:start&rev=1774620140&do=diff Isabella Fontana Doutorado em Epidemiologia Experimental Aplicada às Zoonoses Laboratório de Epidemiologia e Bioestatística - LEB Departamento de Medicina Preventiva - VPS Faculdade de Medicina Veterinária e Zootecnia Universidade de São Paulo - USP text/html 2026-03-27T14:02:20+00:00 Anonymous (anonymous@undisclosed.example.com) http://143.107.246.201:8081/ecor/doku.php?id=05_curso_antigo:r2013:alunos:trabalho_final:isabella.fontana:trabalho_final&rev=1774620140&do=diff animal.risk=function(n,N,p) { par(mfrow = c(1,2)) dist.binom=dbinom(0:N,size=N,prob=p) successes=subset(dist.binom,dist.binom>0.0001) plot( dist.binom,type ="h",xlab = "Number of infected animals", ylab = "Probability", main = "Distribuição do número de animais infectados",xlim=c(which(dist.binom==successes[1]), which(dist.binom==successes[length(successes)]))) segments(x0=N*p,y0=0,x1=N*p,y1=dist.binom[(N*p)],col="red",…