densityST[n_,x_]:=PDF[StudentTDistribution[n],x]

Do[gr[i]=Plot[densityST[i,t],{t,-5,5},PlotRange->All,PlotStyle->{Hue[0.3*i],Thickness[0.005]},Axes->{True,False}],{i,1,20}]

Show[Table[gr[i],{i,1,5}]]

Manipulate[gr[i]=Plot[densityST[i,t],{t,-5,5},PlotRange->All,PlotStyle->{Hue[0.3*i],Thickness[0.005]}],{i,1,20}]

chi=ChiSquareDistribution[n]

PDF[chi,x]

Plot[Gamma[t],{t,-3,3}]

PDF[StudentTDistribution[n],x]

densityCHI[n_,x_]:=PDF[ChiSquareDistribution[n],x]

Do[grr[i]=Plot[densityCHI[i,t],{t,0,10},PlotStyle->{Hue[0.3*i],Thickness[0.005]},Axes->{True,False}],{i,1,20}]

Show[Table[grr[i],{i,1,20}]]

panely={14,13,15,12,14,9,15,8,14,10,16,12,13,17,18,13,13,10,14,16,11,14,12,9,15,11,14,15,11,15,10,16,10,12,13,11,13,11,9,13,8,12,16,12,17,12,13,11,13,12}

Min[panely]

Max[panely]

pocetnost=BinCounts[panely,{8,18+1}]

Tally[panely]

tp=Tally[Sort[panely]]

hodnoty=tp[[All,1]]

pocetnost=tp[[All,2]]

tp//MatrixForm

tp//TableForm

<<"BarCharts`"

<<"Histograms`"

BarChart[pocetnost,BarLabels->hodnoty]

Histogram[panely]

triedy=BinCounts[panely,{7.5,19.5,3}]

p=Table[i,{i,7.5,19.5,3}]

Histogram[triedy,FrequencyData->True,HistogramRange->{7.5,19.5},Ticks->{{9,12,15,18},triedy}]

<<"StatisticalPlots`"

StemLeafPlot[panely]

StemLeafPlot[panely,IncludeStemCounts->True]

StemLeafPlot[panely,StemExponent->0]

ParetoPlot[{a,b,c,d,d,d,e,d,e,e,f,a,b,c}]

BoxWhiskerPlot[panely,BoxOrientation->Horizontal]

vybocujuce=Flatten[{panely,25}]

BoxWhiskerPlot[vybocujuce,BoxOutliers->All,BoxOrientation->Horizontal,BoxOutlierMarkers->{S}]

ParetoPlot[panely]

nn[1]=RandomReal[NormalDistribution[0,12],100]
nn[2]=RandomReal[NormalDistribution[23,1],100]
nn[3]=RandomReal[NormalDistribution[-5,0.5],100]

ClearAll

pocetnost[1]=BinCounts[nn[1],{Min[nn[1]],Max[nn[1]]+1}]
pocetnost[2]=BinCounts[nn[2],{Min[nn[2]],Max[nn[2]]+1}]
pocetnost[3]=BinCounts[nn[3],{Min[nn[3]],Max[nn[3]]+1}]