CDOoDocuments.StdDocumentDescDocuments.DocumentDescContainers.ViewDescViews.ViewDescStores.StoreDescODocuments.ModelDescContainers.ModelDescModels.ModelDescStores.ElemDesc TextViews.StdViewDescTextViews.ViewDesc?TextModels.StdModelDescTextModels.ModelDescIATextModels.AttributesDesc'*7 *imodel{ # likelihood for (i in 1:N){ y[i] ~ dnorm( mu, tau ) } mu ~ dnorm( 0, 0.01 ) # prior for mu tau~ dgamma( 0.01, 0.01 ) # prior for mu # # deterministic definition of variance sigma.squared<-1/tau # deterministic definition of st.deviation sigma<-sqrt(sigma.squared) } DATA list( N=10, y=c(-1.76, 0.38, 1.23, -0.67, -0.47, -1.36, 1.41, -0.07, -1.23, 2.35) ) INITS list( mu=1, tau=2 ) ------------------------------------------------- model with tranformation -------------------------------------------- model{ # likelihood for (i in 1:N){ z[i] <- log( abs( y[i]) ) z[i] ~ dnorm( mu, tau ) } mu ~ dnorm( 0, 0.01 ) # prior for mu tau~ dgamma( 0.01, 0.01 ) # prior for mu # # deterministic definition of variance sigma.squared<-1/tau # deterministic definition of st.deviation sigma<-sqrt(sigma.squared) } TextControllers.StdCtrlDescTextControllers.ControllerDescContainers.ControllerDescControllers.ControllerDesc TextRulers.StdRulerDescTextRulers.RulerDescTextRulers.StdStyleDescTextRulers.StyleDescZTextRulers.AttributesDesc$ Zo * ,[ @Documents.ControllerDesc Ws,! [h$