Fix partial argument name

Fixes #348.
joshuaulrich · Nov 21, 2021 · 276b3ee · 276b3ee
1 parent b33f869
commit 276b3ee
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/TA.R b/R/TA.R
@@ -25,7 +25,7 @@ shading <- function(x)
     warning('need logical object')
   runs <- rle(as.logical(x))
   list(
-     start=cumsum(runs$length)[which(runs$values)] - runs$length[which(runs$values)]+1,
+     start=cumsum(runs$lengths)[which(runs$values)] - runs$lengths[which(runs$values)]+1,
        end=cumsum(runs$lengths)[which(runs$values)]
       )
 }