Lösungen / Statistik 1/02

1. Abfüllversuch 2008

Daten anlässlich des Abfüllens von etwa gleich grossen Rollen in etwa gleich grosse Schachteln: 3 Gruppen, je 10 Abzählversuche.

t1= Maximalzahl Rollen bei Gruppe 1 u.s.w.

gr1 = {68, 64, 67, 65, 68, 68, 68, 65, 68, 68};  
    t1 = 81;
gr2 = {65, 62, 63, 62, 63, 60, 62, 65, 62, 61};  
    t2 = 86;
gr3 = {62, 64, 64, 62, 59, 65, 65, 63, 63, 62}; t3 = 
      85;

Auswertung

Zusatzpakete laden

<< Statistics`DescriptiveStatistics`;
<< Graphics`Graphics`

Frequenztabellen

?Frequencies

f1 = Frequencies[gr1]

f2 = Frequencies[gr2]

f3 = Frequencies[gr3]

Barcharts und Histogramme, etwas herumprobieren

BarChart[gr1];

StackedBarChart[gr1, gr2];

Diese Darstellungen oben sind nicht günstig

StackedBarChart[f2, f3];

Ergibt keinen Output.

h1 = Histogram[gr1];

BarChart[f1];

h2 = Histogram[gr2];

h3 = Histogram[gr3];

Show[h1, h2, h3];

Output überlagert, so nicht sehr sinnvoll, wegen den Ueberdeckungen.

GeneralizedBarChart[f2];

Ergibt keinen Output.

Datennormierungsversuch

gr1/t1 // N

Diverse Reports mit wichtigen Kenngrössen von Daten

MinMax[x_] := {Min[x], Max[x]};

MinMax[gr1]

LocationReport[gr1]

LocationReport[gr1] // N

DispersionReport[gr1]

ShapeReport[gr1]

DispersionReport[gr1] // N

Rep[x_] := {MinMax[x], LocationReport[x], DispersionReport[x]} // 
          N;

Rep[gr1]

Rep[gr2]

Rep[gr3]

Rep[gr1/t1] // N

Rep[gr2/t2] // N

Rep[gr3/t3] // N

Rep[gr1/Mean[gr1]] // N

Rep[gr2/Mean[gr2]] // N

Rep[gr3/Mean[gr3]] // N

Aus den Reports wird ersichtlich,dass aus Plausibilitätsgründen eine Vermischung der 3 Gruppen praktikabel ist, wenn die Gruppen auf den Mittelwert 1 normiert sind. Weitere Unterwuchungen zu diesem Thema werden hier aber noch nicht angestellt.

new = Join[gr1, gr2, gr3]

Rep[new/Mean[new]] // N

2.

<< Graphics`Graphics`

<< Statistics`DescriptiveStatistics`

tb = {{153, 1}, {154, 1}, {155, 2}, {156, 3}, {157, 3}, {158, 5}, {159, 
          6}, {160, 4}, {161, 5}, {162, 7}, {163, 5}, {164, 5}, {165, 
          6}, {166, 7}, {167, 5}, {168, 5}, {169, 6}, {170, 5}, {171, 
          6}, {172, 4}, {173, 3}, {174, 2}, {175, 3}, {176, 1}, {177, 
          1}, {178, 1}}

BarChart[tb];

unbrauchbar / inutilisable

tb1 = 
      Table[{tb[[k]][[2]], tb[[k]][[1]]}, {k, 1, 
          Length[tb]}]

BarChart[tb1];

tb2 = 
Table[
        Table[tb[[k]][[1]], {i, 
            1, tb[[k]][[2]]}], {k, 1, Length[tb]}]

tb3 = Flatten[tb2]

DispersionReport[tb3]

LocationReport[tb3]

LocationReport[tb3] // N

ShapeReport[tb3]

ShapeReport[tb3] // N

3.

p[x_] := Floor[6  Random[]  + 1];
w[n_] = Table[p[x_], {i, 1, n}];
{"Test ", p[2], w[5]}

a = w[30]

b = w[100];  c = w[10000];

N[LocationReport[a]]

N[LocationReport[b]]

N[LocationReport[c]]

N[DispersionReport[a]]

N[DispersionReport[b]]

N[DispersionReport[c]]

4.

Künstliches Beispiel / Exemple Artificiel

Tabelle / Tableau

u1 = Table[6 + Random[], {n, 1, 30}]

u2 = 
      Table[{IntegerPart[u1[[n]]], "h", 
          FractionalPart[u1[[n]]] 60/100}, {n, 1, 
          Length[u1]}]

Datenmanipulation / Manipuler les données

<< Statistics`DataManipulation`

rang=Range[6.05, 7, 
        0.1]

binc = BinCounts[u1, {6, 7, 0.1}]

u3 = Transpose[{binc, rang}]

Datenmanipulation / Manipuler les données

<< Graphics`Graphics`

BarChart[u3];

100 Werte, 20 Klassen / 100 valeurs 20 classes

v1 = Table[6 + Random[], {n, 1, 100}]

<< Statistics`DataManipulation`

newRang=Range[6.025, 7, 
        0.05]

Length[newRang]

newBinc = BinCounts[v1, {6, 7, 0.05}]

Length[newBinc]

v3 = Transpose[{newBinc, newRang}]

BarChart[v3];

s1 = Table[newRang[[n]], {n, 1, Length[newRang], 4}]

sTest = 
      Flatten[Table[{".", newRang[[n]], ".", "."}, {n, 1, 
            Length[newRang]}]]

s2 = 
      Flatten[Table[{" ", newRang[[n]], " ", " "}, {n, 1, 
            Length[newRang]}]]

BarChart[v3, BarLabels -> s2];

5.

aL = {0, 0, 3, 2, 9, 6, 3}

BarChart[aL];

====>   Unbrauchbar! / Inutilisable!

u = {0, 1, 2, 3, 4, 5, 6}

tr = Transpose[{aL, u}]

BarChart[tr];

6.

Fakultäten / Factorielles

{0!, 1!, 2!, 3!, 4!, 5!, 6!}

Binomialkoeffizienten /  coefficients binomials

?Bin*

?Binomial

1/Binomial[39, 6]

1/Binomial[40, 6]

1/Binomial[41, 6]

1/Binomial[42, 6]

1/Binomial[100, 6]