aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
Diffstat (limited to 'R')
-rw-r--r--R/nlme.R2
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)

Contact - Imprint