Fix documentation

afsc-gap-products · Dec 16, 2024 · e1d7f59 · e1d7f59
1 parent 9a98842
commit e1d7f59
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/R/calc_fixed_depth_bt.R b/R/calc_fixed_depth_bt.R
@@ -11,17 +11,16 @@
 calc_fixed_depth_var_bt <- 
   function(depth,
            var,
-           ref_depth, 
-           min_depth = 0) {
+           ref_depth) {
 
     # Case when there's no data or surface data are missing
     if(min(depth) > (ref_depth + 5) | length(depth) < 1) {
       return(NA)
     }
 
     # Select only data from below the surface
-    var <- var[depth >= min_depth]
-    depth <- depth[depth >= min_depth]
+    var <- var[depth >= 0]
+    depth <- depth[depth >= 0]
 
     # Case where there's no data shallower than the reference depth, but data within 5 m
     if(length(depth) > 1 & min(depth) > ref_depth) {

diff --git a/man/calc_fixed_depth_var_bt.Rd b/man/calc_fixed_depth_var_bt.Rd