If
class(pars$vector_control) == 'none'
then dynamic vector_control has not
been set up by any other function.
This sets class(vector_control) <- 'dynamic' and
then sets up a trivial module for every mode of
vector control.
Usage
# S3 method for class 'none'
dynamic_vector_control(pars)