add internal function

stemangiola · Sep 14, 2023 · 24673bd · 24673bd
1 parent e41a952
commit 24673bd
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/R/glmmSeq.R b/R/glmmSeq.R
@@ -1,3 +1,16 @@
+## Source car:::relatives
+car_relatives <- function (term, names, factors)
+{
+  is.relative <- function(term1, term2) {
+    all(!(factors[, term1] & (!factors[, term2])))
+  }
+  if (length(names) == 1)
+    return(NULL)
+  which.term <- which(term == names)
+  (1:length(names))[-which.term][sapply(names[-which.term],
+                                        function(term2) is.relative(term, term2))]
+}
+
 #' @importFrom stats pchisq
 organiseStats = function (resultList, test.stat)
 {