powered by
values <- gpExtractParam(model, model)
gpCreate, gpExpandParam, modelExtractParam
## missing
Run the code above in your browser using DataLab