Bonferroni-t-Quantile t(1-alpha/(2k),nue)

Hermann.Singer@FernUni-Hagen.de

Manipulate[
a=5;
f=PDF[dist=StudentTDistribution[nue],x];
xq=Quantile[dist,p=1-alpha/(2k)];

Show[
Plot[{f},{x,-a,Min[xq,a]},Filling->0,AxesOrigin->{0,0},ColorFunction->Hue,PlotRange->All],
Plot[{f},{x,-a,a},Filling->None,PlotRange->All,AxesOrigin->{0,0},ColorFunction->(GrayLevel[0 #]&)],
PlotLabel->"Bonferroni-t-Quantile t(1-alpha/2k,nue) = "<>ToString[xq],
PlotRange->{{-a,a},{0,.5}},ImageSize->600
]

,{{alpha,.05},{.1,.05,.01},ControlType->RadioButton},
{{k,2},ControlType->InputField},
{{nue,30},ControlType->InputField}]

xx=Table[i,{i,1,100}];
yy=Table[j,{j,2,20}];
alpha=.05;
tab=Table[
dist=StudentTDistribution[xx[[nue]]];
xq=Quantile[dist,p=1-alpha/(2 yy[[k]])];
xq//Round[#,.01]&,
{nue,1,xx//Length},{k,1,yy//Length}];
Print["Freiheitsgrade nue: Zeilen, Zahl der Vergleiche k: Spalten"];
tab//TableForm[#,TableHeadings->{xx,yy}]&

tab//MatrixPlot

visual representation of the Bonferroni-t-quantile table