

(*:Version: Mathematica 2.0 *)

(*:Name: Statistics`Common`DistributionFunctionals` *)

(*:Title: Functions of Statistical Distributions *)

(*:Author:
  David Withoff (Wolfram Research), March, 1991
*)

(*:Legal:
  Copyright (c) 1991, Wolfram Research, Inc.
*)

(*:Reference: Usage messages only. *)

(*:Summary:
  Defines functions and introduces symbols in a common context for use
  in statistical probability distribution packages.
*)

(*:Keywords: distribution, functional *)

(*:Requirements: no special system requirements. *)

(*:Warning: none. *)

(*:Sources:
  Norman L. Johnson and Samuel Kotz, 1970.
*)

BeginPackage["Statistics`Common`DistributionsCommon`"]

(* create symbols without usage messages in a common context. *)

Domain
PDF
CDF
CharacteristicFunction

(* add usage messages for new symbols. *)

QuantileQ::usage =
"QuantileQ[q] returns True if q is a valid quantile specification
(a number between 0 and 1)."

Begin["`Private`"]

QuantileQ[q_] := If[0 <= q <= 1, True,
        Message[Quantile::outofrange, q]; False]

Quantile::outofrange =
"Quantile specification `1` is expected to be between 0 and 1."

End[]
 
EndPackage[]

