powered by
param <- modelExtractParam(model, only.values=TRUE, untransformed.values=FALSE)
modelExpandParam