CDOoDocuments.StdDocumentDescDocuments.DocumentDescContainers.ViewDescViews.ViewDescStores.StoreDescLDocuments.ModelDescContainers.ModelDescModels.ModelDescStores.ElemDesc TextViews.StdViewDescTextViews.ViewDesc<TextModels.StdModelDescTextModels.ModelDescF>QTextModels.AttributesDesc*Assurance paper WinBUGS code for Example 3 model{ delta <- eff * deltaeff % These lines set out the prior as eff ~ dbern(0.5) % in Example 3. deltaeff ~ dnorm(0.4,25) % They should be modified sigsq <- exp(logsigsq) % as appropriate for logsigsq ~ dnorm(-2.77, 1.42857) % any real example. t <- xbardiff * sqrt(precis) precis <- n/(2*sampvar) xbardiff ~ dnorm(delta, precis) nminus1 <- n-1 nminusoversig <- nminus1/sigsq sampvar ~ dgamma(nminus1, nminusoversig) ass <- step(t-tsig) % The mean of this variable is the assurance } list(n=25, tsig=2.06) % Choose one set of input values list(n=33, tsig=2.035) list(n=35, tsig=2.03) list(n=40, tsig=2.021) list(n=50, tsig=2.009) list(n=100, tsig=1.984) TextControllers.StdCtrlDescTextControllers.ControllerDescContainers.ControllerDescControllers.ControllerDesc TextRulers.StdRulerDescTextRulers.RulerDescTextRulers.StdStyleDescTextRulers.StyleDescZTextRulers.AttributesDesc$ ZGo * ,[ @Documents.ControllerDesc t]s ' `h*