release version 0.2.5

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: tukeyedar
-Version: 0.2.4
+Version: 0.2.5
 Type: Package
 Title: Tukey Inspired Exploratory Data Analysis Functions
 Authors@R: person(given = "Manuel", 

NEWS.md

@@ -1,3 +1,7 @@
+# tukeyedar 0.2.5
+* Added symmetry QQ option to `eda_qq` function.
+* Ensure that all re-expressions default to Box-Cox method.
+
 # tukeyedar 0.2.4
 * Added polynomial option to `eda_lm` function.
 * Added robust fitting option to `eda_lm` function (uses `MASS::rlm`)

R/eda_bipow.R

@@ -35,11 +35,11 @@
 #' eda_bipow(dat = cars, x = speed, y = dist)
 #' # Custom powers
 #' eda_bipow(dat = cars, x = speed, y = dist, p = c(-1, -0.5, 0, 0.5, 1))
-#' # Adopt box-cox transformation
-#' eda_bipow(dat = cars, x = speed, y = dist, tukey = FALSE, p = c(-1, -0.5, 0, 0.5, 1))
+#' # Adopt Tukey transformation
+#' eda_bipow(dat = cars, x = speed, y = dist, tukey = TRUE, p = c(-1, -0.5, 0, 0.5, 1))
 #'
 
-eda_bipow <- function(dat, x, y, p = c(-1, 0, 0.5, 1, 2), tukey=TRUE, ...) {
+eda_bipow <- function(dat, x, y, p = c(-1, 0, 0.5, 1, 2), tukey = FALSE, ...) {
 
   if(!missing(dat))
   {

R/eda_re.R

@@ -19,7 +19,7 @@
 #' x <- c(15, 28, 17, 73,  8, 83,  2)
 #' eda_re(x, p=-1/3)
 
-eda_re <- function(x, p=0, tukey=TRUE){
+eda_re <- function(x, p=0, tukey=FALSE){
   if(p == 0) {
     z <- ifelse(!is.na(x), log(x), NA)
   } else if(tukey == FALSE & p != 1) {

R/eda_rline.R

@@ -75,7 +75,7 @@
 #'
 
 
-eda_rline <- function(dat, x, y, px = 1, py = 1, tukey = TRUE, maxiter = 20){
+eda_rline <- function(dat, x, y, px = 1, py = 1, tukey = FALSE, maxiter = 20){
 
   if(!missing(dat))
   {
@@ -168,7 +168,7 @@ eda_rline <- function(dat, x, y, px = 1, py = 1, tukey = TRUE, maxiter = 20){
 }
 
 
-# eda_rline <- function(dat, x, y, px = 1, py = 1, tukey = TRUE, iter = 20){
+# eda_rline <- function(dat, x, y, px = 1, py = 1, tukey = FALSE, iter = 20){
 #
 #   if(!missing(dat))
 #   {

R/eda_unipow.R

@@ -8,7 +8,7 @@
 #'
 #' @param x  Vector
 #' @param p  Vector of powers
-#' @param tukey If TRUE (default), apply Tukey's power transformation, if FALSE
+#' @param tukey If TRUE, apply Tukey's power transformation. If FALSE
 #'   adopt Box-Cox transformation
 #' @param bins Number of histogram bins
 #' @param cex.main Histogram title size (assigned to each histogram plot)
@@ -30,11 +30,11 @@
 #'
 #' @examples
 #' data(mtcars)
-#' eda_unipow(mtcars$mpg, bins=6)
+#' eda_unipow(mtcars$mpg, bins=6, tukey = TRUE)
 
 
 eda_unipow <- function(x, p = c(2, 1, 1/2, 0.33, 0, -0.33, -1/2, -1, -2),
-                     tukey = TRUE,
+                     tukey = FALSE,
                      bins=5, cex.main=1.3,
                      col="#DDDDDD",border="#AAAAAA",
                      title="Re-expressed data via ladder of powers",

README.Rmd

@@ -58,6 +58,7 @@ It’s strongly recommended that you read the vignettes. These can be accessed f
 -   [A detailed rundown of the resistant line function](https://mgimond.github.io/tukeyedar/articles/RLine.html)
 -   [The median polish](https://mgimond.github.io/tukeyedar/articles/polish.html)
 -   [The empirical QQ plot](https://mgimond.github.io/tukeyedar/articles/qq.html)
+-   [The symmetry QQ plot](https://mgimond.github.io/tukeyedar/articles/symqq.html)
 
 If you chose to have the vignettes locally created when you installed the package, then you can view them locally via `vignette("RLine", package = "tukeyedar")`. If you use a dark themed IDE, the vignettes may not render very well so you might opt to view them in a web browser via the functions `RShowDoc("RLine", package = "tukeyedar")`.
 

README.md

@@ -52,6 +52,7 @@ accessed from this website:
   polish](https://mgimond.github.io/tukeyedar/articles/polish.html)
 - [The empirical QQ
   plot](https://mgimond.github.io/tukeyedar/articles/qq.html)
+- [The symmetry QQ plot](https://mgimond.github.io/tukeyedar/articles/symqq.html)
 
 If you chose to have the vignettes locally created when you installed
 the package, then you can view them locally via