From: Ben Pfaff <blp@cs.stanford.edu>
Date: Mon, 6 Dec 2021 05:18:42 +0000 (-0800)
Subject: expressions: Fix definitions of IDF.T1G and IDF.T2G.
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1988e441ff2f0d547d581290d87ec3cefea66b28;hp=82a757994ab8880706b7e0caeac2ca3bbd711ed2;p=pspp

expressions: Fix definitions of IDF.T1G and IDF.T2G.
---

diff --git a/src/language/expressions/operations.def b/src/language/expressions/operations.def
index df2887044f..42728e46ea 100644
--- a/src/language/expressions/operations.def
+++ b/src/language/expressions/operations.def
@@ -872,14 +872,14 @@ function NPDF.T (x, df > 0, nc) = unimplemented;
 // Type-1 Gumbel distribution.
 extension function CDF.T1G (x, a, b) = gsl_cdf_gumbel1_P (x, a, b);
 extension function IDF.T1G (P >= 0 && P <= 1, a, b)
-     = gsl_cdf_gumbel1_P (P, a, b);
+     = gsl_cdf_gumbel1_Pinv (P, a, b);
 extension function PDF.T1G (x, a, b) = gsl_ran_gumbel1_pdf (x, a, b);
 no_opt extension function RV.T1G (a, b) = gsl_ran_gumbel1 (get_rng (), a, b);
 
 // Type-2 Gumbel distribution.
 extension function CDF.T2G (x, a, b) = gsl_cdf_gumbel2_P (x, a, b);
 extension function IDF.T2G (P >= 0 && P <= 1, a, b)
-     = gsl_cdf_gumbel2_P (P, a, b);
+     = gsl_cdf_gumbel2_Pinv (P, a, b);
 extension function PDF.T2G (x, a, b) = gsl_ran_gumbel2_pdf (x, a, b);
 no_opt extension function RV.T2G (a, b) = gsl_ran_gumbel2 (get_rng (), a, b);