remove reference to ::: and modify examples

Author: aravindhebbali

NAMESPACE

@@ -116,4 +116,4 @@ importFrom(stats,var)
 importFrom(tibble,as_data_frame)
 importFrom(tibble,tibble)
 importFrom(tidyr,gather)
-useDynLib(inferr)
+useDynLib(inferr, .registration = TRUE)

R/infer-levene-test.R

@@ -77,7 +77,7 @@ infer_levene_test.default <- function(data, ..., group_var = NULL,
             stop('Please specify at least two variables.', call. = FALSE)
         }
 
-        out <- inferr:::gvar(ln, ly)
+        out <- gvar(ln, ly)
         fdata  <- unlist(z)
         groupvars <-
             out %>%
@@ -99,7 +99,7 @@ infer_levene_test.default <- function(data, ..., group_var = NULL,
         }
     }
 
-    k <- inferr:::lev_comp(fdata, groupvars, trim_mean)
+    k <- lev_comp(fdata, groupvars, trim_mean)
 
     out <- list(bf    = k$bf, p_bf  = k$p_bf, lev = k$lev, p_lev = k$p_lev,
                 bft   = k$bft, p_bft = k$p_bft, avgs  = k$avgs, sds   = k$sds,

R/infer-mcnemar-test.R

@@ -34,11 +34,9 @@
 #' @seealso \code{\link[stats]{mcnemar.test}}
 #' @examples
 #' # using variables from data
-#' hb <-
-#'   hsb %>%
-#'     mutate(
-#'       himath = if_else(math > 60, 1, 0),
-#'       hiread = if_else(read > 60, 1, 0)
+#' hb <- mutate(hsb,
+#'         himath = if_else(math > 60, 1, 0),
+#'         hiread = if_else(read > 60, 1, 0)
 #'     )
 #' infer_mcnemar_test(hb, himath, hiread)
 #'