copied dev to main

mgimond · Mar 19, 2024 · 79fa21c · 79fa21c
1 parent 6cf8a50
commit 79fa21c
Show file tree

Hide file tree

Showing 45 changed files with 99 additions and 77 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,6 @@
 # tukeyedar 0.2.3
+* Added `show.par` option  to `eda_qq`
+* fixed issue #17.
 
 # tukeyedar 0.2.2
 * Re-wrote eda_rline function. This also fixed issue #15.

diff --git a/R/eda_dens.R b/R/eda_dens.R
@@ -25,6 +25,8 @@
 #' @param legend Boolean determining if a legend should be added to the plot.
 #' @param xlab X variable label. Ignored if \code{x} is a dataframe.
 #' @param ylab Y variable label. Ignored if \code{x} is a dataframe.
+#' @param show.par Boolean determining if parameters such as power
+#'   transformation or formula should be displayed.
 #' @param ... Arguments passed to the \code{stats::density()} function.
 #'
 #' @details This function will generate overlapping density plots with the first
@@ -49,7 +51,7 @@
 
 
 eda_dens <- function(x, y, fac = NULL, p = 1L, tukey = FALSE, fx = NULL,
-                     fy = NULL, grey = 0.6, col = "red", size = 0.8,
+                     fy = NULL, grey = 0.6, col = "red", size = 0.8, show.par= TRUE,
                      alpha = 0.4, xlab = NULL, ylab = NULL, legend = TRUE, ...) {
 
   # Extract data
@@ -151,7 +153,10 @@ eda_dens <- function(x, y, fac = NULL, p = 1L, tukey = FALSE, fx = NULL,
        tck = -0.02)
   mtext("Density", side=3, adj= -0.1 , col=plotcol, padj = -1)
   title(xlab = "Value", line = 1.8, col.lab=plotcol)
-  mtext(side = 3, text=paste0("p=",p,";",fx," ",fy,sep=""), adj=1, cex = 0.65)
+
+  if(show.par == TRUE){
+     mtext(side = 3, text=paste0("p=",p,";",fx," ",fy,sep=""), adj=1, cex = 0.65)
+  }
 
    if (legend == TRUE){
     sq <- par("usr") # get plot corners

diff --git a/R/eda_qq.R b/R/eda_qq.R
@@ -347,11 +347,11 @@ eda_qq <- function(x, y=NULL, fac = NULL, norm = FALSE, p = 1L, tukey = FALSE,
     }
 
     # Add power/formula parameters to plot
-    if(norm != TRUE){
+    if(norm != TRUE & show.par == TRUE){
       params <- gsub(";\\s*;?\\s*$", "",  paste0("p=", p,"; ",fx,"; ",fy))
       params <- gsub("\\; \\;", ";", params)
       mtext(side = 3, text=params, adj=1, cex = 0.65)
-    } else {
+    } else if (show.par == TRUE) {
       mtext(side = 3, text=paste0("p=",p), adj=1, cex = 0.65)
     }
 

diff --git a/docs/404.html b/docs/404.html
diff --git a/docs/LICENSE-text.html b/docs/LICENSE-text.html
diff --git a/docs/articles/RLine.html b/docs/articles/RLine.html
diff --git a/docs/articles/RLine_files/figure-html/unnamed-chunk-22-1.png b/docs/articles/RLine_files/figure-html/unnamed-chunk-22-1.png
diff --git a/docs/articles/RLine_files/figure-html/unnamed-chunk-25-1.png b/docs/articles/RLine_files/figure-html/unnamed-chunk-25-1.png
diff --git a/docs/articles/index.html b/docs/articles/index.html
diff --git a/docs/articles/polish.html b/docs/articles/polish.html
diff --git a/docs/articles/qq.html b/docs/articles/qq.html
diff --git a/docs/authors.html b/docs/authors.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/news/index.html b/docs/news/index.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -1,11 +1,11 @@
 pandoc: 3.1.1
-pkgdown: 2.0.7
-pkgdown_sha: ~
+pkgdown: 2.0.7.9000
+pkgdown_sha: 13d8d621105a3a527a05e46c6c805a6564c39791
 articles:
   polish: polish.html
   qq: qq.html
   RLine: RLine.html
-last_built: 2024-02-07T14:47Z
+last_built: 2024-03-19T00:07Z
 urls:
   reference: https://mgimond.github.io/tukeyedar/reference
   article: https://mgimond.github.io/tukeyedar/articles

diff --git a/docs/reference/age_height.html b/docs/reference/age_height.html
diff --git a/docs/reference/eda_3pt.html b/docs/reference/eda_3pt.html
diff --git a/docs/reference/eda_add.html b/docs/reference/eda_add.html
diff --git a/docs/reference/eda_bipow.html b/docs/reference/eda_bipow.html
diff --git a/docs/reference/eda_boxls.html b/docs/reference/eda_boxls.html
diff --git a/docs/reference/eda_dens.html b/docs/reference/eda_dens.html
diff --git a/docs/reference/eda_lm.html b/docs/reference/eda_lm.html
diff --git a/docs/reference/eda_lsum.html b/docs/reference/eda_lsum.html
diff --git a/docs/reference/eda_normfit-12.png b/docs/reference/eda_normfit-12.png
diff --git a/docs/reference/eda_normfit.html b/docs/reference/eda_normfit.html
diff --git a/docs/reference/eda_pol.html b/docs/reference/eda_pol.html
diff --git a/docs/reference/eda_qq.html b/docs/reference/eda_qq.html
diff --git a/docs/reference/eda_re.html b/docs/reference/eda_re.html
diff --git a/docs/reference/eda_rline-4.png b/docs/reference/eda_rline-4.png
diff --git a/docs/reference/eda_rline.html b/docs/reference/eda_rline.html
diff --git a/docs/reference/eda_sl.html b/docs/reference/eda_sl.html
diff --git a/docs/reference/eda_trim.html b/docs/reference/eda_trim.html
diff --git a/docs/reference/eda_unipow.html b/docs/reference/eda_unipow.html