diff options
author | Johannes Ranke <jranke@uni-bremen.de> | 2020-04-16 11:10:25 +0200 |
---|---|---|
committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-04-16 11:10:25 +0200 |
commit | 5b42ee1eb78ae981a2d45ece36def66925b14324 (patch) | |
tree | ec455c6c3402f215a53154380d5ade6bf2f7affc | |
parent | d518c4cfa22994db5ba81a6b01c6cb4c4186872e (diff) |
mean_degparms: Fix rownames in random effects
-rw-r--r-- | R/nlme.R | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) |