Penney Populations

On September 19 2002, in Room 400 of St. Francis High School, Pennies collected from 3 different sources were counted: (1) The Musker brothers brought in a collection which had acummulated over time, (2)The hat had pennies collected from a previous AP Statisitics class, and (3)a Wooden Box of pennies taken from circulation this year.

Musker

\(\(MuskerFrq = {2, 0, 2, 55, 242, 98, 88, 82, 
112, 111, 89, 61, 52, 
          50, 79, 73, 64, 56, 56, 36, 32, 53, 31, 32, 26, 30, 22, 16, 13, 10, 
          9, 10, 5, 4, 19, 11, 6, 10, 8, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
          0, 0, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0};\)\)

MuskerData = 
      Table[y, {y, 1998, 1936, -1}, {i, 1, MuskerFrq[[1999 - y]]}] // 
        Flatten

Hat

HatFrq = {1, 6, 126, 137, 110, 57, 75, 76, 80, 86, 71, 42, 62, 43, 
          58, 51, 55, 38, 43, 29, 20, 40, 31, 25, 22, 21, 14, 14, 17, 11, 8, 
          9, 4, 4, 9, 6, 5, 6, 3, 2, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 
          0, 0, 0, 1, 0, 0, 0, 0, 0, 1};

HatData = 
      Table[y, {y, 1998, 1936, -1}, {i, 1, HatFrq[[1999 - y]]}] // 
        Flatten

Wooden Box

WoodenBoxFrq = {34, 39, 52, 39, 23, 10, 27, 29, 21, 13, 21, 14, 15, 
          25, 14, 21, 14, 7, 17, 16, 11, 16, 11, 17, 8, 15, 10, 10, 11, 7, 4, 
          5, 3, 3, 4, 2, 2, 1, 7, 4, 2, 2, 0, 1};

WoodenBoxData = 
      Table[y, {y, 2002, 1959, -1}, {i, 1, 
            WoodenBoxFrq[[2003 - y]]}] // Flatten

Summary

<< Statistics`DescriptiveStatistics`

OneVarStats[x_] := 
        MatrixForm[{{"Mean:", Mean[x] // N}, {"SD:", 
                StandardDeviation[x] // N}, {"N:", 
                Length[x]}, {"Mode:", Mode[x]}, {"Min:", 
                Min[x]},  {"Q1:", Quantile[x,  .25]}, {"Median:", 
                Quantile[x,  .5]}, {"Q3:", 
                Quantile[x,  .75]}, {"Max:", 
                Max[x]}, 
{DispersionReport[x] // N}} // 
            Flatten];

OneVarStats[MuskerData]

OneVarStats[HatData]

OneVarStats[WoodenBoxData]