aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2020-04-16 11:10:25 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2020-04-16 11:10:25 +0200
commit5b42ee1eb78ae981a2d45ece36def66925b14324 (patch)
treeec455c6c3402f215a53154380d5ade6bf2f7affc
parentd518c4cfa22994db5ba81a6b01c6cb4c4186872e (diff)
mean_degparms: Fix rownames in random effects
-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