Test nahopdnosti

priklad1

minuty = {53, 48, 45, 55, 63, 51, 66, 56, 50, 58}

α = 0.05

me = Median[minuty]

g1=ListPlot[minuty,Joined->True]

g2=Plot[me,{t,1,Length[minuty]}]

Show[g1,g2]

min=Select[minuty,#≠me&]

n=Length[min]

a=Table[j[i],{i,1,n}]

Do[If[minuty[[i]]<me,j[i]=1,j[i]=0],{i,1,n}]

a

k = 1

Do[If[j[i]==j[i+1],k,k=k+1],{i,1,n-1}]

k

norma[t_]:=((Abs[t-n/2-1])/(Sqrt[(n-1)/4]))

norma[k]//N

If[norma[k]<Quantile[NormalDistribution[0,1],1-(α/2)],Framed["merania  su nahodne"],Framed[" merania nie su nahodne"]]

Priklad2

medianovy test

me = 0