Nothing
# Unrelated study effects model
mtc.model.use <- function(model) {
model[['linearModel']] <- 'random'
model[['data']] <- mtc.model.data(model)
model[['data']][['nt']] <- NULL
model[['data']][['t']] <- NULL
model[['inits']] <- lapply(mtc.init(model), function(inits) {
inits[-which(names(inits) == "sd.d")]
})
model[['code']] <- mtc.model.code(model, c(), '', template='gemtc.model.use.template.txt')
monitors <- inits.to.monitors(model[['inits']][[1]])
model[['monitors']] <- list(
available=monitors,
enabled=monitors[grep('^delta\\[', monitors)]
)
class(model) <- "mtc.model"
model
}
mtc.model.name.use <- function(model) {
"unrelated study effects"
}
func.param.matrix.use <- function(model, t1, t2) {
stop('func.param.matrix.use not implemented')
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.