From 63c9f8dc1de2d479a08acf6860ac1f022d1fd674 Mon Sep 17 00:00:00 2001
From: "Win Cowger, PhD" <wincowger@gmail.com>
Date: Thu, 14 Mar 2024 08:54:13 -0700
Subject: [PATCH] fix bugs with manage Na and Notes

---
 NAMESPACE        | 2 ++
 R/manage_na.R    | 8 ++++++--
 R/sig_noise.R    | 2 +-
 man/manage_na.Rd | 8 ++++++--
 4 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index 4fec353f..d54a84d1 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -171,6 +171,7 @@ importFrom(shiny,runGitHub)
 importFrom(shiny,shinyOptions)
 importFrom(signal,filter)
 importFrom(signal,sgolay)
+importFrom(stats,IQR)
 importFrom(stats,approx)
 importFrom(stats,cor)
 importFrom(stats,dist)
@@ -180,6 +181,7 @@ importFrom(stats,model.frame)
 importFrom(stats,poly)
 importFrom(stats,prcomp)
 importFrom(stats,predict)
+importFrom(stats,quantile)
 importFrom(stats,sd)
 importFrom(stats,setNames)
 importFrom(stats,terms)
diff --git a/R/manage_na.R b/R/manage_na.R
index 38615ff8..52f76f63 100644
--- a/R/manage_na.R
+++ b/R/manage_na.R
@@ -22,8 +22,12 @@
 #' manage_na(c(NA, 0, NA, 1, 10), lead_tail_only = FALSE, ig = c(NA,0))
 #' data(raman_hdpe)
 #' raman_hdpe$spectra[[1]][1:10] <- NA
-#' manage_na(raman_hdpe, fun = make_rel) #would normally return all NA without na.rm = TRUE but doesn't here. 
-#' manage_na(raman_hdpe, type = "remove") #will remove the first 10 values we set to NA
+#' 
+#' #would normally return all NA without na.rm = TRUE but doesn't here. 
+#' manage_na(raman_hdpe, fun = make_rel) 
+#' 
+#' #will remove the first 10 values we set to NA
+#' manage_na(raman_hdpe, type = "remove") 
 #' 
 #' @author
 #' Win Cowger, Zacharias Steinmetz
diff --git a/R/sig_noise.R b/R/sig_noise.R
index 6e5bc41c..e23c658b 100644
--- a/R/sig_noise.R
+++ b/R/sig_noise.R
@@ -47,7 +47,7 @@
 #' sig_noise(raman_hdpe, metric = "noise")
 #' sig_noise(raman_hdpe, metric = "sig_times_noise")
 #'
-#' @importFrom stats median
+#' @importFrom stats median IQR quantile
 #' @importFrom data.table frollapply
 #' @importFrom mmand gaussianSmooth
 #' 
diff --git a/man/manage_na.Rd b/man/manage_na.Rd
index 2191d8bf..cdb992bb 100644
--- a/man/manage_na.Rd
+++ b/man/manage_na.Rd
@@ -39,8 +39,12 @@ manage_na(c(NA, -1, NA, 1, 10), lead_tail_only = FALSE)
 manage_na(c(NA, 0, NA, 1, 10), lead_tail_only = FALSE, ig = c(NA,0))
 data(raman_hdpe)
 raman_hdpe$spectra[[1]][1:10] <- NA
-manage_na(raman_hdpe, fun = make_rel) #would normally return all NA without na.rm = TRUE but doesn't here. 
-manage_na(raman_hdpe, type = "remove") #will remove the first 10 values we set to NA
+
+#would normally return all NA without na.rm = TRUE but doesn't here. 
+manage_na(raman_hdpe, fun = make_rel) 
+
+#will remove the first 10 values we set to NA
+manage_na(raman_hdpe, type = "remove") 
 
 }
 \seealso{