add support

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: parameters
 Title: Processing of Model Parameters
-Version: 0.21.5.1
+Version: 0.21.5.2
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",

NEWS.md

@@ -1,5 +1,9 @@
 # parameters 0.21.6
 
+## New supported models
+
+* Support for models of class `serp` (*serp*).
+
 ## Bug fixes
 
 * Fixed issue with parameter names for `model_parameters()` and objects from

R/format_parameters.R

@@ -141,7 +141,15 @@ format_parameters.parameters_model <- function(model, ...) {
 
     if (types$Type[i] %in% c("interaction", "nested", "simple")) {
       # Interaction or nesting
-      components <- unlist(strsplit(name, ":", fixed = TRUE), use.names = FALSE)
+
+      # for "serp" models, coefficients end with ":1", ":2", etc. - we need
+      # to take this into account when splitting the name into components.
+      if (inherits(model, "serp")) {
+        pattern <- "(:(?![0-9]+$))"
+        components <- unlist(strsplit(name, pattern, perl = TRUE), use.names = FALSE)
+      } else {
+        components <- unlist(strsplit(name, ":", fixed = TRUE), use.names = FALSE)
+      }
       is_nested <- types$Type[i] == "nested"
       is_simple <- types$Type[i] == "simple"