C:/Documents and Settings/Stephen/Desktop/Biostatistics Library and Program/Biostatistics/Rank.cs

Go to the documentation of this file.

using System;
using System.Collections.Generic;
using System.Linq;

namespace StephenAshley.Biostatistics
{
   using NUMBER = Decimal;

   public struct Rank
   {
      public Rank(Int32 iGrp, NUMBER decA, NUMBER decRnk)
      {
         iGroup = iGrp;
         decValue = decA;
         decRank = decRnk;
      }

      public Int32 iGroup;

      public NUMBER decValue;

      public NUMBER decRank;

      public static Int32 AdjustTies(ref List<Rank> lstRanks)
      {
         Int32 iTieAdjustment = 0;
         // Compile a list of unique numbers.
         List<NUMBER> lstUniqueNumbers = new List<NUMBER>();
         foreach (Rank rank in lstRanks)
            if (!(lstUniqueNumbers.Contains(rank.decValue)))
               lstUniqueNumbers.Add(rank.decValue);

         // Look for ties involving each unique number.
         foreach (NUMBER decUniqueNumber in lstUniqueNumbers)
         {
            Int32 iTau = 0;
            NUMBER decSum = 0;
            foreach (Rank rank in lstRanks)
               if (rank.decValue == decUniqueNumber)
               // Find matching number in lstRanks
               {
                  iTau++;
                  decSum += rank.decRank;
               }
            if (iTau > 1)
            // If more than one matching number is found ...
            {
               for (int i = 0; i < lstRanks.Count(); i++)
               {
                  // give each Rank object an adjusted rank,
                  if (lstRanks[i].decValue == decUniqueNumber)
                     lstRanks[i] = new Rank(
                        lstRanks[i].iGroup,
                        lstRanks[i].decValue,
                        decSum / iTau);
                  // add the ties to uTieAdjustment
               }
               iTieAdjustment += (iTau - 1) * iTau * (iTau + 1);
            }
         }
         return iTieAdjustment;
      }

      public static int CompareRanks(Rank x, Rank y)
      {
         return (x.decValue).CompareTo(y.decValue);
      }

      public static int CompareRanksByAbsoluteValues(Rank x, Rank y)
      {
         NUMBER decX = DecMath.Abs(x.decValue);
         NUMBER decY = DecMath.Abs(y.decValue);
         return decX.CompareTo(decY);
      }
   }
}

---