@stdlib/stats-base-dists-gamma-logpdf 0.2.2 → 0.3.0

package/NOTICE

@@ -1 +1 @@
-Copyright (c) 2016-2024 The Stdlib Authors.
+Copyright (c) 2016-2026 The Stdlib Authors.

package/README.md

@@ -152,21 +152,111 @@ y = mylogpdf( 4.0 );
 <!-- eslint no-undef: "error" -->
 
 ```javascript
-var randu = require( '@stdlib/random-base-randu' );
+var uniform = require( '@stdlib/random-array-uniform' );
+var logEachMap = require( '@stdlib/console-log-each-map' );
 var logpdf = require( '@stdlib/stats-base-dists-gamma-logpdf' );
 
-var alpha;
-var beta;
-var x;
-var y;
-var i;
-
-for ( i = 0; i < 10; i++ ) {
-    x = randu() * 3.0;
-    alpha = randu() * 5.0;
-    beta = randu() * 5.0;
-    y = logpdf( x, alpha, beta );
-    console.log( 'x: %d, α: %d, β: %d, ln(f(x;α,β)): %d', x.toFixed( 4 ), alpha.toFixed( 4 ), beta.toFixed( 4 ), y.toFixed( 4 ) );
+var opts = {
+    'dtype': 'float64'
+};
+var x = uniform( 10, 0.0, 3.0, opts );
+var alpha = uniform( 10, 0.0, 5.0, opts );
+var beta = uniform( 10, 0.0, 5.0, opts );
+
+logEachMap( 'x: %0.4f, α: %0.4f, β: %0.4f, ln(f(x;α,β)): %0.4f', x, alpha, beta, logpdf );
+```
+
+</section>
+
+<!-- /.examples -->
+
+<!-- C interface documentation. -->
+
+* * *
+
+<section class="c">
+
+## C APIs
+
+<!-- Section to include introductory text. Make sure to keep an empty line after the intro `section` element and another before the `/section` close. -->
+
+<section class="intro">
+
+</section>
+
+<!-- /.intro -->
+
+<!-- C usage documentation. -->
+
+<section class="usage">
+
+### Usage
+
+```c
+#include "stdlib/stats/base/dists/gamma/logpdf.h"
+```
+
+#### stdlib_base_dists_gamma_logpdf( x, alpha, beta )
+
+Evaluates the logarithm of the probability density function (PDF) for a gamma distribution with shape parameter `alpha` and rate parameter `beta` at a value `x`.
+
+```c
+double out = stdlib_base_dists_gamma_logpdf( 2.0, 0.5, 1.0 );
+// returns ~-2.919
+```
+
+The function accepts the following arguments:
+
+-   **x**: `[in] double` input value.
+-   **mu**: `[in] double` shape parameter.
+-   **b**: `[in] double` rate parameter.
+
+```c
+double stdlib_base_dists_gamma_logpdf( const double x, const double alpha, const double beta );
+```
+
+</section>
+
+<!-- /.usage -->
+
+<!-- C API usage notes. Make sure to keep an empty line after the `section` element and another before the `/section` close. -->
+
+<section class="notes">
+
+</section>
+
+<!-- /.notes -->
+
+<!-- C API usage examples. -->
+
+<section class="examples">
+
+### Examples
+
+```c
+#include "stdlib/stats/base/dists/gamma/logpdf.h"
+#include <stdlib.h>
+#include <stdio.h>
+
+static double random_uniform( const double min, const double max ) {
+    double v = (double)rand() / ( (double)RAND_MAX + 1.0 );
+    return min + ( v*(max-min) );
+}
+
+int main( void ) {
+    double alpha;
+    double beta;
+    double x;
+    double y;
+    int i;
+
+    for ( i = 0; i < 25; i++ ) {
+        x = random_uniform( 0.0, 10.0 ) - 5.0;
+        alpha = random_uniform( 0.0, 20.0 );
+        beta = random_uniform( 0.0, 20.0 );
+        y = stdlib_base_dists_gamma_logpdf( x, alpha, beta );
+        printf( "x: %lf, α: %lf, β: %lf, ln(f(x;α,β)): %lf\n", x, alpha, beta, y );
+    }
 }
 ```
 
