Els van de Vijver

56 #Verification Stage nT1R1 ~ dbin(VT1R1,T1) n0 <- n-T1 nT0R1 ~ dbin(VT0R1,n0) nT1R2 ~ dbin(VT1R2,T1) nT0R2 ~ dbin(VT0R2,n0) #Stage 2 T1R11 ~ dbin(p2,nT1R1) T0R11 ~ dbin(p3,nT0R1) T1R21 ~ dbin(p4,nT1R2) T0R21 ~ dbin(p5,nT0R2) #Predictive values PPVT <- ST*phi/(ST*phi+(1-CT)*(1-phi)) NPVT <- CT*(1-phi)/(CT*(1-phi)+(1-ST)*phi) #Accuracy measures T with respect to Reference test 1 STR1 <- p2*p1/(p2*p1+p3*(1-p1)) CTR1 <- (1-p3)*(1-p1)/((1-p2)*p1+(1-p3)*(1-p1)) PPVTR1 <- p2 NPVTR1 <- 1-p3 #Accuracy measures T with respect to Reference test 2 STR2 <- p4*p1/(p4*p1+p5*(1-p1)) CTR2 <- (1-p5)*(1-p1)/((1-p4)*p1+(1-p5)*(1-p1)) PPVTR2 <- p4 NPVTR2 <- 1-p5 } Chapter 3