%macro Perm(_totelemPerm, _sampElemPerm, _perm);
/**************************************************************************************/
/* _totelemPerm  = is a whole number that is the number of elements from which the    */
/*                   sample is chosen. (REQUIRED)                                     */
/* _samElemPerm  = the whole number that is the number of chosen elements. (REQUIRED) */
/* _Perm         = the returned Permutation value.                                    */
/*                                                                                    */
/*  Name: PERM.SAS                                                                    */
/*  Data: Sourced from MineQuest, LLC.               Auth: Phil Rack                  */
/*  Date: 5/15/2007                                  Revd:                            */
/*                                                                                    */
/*  Copyright (C) 2007 by MineQuest, LLC. All Rights Reserved.                        */
/**************************************************************************************/
  
  if (&_totelemperm le 0) or (&_totelemperm = .) or
     (&_sampelemperm le 0) or (&_sampelemperm = .) or
     (&_totelemperm lt &_sampElemperm) then 
      Do;
        &_perm = .;
      End;  
      Else Do;
       %fact(&_totelemPerm, _nperm );
        _diffperm = &_totElemPerm - &_sampElemPerm;
       %fact(_diffperm, _rperm);
       &_perm = _nperm / _rPerm;
       Drop _nperm _rperm _diffperm;
     End; 
/********************************************************************************************/
/* PERM is copyright (c) 2007 by MineQuest, LLC. All Rights Reserved.                       */
/* MineQuest, LLC, 1939 Queensbridge Dr., Columbus, OH USA.                                 */
/* This Macro Program is proprietary software and is licensed property of MineQuest, LLC.   */
/********************************************************************************************/ 

%mend Perm;