reanme cutoffs to guidelines (#21)

rempsyc · Oct 9, 2023 · d471351 · d471351
1 parent 616e099
commit d471351
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/R/nice_fit.R b/R/nice_fit.R
@@ -15,7 +15,7 @@
 #' is unnamed, defaults to generic numbering.
 #' @param nice_table Logical, whether to print the table as a
 #'                   [rempsyc::nice_table].
-#' @param cutoffs Logical, if `nice_table = TRUE`, whether to display
+#' @param guidelines Logical, if `nice_table = TRUE`, whether to display
 #'  include reference values based on Schreiber (2017), Table 3, at the
 #'  bottom of the table.
 #' @param stars Logical, if `nice_table = TRUE`, whether to display
@@ -47,7 +47,7 @@
 #' fit <- sem(HS.model, data = HolzingerSwineford1939)
 #' nice_fit(fit)
 #'
-nice_fit <- function(model, model.labels, nice_table = FALSE, cutoffs = TRUE, stars = FALSE) {
+nice_fit <- function(model, model.labels, nice_table = FALSE, guidelines = TRUE, stars = FALSE) {
   if (inherits(model, "list") && all(unlist(lapply(model, inherits, "lavaan")))) {
     models.list <- model
   } else if (inherits(model, "lavaan")) {
@@ -93,10 +93,10 @@ nice_fit <- function(model, model.labels, nice_table = FALSE, cutoffs = TRUE, st
     table <- rempsyc::nice_table(x, stars = stars)
 
     table <- flextable::align(table, align = "center", part = "all")
-    if (isTRUE(cutoffs)) {
+    if (isTRUE(guidelines)) {
       table <- flextable::add_footer_row(table,
         values = c(
-          Model = "Suggested soft cutoffs",
+          Model = "Common guidelines",
           chi2 = "\u2014",
           df = "\u2014",
           chi2.df = "< 2 or 3",

diff --git a/man/nice_fit.Rd b/man/nice_fit.Rd