CDOoDocuments.StdDocumentDescDocuments.DocumentDescContainers.ViewDescViews.ViewDescStores.StoreDescDocuments.ModelDescContainers.ModelDescModels.ModelDescStores.ElemDesc TextViews.StdViewDescTextViews.ViewDescTextModels.StdModelDescTextModels.ModelDescQTextModels.AttributesDesc*Ldata list(X = 510, n = 1000) # frequentist estimate 0.510 inits list(p = 0.25) # starting values for p list(p = 0.50) list(p = 0.75) model model; { X ~ dbin(p,n) p ~ dbeta(225,185) # prior mode = 0.55, 95% prior interval (0.51, 0.59) prob.p <- step(p - 0.5) odds <- p/(1-p) prob.odds <- step(odds - 1) } TextControllers.StdCtrlDescTextControllers.ControllerDescContainers.ControllerDescControllers.ControllerDesc TextRulers.StdRulerDescTextRulers.RulerDescTextRulers.StdStyleDescTextRulers.StyleDescZTextRulers.AttributesDesc$0ZGo * <[ @Documents.ControllerDesc vz pk ~