From 790a5360fc47c2509f0f42199969a8bbe6d00063 Mon Sep 17 00:00:00 2001 From: Florian Kohrt Date: Wed, 3 Apr 2024 03:50:57 +0200 Subject: [PATCH] Fix `m` and `kopt` not passed to `ash1()` --- R/geom_ash.r | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/geom_ash.r b/R/geom_ash.r index 81d7644..9778537 100644 --- a/R/geom_ash.r +++ b/R/geom_ash.r @@ -118,7 +118,7 @@ StatAsh <- ggproto("StatAsh", Stat, if (is.null(ab)) ab <- nicerange(data$x) bin_res <- ash::bin1(data$x, ab, nbin) - ash_msg <- capture.output(ash_res <- ash1(bin_res)) + ash_msg <- capture.output(ash_res <- ash1(bin_res, m = m, kopt = kopt)) if (ash_res$ier == 1) message("Estimate nonzero outside interval ab.")