Update gadget likelihood components in a likelihood file

Replace and/or append new likelihood comonents to an existing file

# S3 method for gadgetlikelihood
gadget_update(gf, component, ...)

Arguments

gf

The gadgetfile object to update

component

Either a replacement gadget_likelihood_component (from MFDB or rgadget), or a component type name

...

If a component type was provided above, the extra options to supply to gadget_likelihood_component

Examples

if (FALSE) {
library(magrittr)  # import %>% function
path <- './model'
gadgetlikelihood('likelihood', path, missingOkay = TRUE) %>%
   # Add an understocking component
   gadget_update(gadget_understocking_component(name = 'understocking')) %>% 
   gadget_update('understocking', name = 'understocking') %>% # Identical to above
   write.gadget.file(path)
   }