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 lower tail: interval(pt(X, Df), Res)
   39%       - Cumulated density explicit tail argument: interval(pt(X, Df, false), Res)
   40%       - Cumulated density explicit tail and log.p argument: interval(pt(X, Df, false, true), Res)
   41%       - Quantile with default lower tail: interval(qt(P, Df), Res)
   42%       - Quantile with explicit tail argument: interval(qt(P, Df, true), Res)
   43%       - Quantile with explicit tail and log.p argument: interval(qt(P, Df, true, true), Res)
   44%       - Density with default log argument: interval(dt(X, Df), Res)
   45%       - Density with explicit log argument: interval(dt(X, Df, true), Res)
   46%
   47%   Chi-square distribution
   48%       - Cumulated density with default lower tail: interval(pchisq(X, Df), Res)
   49%       - Cumulated density explicit tail argument: interval(pchisq(X, Df, false), Res)
   50%       - Cumulated density explicit tail and log.p argument: interval(pchisq(X, Df, false, true), Res)
   51%       - Quantile with default lower tail: interval(qchisq(P, Df), Res)
   52%       - Quantile with explicit tail argument: interval(qchisq(P, Df, true), Res)
   53%       - Quantile with explicit tail and log.p argument: interval(qchisq(P, Df, true, true), Res)
   54%       - Density with default log argument: interval(dchisq(X, Df), Res)
   55%       - Density with explicit log argument: interval(dchisq(X, Df, true), Res)
   56
   57:- set_prolog_flag(float_overflow, infinity).   58:- set_prolog_flag(float_undefined, nan).   59:- set_prolog_flag(float_zero_div, infinity).   60
   61:- nb_setval(digits, 2).   62
   63:- consult(['../inst/prolog/lib/interface', 
   64            '../inst/prolog/lib/rint_op', 
   65            '../inst/prolog/lib/op', 
   66            '../inst/prolog/lib/eval_r',
   67            'r', 
   68            '../inst/prolog/lib/utility']).