From 5b42ee1eb78ae981a2d45ece36def66925b14324 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 16 Apr 2020 11:10:25 +0200 Subject: mean_degparms: Fix rownames in random effects --- R/nlme.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'R/nlme.R') 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) -- cgit v1.2.1