14 lines
345 B
C++
14 lines
345 B
C++
// Copyright John Maddock 2015.
|
|
// Use, modification and distribution are subject to the
|
|
// Boost Software License, Version 1.0. (See accompanying file
|
|
// LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
|
|
|
|
#define MATHLIB_STANDALONE
|
|
#include <Rmath.h>
|
|
|
|
int main()
|
|
{
|
|
double d = psigamma(2.0, 4);
|
|
return d != 0 ? 0 : 1;
|
|
}
|