view release on metacpan or  search on metacpan

EfficiencyCI.xs  view on Meta::CPAN

void
efficiency_ci(k, N, conflevel = 0.683)
    int k
    int N
    double conflevel
  PREINIT:
    double mode = 0.0;
    double low = 0.0;
    double high = 0.0;
  PPCODE:
    efficiency_ci(aTHX_ k, N, conflevel, &mode, &low, &high);
    EXTEND(SP, 3);
    mPUSHn(mode);
    mPUSHn(low);
    mPUSHn(high);


void
log_gamma(x)
    double x
  PPCODE:
    dTARG;
    if (x <= 0
        && ( fabs(x - (int)x) <= DBL_EPSILON))
    {
      XSRETURN_UNDEF;
    }
    else {
      NV rv = log_gamma(x);
      SV *sv = sv_2mortal(newSVnv(rv));
      XPUSHs(sv);