also update function call

jangorecki · jangorecki · commit 784ad571cfe3 · 2025-05-26T10:56:00.000+02:00
diff --git a/R/froll.R b/R/froll.R
@@ -54,7 +54,7 @@ partial2adaptive = function(x, n, align, adaptive) {
       stopf("length of vectors in 'x' must match to length of adaptive window in 'n'")
     if (verbose)
       cat("partial2adaptive: froll adaptive=TRUE and partial=TRUE trimming 'n'\n")
-    lapply(n, align, FUN=triman)
+    lapply(n, align, FUN=trimnadaptive)
   }
 }
 

Original file line number	Diff line number	Diff line change
`@@ -54,7 +54,7 @@ partial2adaptive = function(x, n, align, adaptive) {`
`54`	`54`	`stopf("length of vectors in 'x' must match to length of adaptive window in 'n'")`
`55`	`55`	`if (verbose)`
`56`	`56`	`cat("partial2adaptive: froll adaptive=TRUE and partial=TRUE trimming 'n'\n")`
`57`		`- lapply(n, align, FUN=triman)`
	`57`	`+ lapply(n, align, FUN=trimnadaptive)`
`58`	`58`	`}`
`59`	`59`	`}`
`60`	`60`