Zur Statistik

Reports zur deskriptiven Statistik

<<Statistics`DescriptiveStatistics`

data=Table[k Random[ ],{k,1,40}]

LocationReport[data]

DispersionReport[data]

ShapeReport[data]

Binomialverteilung

<< Statistics`DiscreteDistributions`

bdist = BinomialDistribution[36, 0.4]

Mean[bdist]

Mean[BinomialDistribution[n, p]]

ExpectedValue[x^3, bdist, x]

CDF[bdist, k]

Plot[CDF[bdist, k], {k, 1, 34}];

ListPlot[Table[PDF[bdist, k], {k, 1, 36}], 
        PlotStyle -> {PointSize[0.02]}];

PDF[bdist, 32]