model.norm.obs: ~~function to do ... ~~

In jservadio/TrialistNof1: Bayesian N-of-1 calculations

Usage

model.norm.obs(nobs, Covs, prior, path)

Arguments

nobs
Covs
prior
path

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (nobs, Covs, prior, path) 
{
    cat("\n    for (i in 1:", nobs, ") {\n       mu[i] <- alpha + beta*Treat[i]\n       Y[i] ~ dnorm(mu[i],prec)\n    }", 
        file = paste(path, "model.txt", sep = ""), append = T, 
        sep = "")
    cat("\n    alpha ~ ", prior$Prior.alpha, file = paste(path, 
        "model.txt", sep = ""), append = T, sep = "")
    cat("\n    beta ~ ", prior$Prior.beta, file = paste(path, 
        "model.txt", sep = ""), append = T, sep = "")
  }

jservadio/TrialistNof1 documentation built on May 20, 2019, 2:08 a.m.