1:- module(rint, [interval/2, interval/3, op(150, xfx, ...), op(800, xfx, <-)]).

    9% Supported functions:
   10%   Assignment 
   11%       - '<-'
   12%       
   13%   Binomial distribution
   14%       - Cumulated density with default lower tail: interval(pbinom(X, N, P), Res)
   15%       - Cumulated density with explicit tail argument: interval(pbinom(X, N, P, true), Res)
   16%       - Cumulated density with explicit tail and log.p argument: interval(pbinom(X, N, P, false, true), Res)
   17%       - Quantile with default lower tail: interval(qbinom(Alpha, N, P), Res)
   18%       - Quantile with explicit tail argument: interval(qbinom(Alpha, N, P, true), Res)
   19%       - Quantile with explicit tail and log.p argument: interval(qbinom(Alpha, N, P, false, true), Res)
   20%       - Density: interval(dbinom(X, N, P), Res)
   21%       - Density with log argument: interval(dbinom(X, N, P, true), Res)
   22%
   23%   Normal distribution
   24%       - Cumulated density with defaults: interval(pnorm(X), Res)
   25%       - Cumulated density with default lower tail: interval(pnorm(X, Mu, Sd), Res)
   26%       - Cumulated density with explicit tail argument: interval(pnorm(X, Mu, Sd, false), Res)
   27%       - Cumulated density with explicit tail and log.p argument: interval(pnorm(X, Mu, Sd, false, true), Res)
   28%       - Quantile with defaults: interval(qnorm(P), Res)
   29%       - Quantile with default lower tail: interval(qnorm(P, Mu, Sigma), Res)
   30%       - Quantile with explicit tail argument: interval(qnorm(P, Mu, Sigma, true), Res)
   31%       - Quantile with explicit tail and log.p argument: interval(qnorm(P, Mu, Sigma, true, true), Res)
   32%       - Density with defaults: interval(dnorm(X), Res)
   33%       - Density with log argument: interval(dnorm(X, true), Res)
   34%       - Density with mu and sd argument: interval(dnorm(X, Mu, Sigma), Res)
   35%       - Density with mu, sd, and log argument: interval(dnorm(X, Mu, Sigma, true), Res)
   36
   37%   T distribution
   38%       - Cumulated density with default arguments: interval(pt(X, Df), Res)
   39%       - Cumulated density with explicit tail argument: interval(pt(X, Df, false), Res)
   40%       - Cumulated density with explicit ncp argument: interval(pt(X, Df, Ncp), Res)
   41%       - Cumulated density with explicit ncp and tail argument: interval(pt(X, Df, Ncp, false), Res)
   42%       - Cumulated density with explicit tail and log.p argument: interval(pt(X, Df, false, true), Res)
   43%       - Cumulated density with explicit ncp, tail and log.p argument: interval(pt(X, Df, Ncp, false, true), Res)
   44%       - Quantile with default ncp and tail argument: interval(qt(P, Df), Res)
   45%       - Quantile with explicit ncp argument: interval(qt(P, Df, Ncp), Res)
   46%       - Quantile with explicit tail argument: interval(qt(P, Df, true), Res)
   47%       - Quantile with explicit tail and log.p argument: interval(qt(P, Df, true, true), Res)
   48%       - Quantile with explicit ncp and tail argument: interval(qt(P, Df, Ncp, true), Res)
   49%       - Quantile with explicit ncp, tail and log.p argument: interval(qt(P, Df, Ncp, true, true), Res
   50%       - Density with default ncp and log argument: interval(dt(X, Df), Res)
   51%       - Density with explicit log argument: interval(dt(X, Df, true), Res)
   52%       - Density with explicit ncp argument: interval(dt(X, Df, Ncp), Res)
   53%       - Density with explicit ncp and log argument: interval(dt(X, Df, Ncp, true), Res)
   54%
   55%   Chi-square distribution
   56%       - Cumulated density with default lower tail: interval(pchisq(X, Df), Res)
   57%       - Cumulated density explicit tail argument: interval(pchisq(X, Df, false), Res)
   58%       - Cumulated density explicit tail and log.p argument: interval(pchisq(X, Df, false, true), Res)
   59%       - Quantile with default lower tail: interval(qchisq(P, Df), Res)
   60%       - Quantile with explicit tail argument: interval(qchisq(P, Df, true), Res)
   61%       - Quantile with explicit tail and log.p argument: interval(qchisq(P, Df, true, true), Res)
   62%       - Density with default log argument: interval(dchisq(X, Df), Res)
   63%       - Density with explicit log argument: interval(dchisq(X, Df, true), Res)
   64
   65:- set_prolog_flag(float_overflow, infinity).   66:- set_prolog_flag(float_undefined, nan).   67:- set_prolog_flag(float_zero_div, infinity).   68
   69:- nb_setval(digits, 2).   70
   71:- consult(['../inst/prolog/lib/interface',
   72            '../inst/prolog/lib/op', 
   73            '../inst/prolog/lib/rint_op', 
   74            '../inst/prolog/lib/default', 
   75            '../inst/prolog/lib/eval_r',
   76            'r', 
   77            '../inst/prolog/lib/utility']).