CDOoDocuments.StdDocumentDescDocuments.DocumentDescContainers.ViewDescViews.ViewDescStores.StoreDesc Documents.ModelDescContainers.ModelDescModels.ModelDescStores.ElemDesc  TextViews.StdViewDescTextViews.ViewDesc TextModels.StdModelDescTextModels.ModelDescTextModels.AttributesDesc'* +Arial| +Arial ArialPSdata # Dataset 2 # Bat sd = 1, Err sd = 25 list(batches = 30, samples = 5, y = structure( .Data = c(1038, 975, 976, 949, 992, 984, 997, 1010, 980, 967, 1000, 995, 982, 1029, 1008, 993, 1006, 1051, 1026, 993, 992, 994, 1002, 1003, 1008, 1052, 987, 974, 991, 989, 988, 1020, 975, 1003, 971, 961, 993, 1012, 976, 1005, 988, 1000, 998, 1012, 1051, 1017, 1012, 966, 993, 1007, 1025, 1022, 1005, 1021, 1022, 948, 1026, 1031, 989, 1008, 995, 997, 984, 968, 990, 996, 1001, 969, 995, 1030, 1022, 996, 1028, 986, 976, 976, 1023, 1004, 1026, 992, 983, 994, 975, 1049, 1002, 988, 1004, 1022, 996, 1011, 1037, 1001, 986, 986, 1018, 965, 994, 997, 1005, 1029, 1017, 1010, 964, 967, 1035, 1053, 954, 997, 1019, 1008, 1028, 992, 1026, 1008, 1020, 1012, 1026, 981, 1034, 1035, 976, 952, 999, 976, 958, 1016, 992, 987, 1010, 1024, 949, 1007, 1009, 958, 1031, 1004, 984, 986, 975, 1039, 1020, 984, 990, 986, 991, 1021, 981, 1006, 1043, 981), .Dim = c(30, 5))) inits #list(theta=1500, tau.with=1, sigma.btw=1) #list(theta=1500, tau.with=1,ICC=0.5) list(theta=1500, tau.with=1, tau.btw=1) model { for( i in 1 : batches ) { mu[i] ~ dnorm(theta, tau.btw) for( j in 1 : samples ) { y[i , j] ~ dnorm(mu[i], tau.with) } } theta ~ dnorm(0.0, 1.0E-10) # prior for within-variation sigma2.with <- 1 / tau.with tau.with ~ dgamma(0.001, 0.001) mu.grand <- mean(mu[]) sigma.with <- sqrt(sigma2.with) sigma.btw <- sqrt(sigma2.btw) ICC <- sigma2.btw / (sigma2.btw+sigma2.with) # Prior 3: gamma(0.001, 0.001) NOT RECOMMENDED tau.btw ~ dgamma(0.001, 0.001) sigma2.btw <- 1 / tau.btw }TextControllers.StdCtrlDescTextControllers.ControllerDescContainers.ControllerDescControllers.ControllerDesc TextRulers.StdRulerDescTextRulers.RulerDescTextRulers.StdStyleDescTextRulers.StyleDescZTextRulers.AttributesDesc$0ZGo * <[ @Documents.ControllerDesc vz pk ~