CDOoDocuments.StdDocumentDescDocuments.DocumentDescContainers.ViewDescViews.ViewDescStores.StoreDescDocuments.ModelDescContainers.ModelDescModels.ModelDescStores.ElemDesc TextViews.StdViewDescTextViews.ViewDescTextModels.StdModelDescTextModels.ModelDescQTextModels.AttributesDesc*fAssurance paper WinBUGS code for Example 4 model{ theta1 ~ dbeta(5,20) theta2 <- (eff * theff)+((1-eff)*thneff) # These lines set out the prior as eff ~ dbern(0.85) # in Example 4. theff ~ dbeta(3,4.5) # They should be modified thneff ~ dbeta(2, 23) # as appropriate for any real example. r1 ~ dbin(theta1, n1) r2 ~ dbin(theta2, n2) p1 <- r1/n1 p2 <- r2/n2 se <- sqrt((p1*(1-p1)/n1)+(p2*(1-p2)/n2)) z <- (p2-p1)/se ass <- step(z-zsig) # The mean of this variable is the assurance of a positive test result } list(n1=200, n2=400, zsig=1.96) # Sample sizes and test critical value TextControllers.StdCtrlDescTextControllers.ControllerDescContainers.ControllerDescControllers.ControllerDesc TextRulers.StdRulerDescTextRulers.RulerDescTextRulers.StdStyleDescTextRulers.StyleDescZTextRulers.AttributesDesc$ ZGo * ,[ @Documents.ControllerDesc t]s ' `h*