Upkeep

Author: IndrajeetPatil

DESCRIPTION

@@ -49,14 +49,12 @@ BugReports: https://github.com/easystats/correlation/issues
 Depends:
     R (>= 3.4)
 Imports:
-    bayestestR (>= 0.11.5),
+    bayestestR (>= 0.12.1),
     datasets,
-    datawizard (>= 0.4.0.16),
-    insight (>= 0.17.0),
+    datawizard (>= 0.4.1),
+    insight (>= 0.17.1),
     parameters (>= 0.17.0),
     stats
-Remotes:
-    easystats/datawizard
 Suggests:
     BayesFactor,
     poorman,
@@ -87,6 +85,6 @@ VignetteBuilder:
     knitr
 Encoding: UTF-8
 Language: en-US
-RoxygenNote: 7.1.2
+RoxygenNote: 7.2.0
 Config/testthat/edition: 3
 Roxygen: list(markdown = TRUE)

R/cor_lower.R

@@ -7,21 +7,21 @@
 #' @param ... Other arguments to be passed to or from other functions.
 #'
 #' @examples
-#' x <- correlation(mtcars, redundant = TRUE)  # Generate full matrix
+#' x <- correlation(mtcars, redundant = TRUE) # Generate full matrix
 #' x <- cor_lower(x)
 #'
 #' if (require("ggplot2")) {
-#'   ggplot(x, aes(x = Parameter2, y=Parameter1, fill=r)) +
+#'   ggplot(x, aes(x = Parameter2, y = Parameter1, fill = r)) +
 #'     geom_tile()
 #' }
 #'
 #' # Sorted
-#' x <- correlation(mtcars, redundant = TRUE)  # Generate full matrix
+#' x <- correlation(mtcars, redundant = TRUE) # Generate full matrix
 #' x <- cor_sort(x)
 #' x <- cor_lower(x)
 #'
 #' if (require("ggplot2")) {
-#'   ggplot(x, aes(x = Parameter2, y=Parameter1, fill=r)) +
+#'   ggplot(x, aes(x = Parameter2, y = Parameter1, fill = r)) +
 #'     geom_tile()
 #' }
 #' @export
@@ -42,9 +42,9 @@ cor_lower.easycorrelation <- function(x, diag = FALSE, ...) {
 
   tokeep <- c()
 
-  for(param1 in rownames(m)) {
-    for(param2 in colnames(m)) {
-      if(tri[param1, param2] == TRUE) {
+  for (param1 in rownames(m)) {
+    for (param2 in colnames(m)) {
+      if (tri[param1, param2] == TRUE) {
         tokeep <- c(tokeep, which(x$Parameter1 == param1 & x$Parameter2 == param2))
       }
     }

R/cor_test.R

@@ -20,12 +20,13 @@
 #'   factors involved, point-biserial if one dichotomous and one continuous and
 #'   pearson otherwise). See below the **details** section for a description of
 #'   these indices.
-#' @param bayesian,partial_bayesian If TRUE, will run the correlations under a
-#'   Bayesian framework. Note that for partial correlations, you will also need
-#'   to set `partial_bayesian` to `TRUE` to obtain "full" Bayesian
-#'   partial correlations. Otherwise, you will obtain pseudo-Bayesian partial
-#'   correlations (i.e., Bayesian correlation based on frequentist
-#'   partialization).
+#' @param bayesian If `TRUE`, will run the correlations under a Bayesian
+#'   framework.
+#' @param partial_bayesian If partial correlations under a Bayesian framework
+#'   are needed, you will also need to set `partial_bayesian` to `TRUE` to
+#'   obtain "full" Bayesian partial correlations. Otherwise, you will obtain
+#'   pseudo-Bayesian partial correlations (i.e., Bayesian correlation based on
+#'   frequentist partialization).
 #' @param include_factors If `TRUE`, the factors are kept and eventually
 #'   converted to numeric or used as random effects (depending of
 #'   `multilevel`). If `FALSE`, factors are removed upfront.

R/cor_to_pcor.R

@@ -17,7 +17,9 @@
 #' predictor, because it is scaled to (i.e., relative to) the total variability
 #' in the response variable.
 #'
-#' @param cor,pcor A correlation matrix, or a partial or a semipartial
+#' @param cor A correlation matrix, or a partial or a semipartial
+#'   correlation matrix.
+#' @param pcor A correlation matrix, or a partial or a semipartial
 #'   correlation matrix.
 #' @param cov A covariance matrix (or a vector of the SD of the variables).
 #'   Required for semi-partial correlations.

R/methods.easycorrelation.R

@@ -126,9 +126,6 @@ standardize_names.easycorrelation <- function(data, ...) {
 }
 
 
-
-
-
 # Internals ---------------------------------------------------------------
 
 #' @keywords internal