R/utility.R

Defines functions extract_link

extract_link = function(fit, par = 'gamma'){
    model = get_stancode(fit)
    stringr::str_split(regmatches(model, regexpr(sprintf('//%s_link[a-z_:]+', par), model)), ':', simplify = T)[1,2]
}
boryspaulewicz/bhsdtr documentation built on March 8, 2020, 8:24 a.m.