lag() function removed from cor_table

ropensci · May 25, 2023 · 16b3be8 · 16b3be8
1 parent c320e08
commit 16b3be8
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 7 deletions.
diff --git a/.Rproj.user/429CC01A/pcs/source-pane.pper b/.Rproj.user/429CC01A/pcs/source-pane.pper
@@ -1,3 +1,3 @@
 {
-    "activeTab": 7
+    "activeTab": 6
 }
diff --git a/.Rproj.user/429CC01A/pcs/windowlayoutstate.pper b/.Rproj.user/429CC01A/pcs/windowlayoutstate.pper
@@ -1,12 +1,12 @@
 {
     "left": {
-        "splitterpos": 296,
+        "splitterpos": 275,
         "topwindowstate": "NORMAL",
         "panelheight": 937,
         "windowheight": 975
     },
     "right": {
-        "splitterpos": 349,
+        "splitterpos": 348,
         "topwindowstate": "NORMAL",
         "panelheight": 937,
         "windowheight": 975

diff --git a/.Rproj.user/429CC01A/pcs/workbench-pane.pper b/.Rproj.user/429CC01A/pcs/workbench-pane.pper
@@ -1,5 +1,5 @@
 {
-    "TabSet1": 4,
+    "TabSet1": 0,
     "TabSet2": 0,
     "TabZoom": {}
 }
diff --git a/R/cor_table.R b/R/cor_table.R
@@ -37,7 +37,7 @@ cor_table <-
               sort_by = "t_Ho") #c("glk", "t_St", "t_BP", "t_Ho", "r_pearson"))
      {
           # to avoid notes in CMD check
-          pnorm <- lag <- cor <- select <- series <- reference <- NULL
+          pnorm <- cor <- select <- series <- reference <- NULL
 
           ### checks
           x_ori <- x
@@ -183,10 +183,10 @@ cor_table <-
           colnames(tHo_mat) <- names(y)
 
           if ("t_Ho" %in% values) {
-               wuch_x <- apply(x, 2, function(x) {x / lag(x)} )
+               wuch_x <- apply(x, 2, function(x) {x / c(NA, x[-length(x)])} )
                wuch_x <- 100 * log10(wuch_x)
 
-               wuch_y <- apply(y, 2, function(x) {x / lag(x)} )
+               wuch_y <- apply(y, 2, function(x) {x / c(NA, x[-length(x)])} )
                wuch_y <- 100 * log10(wuch_y)
 
                r <-