CDOoDocuments.StdDocumentDescDocuments.DocumentDescContainers.ViewDescViews.ViewDescStores.StoreDescDocuments.ModelDescContainers.ModelDescModels.ModelDescStores.ElemDesc< 4TextViews.StdViewDescTextViews.ViewDescTextModels.StdModelDescTextModels.ModelDescQTextModels.AttributesDesc* model { for (j in 1:2) { mu[j]~dexp(1) } K~dcat(p[]) for (i in 1:10) { ind[i]<- 1+step(i-K-.01) #will be 1 for all i<=K, 2 otherwise y[i]~dpois(mu[ind[i]]) } } list(p=c(.1,.1,.1,.1,.1,.1,.1,.1,.1,.1), y=c(1,4,2,4,7,4,5,7,6,4)) list(K=1,mu=c(1,10)) list(K=6,mu=c(1,10)) list(K=10,mu=c(1,10)) list(K=1,mu=c(10,1)) list(K=6,mu=c(10,1)) list(K=10,mu=c(10,1)) TextControllers.StdCtrlDescTextControllers.ControllerDescContainers.ControllerDescControllers.ControllerDesc TextRulers.StdRulerDescTextRulers.RulerDescTextRulers.StdStyleDescTextRulers.StyleDescZTextRulers.AttributesDesc$0ZGo * <[ @Documents.ControllerDesc vz pk ~