mean_degparms: Fix rownames in random effects

1 files changed, 1 insertions, 1 deletions

diff --git a/R/nlme.R b/R/nlme.R
index ef93327c..60cd2ca1 100644
--- a/R/nlme.R
+++ b/R/nlme.R
@@ -136,7 +136,7 @@ mean_degparms <- function(object, random = FALSE) {
   if (random) {
     degparm_mat_trans[mean_degparm_names, ]
     random <- t(apply(degparm_mat_trans[mean_degparm_names, ], 2, function(column) column - fixed))
-    rownames(random) <- as.character(1:nrow(random))
+    rownames(random) <- levels(nlme_data(object)$ds)
     return(list(fixed = fixed, random = list(ds = random)))
   } else {
     return(fixed)