CDOoDocuments.StdDocumentDescDocuments.DocumentDescContainers.ViewDescViews.ViewDescStores.StoreDescxDocuments.ModelDescContainers.ModelDescModels.ModelDescStores.ElemDesc TextViews.StdViewDescTextViews.ViewDeschTextModels.StdModelDescTextModels.ModelDescrjTextModels.AttributesDesc1$Courier New  $Courier New #------------------------------------------------------------------------------------------------------------------------------ Version 1 #------------------------------------------------------------------------------------------------------------------------------ model{ # model's likelihood for (i in 1:nf){ # scored goals for ( j in 1:fx[i] ){ z[i,j] <- y[i] z[i,j]~dpois( lambda ) } } # # log-normal prior lambda ~ dlnorm( 0.0, 0.001) for (i in 1:n.rep){y.rep[i]~dpois( lambda ) } for (k in 1:nf){ for (i in 1:n.rep){ freq.bin[k,i] <- equals( y.rep[i], y[k] ) } freq[k] <- sum( freq.bin[k,1:n.rep] ) rel.freq[k] <- freq[k]/n.rep } } INITS list( lambda=1.0 ) DATA (LIST) list( nf=6, n.rep=19,y=c(0,1,2,3,4,5), fx=c(2, 3,4,6,3,1) ) # scored list( nf=6, n.rep=19, y=c(0,1,2,3,4,5), fx=c(8,10,1,0,0,0) ) # conceded TextControllers.StdCtrlDescTextControllers.ControllerDescContainers.ControllerDescControllers.ControllerDesc TextRulers.StdRulerDescTextRulers.RulerDescTextRulers.StdStyleDescTextRulers.StyleDescZTextRulers.AttributesDesc$ ZGo * ,[ @Documents.ControllerDesc t]s ' `h*