model_code: JAGS Model Generated by HypMuVar

Description Usage Arguments Value Examples

View source: R/model_code.R

Description

JAGS Model Generated by HypMuVar

Usage

1
model_code(object)

Arguments

object

melsm object

Value

printed JAGS model

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
## Not run: 
dat <- nlme::Orthodont
fit <- melsm(fixed_location = distance ~  age,
            random_location = ~ age | Subject,
            fixed_scale = sigma ~  1, k = 3,
            random_scale = ~ 1 | Subject,
            adapt = 5000,
            iter = 10000,
            rho_test = "all",
            mixture = "SSVS",
            data = dat)

model_code(fit)

## End(Not run)

donaldRwilliams/hypMuVar documentation built on Jan. 10, 2020, 9:45 a.m.