If class(xds_obj$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.

# S3 method for class 'none'
dynamic_vector_control(xds_obj)

Arguments

xds_obj

a ramp.xds model object

Value

a ramp.xds model object