cleanup

bbolker · Oct 28, 2024 · 56668d2 · 56668d2
1 parent e93a1b9
commit 56668d2
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 4 deletions.
diff --git a/R/VarCorr_tidiers.R b/R/VarCorr_tidiers.R
@@ -19,7 +19,7 @@ tidy.VarCorr.lme <- function(
 
     if(inherits(object, "VarCorr.lme")) {
         ## Need to convert nlme object to a proper tibble
-        object <- convert_VarCorr.MerMod_to_VarCorr.lme(object)
+        object <- convert_VarCorr.lme(object)
     } 
 
     if (conf.int) {
@@ -94,12 +94,12 @@ tidy.VarCorr.lme <- function(
                                         # 4 Residual NA          NA    655.   25.6  
 
 
-#' This function converts VarCorr on a nlme object to a tibble form of an lme4 object
+#' This function converts VarCorr on a nlme object to a tibble
 #' i.e. VarCorr.merMod -> tibble of VarCorr.lme
 #' @noRd
 #' @param object  A variance-correlation component of nlme::lme object. 
-#' @return The tibble version of VarCorr.lme object from lme4 package.
-convert_VarCorr.MerMod_to_VarCorr.lme <- function(object){
+#' @return A useful (?) tibble
+convert_VarCorr.lme <- function(object){
     A <- as.matrix(object)
     row.residual <- stringr::str_which("Residual", rownames(A))
 

diff --git a/man/tidy.VarCorr.lme.Rd b/man/tidy.VarCorr.lme.Rd