@@ -174,6 +264,10 @@ for ( i = 0; i < 10; i++ ) {
 
 <!-- /.examples -->
 
+</section>
+
+<!-- /.c -->
+
 <!-- Section for related `stdlib` packages. Do not manually edit this section, as it is automatically populated. -->
 
 <section class="related">
@@ -208,7 +302,7 @@ See [LICENSE][stdlib-license].
 
 ## Copyright
 
-Copyright &copy; 2016-2024. The Stdlib [Authors][stdlib-authors].
+Copyright &copy; 2016-2026. The Stdlib [Authors][stdlib-authors].
 
 </section>
 
@@ -221,8 +315,8 @@ Copyright &copy; 2016-2024. The Stdlib [Authors][stdlib-authors].
 [npm-image]: http://img.shields.io/npm/v/@stdlib/stats-base-dists-gamma-logpdf.svg
 [npm-url]: https://npmjs.org/package/@stdlib/stats-base-dists-gamma-logpdf
 
-[test-image]: https://github.com/stdlib-js/stats-base-dists-gamma-logpdf/actions/workflows/test.yml/badge.svg?branch=v0.2.2
-[test-url]: https://github.com/stdlib-js/stats-base-dists-gamma-logpdf/actions/workflows/test.yml?query=branch:v0.2.2
+[test-image]: https://github.com/stdlib-js/stats-base-dists-gamma-logpdf/actions/workflows/test.yml/badge.svg?branch=v0.3.0
+[test-url]: https://github.com/stdlib-js/stats-base-dists-gamma-logpdf/actions/workflows/test.yml?query=branch:v0.3.0
 
 [coverage-image]: https://img.shields.io/codecov/c/github/stdlib-js/stats-base-dists-gamma-logpdf/main.svg
 [coverage-url]: https://codecov.io/github/stdlib-js/stats-base-dists-gamma-logpdf?branch=main
@@ -234,8 +328,8 @@ Copyright &copy; 2016-2024. The Stdlib [Authors][stdlib-authors].
 
 -->
 
-[chat-image]: https://img.shields.io/gitter/room/stdlib-js/stdlib.svg
-[chat-url]: https://app.gitter.im/#/room/#stdlib-js_stdlib:gitter.im
+[chat-image]: https://img.shields.io/badge/zulip-join_chat-brightgreen.svg
+[chat-url]: https://stdlib.zulipchat.com
 
 [stdlib]: https://github.com/stdlib-js/stdlib
 

package/dist/index.d.ts

@@ -1,3 +1,3 @@
 /// <reference path="../docs/types/index.d.ts" />
-import logPDF from '../docs/types/index';
-export = logPDF;
+import logpdf from '../docs/types/index';
+export = logpdf;

package/docs/types/index.d.ts

@@ -113,9 +113,9 @@ interface LogPDF {
 * var y = mylogpdf( 2.0 );
 * // returns ~-3.646
 */
-declare var logPDF: LogPDF;
+declare var logpdf: LogPDF;
 
 
 // EXPORTS //
 
-export = logPDF;
+export = logpdf;

package/include/stdlib/stats/base/dists/gamma/logpdf.h

@@ -0,0 +1,38 @@
+/**
+* @license Apache-2.0
+*
+* Copyright (c) 2025 The Stdlib Authors.
+*
+* Licensed under the Apache License, Version 2.0 (the "License");
+* you may not use this file except in compliance with the License.
+* You may obtain a copy of the License at
+*
+*    http://www.apache.org/licenses/LICENSE-2.0
+*
+* Unless required by applicable law or agreed to in writing, software
+* distributed under the License is distributed on an "AS IS" BASIS,
+* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+* See the License for the specific language governing permissions and
+* limitations under the License.
+*/
+
+#ifndef STDLIB_STATS_BASE_DISTS_GAMMA_LOGPDF_H
+#define STDLIB_STATS_BASE_DISTS_GAMMA_LOGPDF_H
+
+/*
+* If C++, prevent name mangling so that the compiler emits a binary file having undecorated names, thus mirroring the behavior of a C compiler.
+*/
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+/**
+* Evaluates the logarithm of the probability density function (PDF) for a gamma distribution with shape parameter `alpha` and rate parameter `beta` at a value `x`.
+*/
+double stdlib_base_dists_gamma_logpdf( const double x, const double alpha, const double beta );
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif // !STDLIB_STATS_BASE_DISTS_GAMMA_LOGPDF_H

package/lib/native.js

@@ -0,0 +1,78 @@
+/**
+* @license Apache-2.0
+*
+* Copyright (c) 2025 The Stdlib Authors.
+*
+* Licensed under the Apache License, Version 2.0 (the "License");
+* you may not use this file except in compliance with the License.
+* You may obtain a copy of the License at
+*
+*    http://www.apache.org/licenses/LICENSE-2.0
+*
+* Unless required by applicable law or agreed to in writing, software
+* distributed under the License is distributed on an "AS IS" BASIS,
+* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+* See the License for the specific language governing permissions and
+* limitations under the License.
+*/
+
+'use strict';
+
+// MODULES //
+
+var addon = require( './../src/addon.node' );
+
+
+// MAIN //
+
+/**
+* Evaluates the logarithm of the probability density function (PDF) for a gamma distribution with shape parameter `alpha` and rate parameter `beta` at a value `x`.
+*
+* @private
+* @param {number} x - input value
+* @param {NonNegativeNumber} alpha - shape parameter
+* @param {PositiveNumber} beta - rate parameter
+* @returns {number} evaluated logPDF
+*
+* @example
+* var y = logpdf( 2.0, 0.5, 1.0 );
+* // returns ~-2.919
+*
+* @example
+* var y = logpdf( 0.1, 1.0, 1.0 );
+* // returns ~-0.1
+*
+* @example
+* var y = logpdf( -1.0, 4.0, 2.0 );
+* // returns -Infinity
+*
+* @example
+* var y = logpdf( NaN, 0.6, 1.0 );
+* // returns NaN
+*
+* @example
+* var y = logpdf( 0.0, NaN, 1.0 );
+* // returns NaN
+*
+* @example
+* var y = logpdf( 0.0, 1.0, NaN );
+* // returns NaN
+*
+* @example
+* // Negative shape parameter:
+* var y = logpdf( 2.0, -1.0, 1.0 );
+* // returns NaN
+*
+* @example
+* // Negative rate parameter:
+* var y = logpdf( 2.0, 1.0, -1.0 );
+* // returns NaN
+*/
+function logpdf( x, alpha, beta ) {
+	return addon( x, alpha, beta );
+}
+
+
+// EXPORTS //
+
+module.exports = logpdf;

package/manifest.json

@@ -0,0 +1,134 @@
+{
+  "options": {
+    "task": "build",
+    "wasm": false
+  },
+  "fields": [
+    {
+      "field": "src",
+      "resolve": true,
+      "relative": true
+    },
+    {
+      "field": "include",
+      "resolve": true,
+      "relative": true
+    },
+    {
+      "field": "libraries",
+      "resolve": false,
+      "relative": false
+    },
+    {
+      "field": "libpath",
+      "resolve": true,
+      "relative": false
+    }
+  ],
+  "confs": [
+    {
+      "task": "build",
+      "wasm": false,
+      "src": [
+        "./src/main.c"
+      ],
+      "include": [
+        "./include"
+      ],
+      "libraries": [],
+      "libpath": [],
+      "dependencies": [
+        "@stdlib/math-base-napi-ternary",
+        "@stdlib/math-base-assert-is-nan",
+        "@stdlib/math-base-special-ln",
+        "@stdlib/constants-float64-pinf",
+        "@stdlib/constants-float64-ninf",
+        "@stdlib/math-base-special-gammaln",
+        "@stdlib/math-base-special-exp",
+        "@stdlib/constants-float64-max",
+        "@stdlib/math-base-special-gamma-lanczos-sum-expg-scaled",
+        "@stdlib/math-base-special-gamma",
+        "@stdlib/math-base-special-log1p",
+        "@stdlib/math-base-special-sqrt",
+        "@stdlib/math-base-special-abs",
+        "@stdlib/math-base-special-pow",
+        "@stdlib/math-base-special-max",
+        "@stdlib/math-base-special-min",
+        "@stdlib/math-base-special-ln",
+        "@stdlib/constants-float64-max-ln",
+        "@stdlib/constants-float64-min-ln",
+        "@stdlib/constants-float64-gamma-lanczos-g",
+        "@stdlib/constants-float64-e"
+      ]
+    },
+    {
+      "task": "benchmark",
+      "wasm": false,
+      "src": [
+        "./src/main.c"
+      ],
+      "include": [
+        "./include"
+      ],
+      "libraries": [],
+      "libpath": [],
+      "dependencies": [
+        "@stdlib/math-base-assert-is-nan",
+        "@stdlib/math-base-special-ln",
+        "@stdlib/constants-float64-pinf",
+        "@stdlib/constants-float64-ninf",
+        "@stdlib/math-base-special-gammaln",
+        "@stdlib/math-base-special-exp",
+        "@stdlib/constants-float64-max",
+        "@stdlib/math-base-special-gamma-lanczos-sum-expg-scaled",
+        "@stdlib/math-base-special-gamma",
+        "@stdlib/math-base-special-log1p",
+        "@stdlib/math-base-special-sqrt",
+        "@stdlib/math-base-special-abs",
+        "@stdlib/math-base-special-pow",
+        "@stdlib/math-base-special-max",
+        "@stdlib/math-base-special-min",
+        "@stdlib/math-base-special-ln",
+        "@stdlib/constants-float64-max-ln",
+        "@stdlib/constants-float64-min-ln",
+        "@stdlib/constants-float64-gamma-lanczos-g",
+        "@stdlib/constants-float64-e",
+        "@stdlib/constants-float64-eps"
+      ]
+    },
+    {
+      "task": "examples",
+      "wasm": false,
+      "src": [
+        "./src/main.c"
+      ],
+      "include": [
+        "./include"
+      ],
+      "libraries": [],
+      "libpath": [],
+      "dependencies": [
+        "@stdlib/math-base-assert-is-nan",
+        "@stdlib/math-base-special-ln",
+        "@stdlib/constants-float64-pinf",
+        "@stdlib/constants-float64-ninf",
+        "@stdlib/math-base-special-gammaln",
+        "@stdlib/math-base-special-exp",
+        "@stdlib/constants-float64-max",
+        "@stdlib/math-base-special-gamma-lanczos-sum-expg-scaled",
+        "@stdlib/math-base-special-gamma",
+        "@stdlib/math-base-special-log1p",
+        "@stdlib/math-base-special-sqrt",
+        "@stdlib/math-base-special-abs",
+        "@stdlib/math-base-special-pow",
+        "@stdlib/math-base-special-max",
+        "@stdlib/math-base-special-min",
+        "@stdlib/math-base-special-ln",
+        "@stdlib/constants-float64-max-ln",
+        "@stdlib/constants-float64-min-ln",
+        "@stdlib/constants-float64-gamma-lanczos-g",
+        "@stdlib/constants-float64-e"
+      ]
+    }
+  ]
+}

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@stdlib/stats-base-dists-gamma-logpdf",
-  "version": "0.2.2",
+  "version": "0.3.0",
   "description": "Gamma distribution logarithm of probability density function (PDF).",
   "license": "Apache-2.0",
   "author": {
@@ -14,9 +14,12 @@
     }
   ],
   "main": "./lib",
+  "gypfile": false,
   "directories": {
     "doc": "./docs",
+    "include": "./include",
     "lib": "./lib",
+    "src": "./src",
     "dist": "./dist"
   },
   "types": "./docs/types",
@@ -38,20 +41,22 @@
     "@stdlib/constants-float64-ninf": "^0.2.2",
     "@stdlib/constants-float64-pinf": "^0.2.2",
     "@stdlib/math-base-assert-is-nan": "^0.2.2",
+    "@stdlib/math-base-napi-ternary": "^0.3.1",
     "@stdlib/math-base-special-abs": "^0.2.2",
     "@stdlib/math-base-special-exp": "^0.2.4",
     "@stdlib/math-base-special-gamma": "^0.3.0",
     "@stdlib/math-base-special-gamma-lanczos-sum-expg-scaled": "^0.3.0",
-    "@stdlib/math-base-special-gammaln": "^0.2.2",
+    "@stdlib/math-base-special-gammaln": "^0.3.0",
     "@stdlib/math-base-special-ln": "^0.2.4",
     "@stdlib/math-base-special-log1p": "^0.2.3",
     "@stdlib/math-base-special-max": "^0.3.0",
     "@stdlib/math-base-special-min": "^0.2.3",
     "@stdlib/math-base-special-pow": "^0.3.0",
     "@stdlib/math-base-special-sqrt": "^0.2.2",
-    "@stdlib/stats-base-dists-degenerate-logpdf": "^0.2.1",
+    "@stdlib/stats-base-dists-degenerate-logpdf": "^0.3.0",
     "@stdlib/utils-constant-function": "^0.2.2",
-    "@stdlib/utils-define-nonenumerable-read-only-property": "^0.2.2"
+    "@stdlib/utils-define-nonenumerable-read-only-property": "^0.2.2",
+    "@stdlib/utils-library-manifest": "^0.2.3"
   },
   "devDependencies": {},
   "engines": {

package/src/addon.c

@@ -0,0 +1,23 @@
+/**
+* @license Apache-2.0
+*
+* Copyright (c) 2025 The Stdlib Authors.
+*
+* Licensed under the Apache License, Version 2.0 (the "License");
+* you may not use this file except in compliance with the License.
+* You may obtain a copy of the License at
+*
+*    http://www.apache.org/licenses/LICENSE-2.0
+*
+* Unless required by applicable law or agreed to in writing, software
+* distributed under the License is distributed on an "AS IS" BASIS,
+* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+* See the License for the specific language governing permissions and
+* limitations under the License.
+*/
+
+#include "stdlib/stats/base/dists/gamma/logpdf.h"
+#include "stdlib/math/base/napi/ternary.h"
+
+// cppcheck-suppress shadowFunction
+STDLIB_MATH_BASE_NAPI_MODULE_DDD_D( stdlib_base_dists_gamma_logpdf )

package/src/main.c

@@ -0,0 +1,192 @@
+/**
+* @license Apache-2.0
+*
+* Copyright (c) 2025 The Stdlib Authors.
+*
+* Licensed under the Apache License, Version 2.0 (the "License");
+* you may not use this file except in compliance with the License.
+* You may obtain a copy of the License at
+*
+*    http://www.apache.org/licenses/LICENSE-2.0
+*
+* Unless required by applicable law or agreed to in writing, software
+* distributed under the License is distributed on an "AS IS" BASIS,
+* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+* See the License for the specific language governing permissions and
+* limitations under the License.
+*/
+
+#include "stdlib/math/base/assert/is_nan.h"
+#include "stdlib/math/base/special/ln.h"
+#include "stdlib/constants/float64/pinf.h"
+#include "stdlib/constants/float64/ninf.h"
+#include "stdlib/math/base/special/gammaln.h"
+#include "stdlib/math/base/special/exp.h"
+#include "stdlib/constants/float64/max.h"
+#include "stdlib/math/base/special/gamma_lanczos_sum_expg_scaled.h"
+#include "stdlib/math/base/special/gamma.h"
+#include "stdlib/math/base/special/log1p.h"
+#include "stdlib/math/base/special/sqrt.h"
+#include "stdlib/math/base/special/abs.h"
+#include "stdlib/math/base/special/pow.h"
+#include "stdlib/math/base/special/max.h"
+#include "stdlib/math/base/special/min.h"
+#include "stdlib/math/base/special/ln.h"
+#include "stdlib/constants/float64/max_ln.h"
+#include "stdlib/constants/float64/min_ln.h"
+#include "stdlib/constants/float64/gamma_lanczos_g.h"
+#include "stdlib/constants/float64/e.h"
+
+// BEGIN: regularised_gamma_prefix
+
+/**
+* Computes `(z^a)*(e^-z) / gamma(a)`.
+*
+* @param a   input value
+* @param z   input value
+* @return    function value
+*/
+static double regularised_gamma_prefix( const double a, const double z ) {
+	double prefix;
+	double amza;
+	double agh;
+	double alz;
+	double amz;
+	double sq;
+	double d;
+
+	agh = a + STDLIB_CONSTANT_FLOAT64_GAMMA_LANCZOS_G - 0.5;
+	d = ( (z - a) - STDLIB_CONSTANT_FLOAT64_GAMMA_LANCZOS_G + 0.5 ) / agh;
+	if ( a < 1.0 ) {
+		// Treat a < 1 as a special case because our Lanczos approximations are optimized against the factorials with a > 1, and for high precision types very small values of `a` can give rather erroneous results for gamma:
+		if ( z <= STDLIB_CONSTANT_FLOAT64_MIN_LN ) {
+			// Use logs, so should be free of cancellation errors:
+			return stdlib_base_exp( ( a * stdlib_base_ln(z) ) - z - stdlib_base_gammaln( a ) );
+		}
+		// No danger of overflow as gamma(a) < 1/a for small a, so direct calculation:
+		return stdlib_base_pow( z, a ) * stdlib_base_exp( -z ) / stdlib_base_gamma( a );
+	}
+	if ( stdlib_base_abs(d*d*a) <= 100.0 && a > 150.0 ) {
+		// Special case for large a and a ~ z:
+		prefix = ( a * ( stdlib_base_log1p( d ) - d ) ) + ( z * ( 0.5-STDLIB_CONSTANT_FLOAT64_GAMMA_LANCZOS_G ) / agh );
+		prefix = stdlib_base_exp( prefix );
+	}
+	else {
+		// General case. Direct computation is most accurate, but use various fallbacks for different parts of the problem domain:
+		alz = a * stdlib_base_ln(z / agh);
+		amz = a - z;
+		if (
+			stdlib_base_min(alz, amz) <= STDLIB_CONSTANT_FLOAT64_MIN_LN ||
+			stdlib_base_max(alz, amz) >= STDLIB_CONSTANT_FLOAT64_MAX_LN
+		) {
+			amza = amz / a;
+			if (
+				stdlib_base_min(alz, amz)/2.0 > STDLIB_CONSTANT_FLOAT64_MIN_LN &&
+				stdlib_base_max(alz, amz)/2.0 < STDLIB_CONSTANT_FLOAT64_MAX_LN
+			) {
+				// Compute square root of the result and then square it:
+				sq = stdlib_base_pow( z / agh, a / 2.0 ) * stdlib_base_exp( amz / 2.0 );
+				prefix = sq * sq;
+			}
+			else if (
+				stdlib_base_min(alz, amz)/4.0 > STDLIB_CONSTANT_FLOAT64_MIN_LN &&
+				stdlib_base_max(alz, amz)/4.0 < STDLIB_CONSTANT_FLOAT64_MAX_LN &&
+				z > a
+			) {
+				// Compute the 4th root of the result then square it twice:
+				sq = stdlib_base_pow( z / agh, a / 4.0 ) * stdlib_base_exp( amz / 4.0 );
+				prefix = sq * sq;
+				prefix *= prefix;
+			}
+			else if (
+				amza > STDLIB_CONSTANT_FLOAT64_MIN_LN &&
+				amza < STDLIB_CONSTANT_FLOAT64_MAX_LN
+			) {
+				prefix = stdlib_base_pow( (z * stdlib_base_exp(amza)) / agh, a );
+			}
+			else {
+				prefix = stdlib_base_exp( alz + amz );
+			}
+		}
+		else
+		{
+			prefix = stdlib_base_pow( z / agh, a ) * stdlib_base_exp( amz );
+		}
+	}
+	prefix *= stdlib_base_sqrt( agh / STDLIB_CONSTANT_FLOAT64_E ) / stdlib_base_gamma_lanczos_sum_expg_scaled( a );
+	return prefix;
+}
+
+// END: regularised_gamma_prefix
+
+// BEGIN: gammma_p_derivative
+
+/**
+* Calculates the partial derivative with respect to x of the incomplete gamma function.
+*
+* @param a   function parameter
+* @param x   function parameter
+* @return    function value
+*/
+static double gamma_p_derivative( const double a, const double x ) {
+	double f1;
+	if ( a <= 0.0 ) {
+		return 0.0/0.0; // NaN
+	}
+	if ( x < 0.0 ) {
+		return 0.0/0.0; // NaN
+	}
+	if ( x == 0.0 ) {
+		if ( a > 1.0 ) {
+			return 0.0;
+		}
+		return ( a == 1.0 ) ? 1.0 : STDLIB_CONSTANT_FLOAT64_PINF;
+	}
+	f1 = regularised_gamma_prefix( a, x );
+	if ( x < 1.0 && ( STDLIB_CONSTANT_FLOAT64_MAX * x < f1 ) ) {
+		return STDLIB_CONSTANT_FLOAT64_PINF;
+	}
+	if ( f1 == 0.0 ) {
+		// Underflow in calculation, use logs instead:
+		f1 = (a * stdlib_base_ln( x )) - x - stdlib_base_gammaln( a ) - stdlib_base_ln( x );
+		f1 = stdlib_base_exp( f1 );
+	} else {
+		f1 /= x;
+	}
+	return f1;
+}
+
+// END: gammma_p_derivative
+
+/**
+* Evaluates the logarithm of the probability density function (PDF) for a gamma distribution with shape parameter `alpha` and rate parameter `beta` at a value `x`.
+*
+* @param x       input value
+* @param alpha   shape parameter
+* @param beta    rate parameter
+* @return        evaluated logPDF
+*
+* @example
+* double y = stdlib_base_dists_gamma_logpdf( 2.0, 0.5, 1.0 );
+* // returns ~-2.919
+*/
+double stdlib_base_dists_gamma_logpdf( const double x, const double alpha, const double beta ) {
+	if (
+		stdlib_base_is_nan( x ) ||
+		stdlib_base_is_nan( alpha ) ||
+		stdlib_base_is_nan( beta ) ||
+		alpha < 0.0 ||
+		beta <= 0.0
+	) {
+		return 0.0/0.0; // NaN
+	}
+	if ( x < 0.0 || x == STDLIB_CONSTANT_FLOAT64_PINF ) {
+		return STDLIB_CONSTANT_FLOAT64_NINF;
+	}
+	if ( alpha == 0.0 ) {
+		// Point mass at 0...
+		return ( x == 0.0 ) ? STDLIB_CONSTANT_FLOAT64_PINF : STDLIB_CONSTANT_FLOAT64_NINF;
+	}
+	return stdlib_base_ln( gamma_p_derivative( alpha, x * beta ) ) + stdlib_base_ln( beta );
+}
+