(*popisna statistika - jednorozmerny statisticky subor*)

(*panelaren - urobte prvotnu statisticku analyzu*)
<<"StatisticalPlots`"
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,19}] (*zprava je otvoreny interval tak treba o 1 viac na strane max takze 19 miesto 18*)

pocetnost=BinCounts[panely,{Min[panely],Max[panely]}] (*to iste *)

tp=Tally[panely] (*bez sort  to spravi pocetnosti,ale tak ako sa vyskytuju,nie celkovo usporiadane*)

tp=Tally[Sort[panely]]

(*vznikla matica ale treba len prve casti--prvy stlpec*)

pocetnost=tp[[All,2]]

hodnoty=tp[[All,1]]

tp//TableForm

<<"BarCharts`"

<<"Histograms`"

BarChart[pocetnost,BarLabels->hodnoty]

(*ak chceme spravne os x tak barlabels*)

Histogram[panely]

(*urobme tabulku a grafy triednych pocetnosti,prvky stotoznime so stredom intervalu*)

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}]

Histogram[panely,HistogramCategories->p]

StemLeafPlot[panely]

StemLeafPlot[panely,ColumnLabels->{desiatky,jednotky}]

StemLeafPlot[panely,IncludeStemCounts->True]

StemLeafPlot[panely,StemExponent->0]

?BoxWhiskerPlot

BoxWhiskerPlot[panely,BoxOrientation->Horizontal]

BoxWhiskerPlot[panely,BoxOrientation->Horizontal,BoxLabels->"panely"]

(*ciara v boxe je median a roh lvavo dole dolnz kvartil a roh vravo DOLE je horny kvartil  ..ta ciara uplne vlaco je min a vpravo je max*)

vybocujuce=Flatten[{panely,25}] (*25 je uletenea hodnota a prejavia sa vybovujuce hodnoty kotre vyhodime ..flatttem rusi urovne zoznamu*)

BoxWhiskerPlot[panely,BoxOutliers->All,BoxOrientation->Horizontal]

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

ParetoPlot[panely]

(*su to relativne pocetnosti..cize ked 18ka je tam len raz tak bude ako 1/50ina*)

(*simulujte 3 mnoziny dat z normalneho rozlozenia..rozne stredene hodnoty a disperzie..urobte graficku a statisticku analyzu,kazda mnozina nech obsahuje 100 dat*)

norma11=Round[RandomReal[NormalDistribution[2,1],100]]

Min[norma11]
Max[norma11]

pocetnost=BinCounts[norma11,{Min[norma11],Max[norma11]}]

tp=Tally[Sort[norma11]]

hodnoty=tp[[All,1]]

hodnoty=tp[[All,1]]

tp//TableForm
BarChart[pocetnost,BarLabels->hodnoty]