CDOoDocuments.StdDocumentDescDocuments.DocumentDescContainers.ViewDescViews.ViewDescStores.StoreDescS Documents.ModelDescContainers.ModelDescModels.ModelDescStores.ElemDesc TextViews.StdViewDescTextViews.ViewDescC TextModels.StdModelDescTextModels.ModelDescM E cTextModels.AttributesDesc4'Century Gothic 4'Century GothicPS 9'Century Gothic '*PS '@*PS .*.StdFolds.FoldDesc  a6 *!model{ for (i in 1:n) { z[i] <- log(y[i]) z[i] ~ dnorm(mu[i], tau) mu[i] <- beta[1]*Ind[i,1]+beta[2]*Ind[i,2]+beta[3]*Ind[i,3]+beta[4]*Ind[i,4] } tau ~ dgamma(0.01,0.01) sigma <- 1 / sqrt(tau) beta[1] ~ dnorm(0, 0.001) beta[2] ~ dnorm(0, 0.001) beta[3] ~ dnorm(0, 0.001) beta[4] ~ dnorm(0, 0.001) becb < - exp(beta[1]) becff <- exp(beta[1]+beta[4]) ccb <- exp(beta[2]) ccff <- exp(beta[2]+beta[4]) gcb <- exp(beta[3]) gcff <- exp(beta[3]+beta[4]) } .  =*.n Y ;6 *list(n=41,Ind=structure(.Data=c(1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0), .Dim = c(41, 4)), y=c(5, 13, 7.2, 6.8, 12.8, 5.8, 9.5, 6, 3.8, 14.3, 1.8, 6.9, 4.7, 9.5, 0.9, 12.9, 2.6, 3.5, 26.6, 1.5, 13, 8.8, 19.5, 2.5, 9, 13.1, 3.6, 6.9, 14.3, 6.9, 7.6, 9.8, 2.6, 43.5, 4.9, 3.5, 4.8, 5.6, 3.5, 3.9, 6.7)). Radon measurements example Blue Earth county becb = basement becff = first floor Clay county ccb = basement ccff = first floor Goodhue county gcb = basement gcff = first floor Model Data  TextControllers.StdCtrlDescTextControllers.ControllerDescContainers.ControllerDescControllers.ControllerDesc TextRulers.StdRulerDescTextRulers.RulerDescTextRulers.StdStyleDescTextRulers.StyleDescZTextRulers.AttributesDesc$0ZGo * <[ @Documents.ControllerDesc vz pk ~