Update R reference

JuliaStats · Dec 14, 2024 · 9bb0947 · 9bb0947
1 parent e9aa32e
commit 9bb0947
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 4 deletions.
diff --git a/src/univariate/discrete/binomial.jl b/src/univariate/discrete/binomial.jl
@@ -73,8 +73,6 @@ function mode(d::Binomial{T}) where T<:Real
 end
 modes(d::Binomial) = Int[mode(d)]
 
-# `median` falls back to quantile-based definition
-
 function skewness(d::Binomial)
     n, p1 = params(d)
     p0 = 1 - p1

diff --git a/test/ref/discrete/binomial.R b/test/ref/discrete/binomial.R
@@ -18,7 +18,7 @@ Binomial <- R6Class("Binomial",
                  failprob=q,
                  ntrials=n,
                  mean=n * p,
-                 median=round(n * p),
+                 median=qbinom(0.5, self$n, self$p),
                  var=n * p * q,
                  skewness=(q - p) / sqrt(n*p*q),
                  kurtosis=(1 - 6*p*q) / (n*p*q))

diff --git a/test/ref/discrete_test.ref.json b/test/ref/discrete_test.ref.json
@@ -285,7 +285,7 @@
     "failprob": 0.5,
     "ntrials": 3,
     "mean": 1.5,
-    "median": 2,
+    "median": 1,
     "var": 0.75,
     "skewness": 0,
     "kurtosis": -0.666666666666667