customize_model: Efficiently edit rows of model code generated from nimble

In sitkensis22/localSCR: Supporting functions for advanced Bayesian spatial capture-recapture modeling using 'nimble'

Efficiently edit rows of model code generated from nimble

Description

Allows for efficient editing of model code produced by nimbleCode() function

Usage

customize_model(
  model,
  append_code = NULL,
  append_line = NULL,
  remove_line = NULL,
  write = FALSE
)

Arguments

model	The nimbleCode() used to define model in nimble package, possibly generated from get_classic function.
append_code	Either NULL or model code produced from nimbleCode() or get_classic function. Note that if remove_line = NULL, then code will be appended just after existing model code; otherwise specify the lines to insert new code into by setting append_line.
append_line	Either NULL or an integer value as a scalar or vector defining which positions to insert new lines of code in the model. Note that if multiple lines of new code are to be inserted on the same line, then just use rep(44,3) for example if the new code had 3 lines to insert (not counting "{" and "}"). The lines to append to should be based on the original model given to model.
remove_line	Either NULL or an integer value as a scalar or vector defining which lines of code to remove from the original model. Set to NULL when only appending to and not replacing code in previous model file (i.e., model).
write	Logical. If TRUE, then a text file is written to the working directory called "new_model.txt". Otherwise, model is written to temp file and then deleted. Default is FALSE.

Value

A model description that can be run using run_classic.

Author(s)

Daniel Eacker

Examples

# get model
scr_model = get_classic(dim_y = 2, enc_dist = "binomial",sex_sigma = TRUE,
hab_mask=TRUE,trapsClustered = TRUE)

# create new nimbleCode to use for replacement in 'scr_model'
p0_prior = nimble::nimbleCode({
   p0[g] ~ dbeta(1,1)
})

# replace line 3 of old model code with 'p0_prior' 
new_model = customize_model(model = scr_model, append_code = p0_prior, 
                                   append_line = 3, remove_line = 3)
                                   
# inspect new model code
new_model

sitkensis22/localSCR documentation built on May 15, 2022, 5:26 p.m.