Probleme mit Frequenztabellen

Remove["Global`*"]

1    Aus einer Zählstatistik

Total der Klassen

(* m1  =  Klassenmittenmenge;  
      m2 =  Klassenfrequenzen; *) 

m1 = {145, 155, 165, 175, 185, 195, 205, 215, 
          225};

    m2 = {1, 4, 6, 10, 16, 14, 10, 7, 2};

    klassenTotal = m1 m2

a   Stichprobenumfang

tot = Apply[Plus, m2]

b  Histogramme, BarCharts, Plots

<< Graphics`Graphics`

tab1 = 
      Table[m1[[k]], {k, 1, Length[m2]}, {j, 1, m2[[k]]}]

tab2 = tab1 // Flatten

Histogram[tab2 // Flatten];

tab3 = tab2/tot // N // Flatten

Histogram[tab3];

<< Graphics`MultipleListPlot`

m3 = Transpose[{m1, m2/tot}]

MultipleListPlot[m3, SymbolShape -> Stem];

m4 = Transpose[{m2/tot, m1}]

m4 = Transpose[{m2/tot, m1}] // N

BarChart[m4];

c  Summenhäufigkeit verbunden dargestellt

sumh = 
      Table[{m1[[k]], Sum[m2[[j]]/tot, {j, 1, k}]}, {k, 1, 
          Length[m2]}]

sumh // N

MultipleListPlot[sumh // N, SymbolShape -> Stem, 
        PlotJoined -> {True}];

{185.,  0.528571} bedeutet, dass z.B. 52.8...%  im Mittel einen Wert grösser als 180 und kleiner als 190 besitzen.

d  Kenngrössen

<< Statistics`DescriptiveStatistics`

Mean[tab2] // N

LocationReport[tab2]

LocationReport[tab2] // N

DispersionReport[tab2]

DispersionReport[tab2] // N

ShapeReport[tab2]

ShapeReport[tab2] // N