(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 124669, 3345] NotebookOptionsPosition[ 103287, 2971] NotebookOutlinePosition[ 103628, 2986] CellTagsIndexPosition[ 103585, 2983] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["p\[RHacek]\[IAcute]klad 1 (stupne)", "Subsection", CellChangeTimes->{3.40017252703125*^9, 3.401691257875*^9},ExpressionUUID->"f274d1e6-96f6-4c61-94c8-f66f697fff31"], Cell[BoxData[ RowBox[{ RowBox[{"stupne", "=", RowBox[{"{", RowBox[{ "85", ",", "94.5", ",", "76.7", ",", "79.2", ",", "83", ",", "80.2", ",", "68.7", ",", "89.1", ",", "74.1", ",", "87.8", ",", "44.9", ",", "77.6", ",", "85.1", ",", "75.7", ",", "81.5", ",", "66.2", ",", "83.4", ",", "79.8", ",", "94", ",", "91.8", ",", "96.3", ",", "73.5", ",", "82.2", ",", "76.1", ",", "78.5", ",", "69.1", ",", "75.4", ",", "71.7", ",", "78.2", ",", "77.7", ",", "88.7", ",", "79.9", ",", "86.1", ",", "63.8", ",", "78.7", ",", "82.6", ",", "98.6", ",", "81.3", ",", "63.4", ",", "76.6", ",", "84.2", ",", "89.7", ",", "87.7", ",", "54.6"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.401691257890625*^9}, CellLabel-> "In[221]:=",ExpressionUUID->"36a22dbb-8ffa-4721-a3ab-6700ca3b8227"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"stupne", ",", "80", ",", RowBox[{"TwoSided", "->", "True"}], ",", RowBox[{"KnownVariance", "->", "10.5"}]}], "]"}]], "Input", CellChangeTimes->{ 3.401691257890625*^9, 3.7934670134105806`*^9, 3.7942450530938187`*^9, { 3.79424547840804*^9, 3.7942454799252424`*^9}}, CellLabel-> "In[222]:=",ExpressionUUID->"f0fadcde-baaa-4f28-8b00-f366b2708422"], Cell[BoxData[ TemplateBox[{ "General","obsfun", "\"The function \\!\\(\\*RowBox[{\\\"MeanTest\\\"}]\\) is now obsolete and \ has been superseded by \\!\\(\\*RowBox[{\\\"LocationTest\\\"}]\\).\"",2,222, 14,20701498762941002751,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.823174684487533*^9, 3.8231890499540787`*^9}, CellLabel-> "During evaluation of \ In[222]:=",ExpressionUUID->"236f9e02-bf60-4277-9d44-f6b2c085f487"], Cell[BoxData[ RowBox[{"TwoSidedPValue", "\[Rule]", "0.20737871367834115`"}]], "Output", CellChangeTimes->{3.793466575914523*^9, 3.793467141222848*^9, 3.794244404856882*^9, 3.7942450583994517`*^9, 3.7942452736368647`*^9, 3.794245481483841*^9, 3.8231746844905267`*^9, 3.8231890500009727`*^9}, CellLabel-> "Out[222]=",ExpressionUUID->"ab8f8d80-fb06-4a9e-a14a-7777a1c6d45a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"stupne", ",", "80", ",", RowBox[{"TwoSided", "->", "True"}], ",", RowBox[{"KnownVariance", "->", "10.5"}], ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{3.401691257890625*^9, 3.7934670134205914`*^9}, CellLabel-> "In[223]:=",ExpressionUUID->"5722db48-544b-4dbb-9396-24244af6d5f3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"Mean\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"79.38409090909092`", RowBox[{"-", "1.260806105089916`"}], RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"Mean", "TestStat", "Distribution"}}]]]}], ",", RowBox[{"TwoSidedPValue", "\[Rule]", "0.20737871367834115`"}]}], "}"}]], "Output", CellChangeTimes->{3.793466575956554*^9, 3.7934671501874905`*^9, 3.7942444048970404`*^9, 3.7942455090224*^9, 3.8231746950828505`*^9, 3.8231890500488515`*^9}, CellLabel-> "Out[223]=",ExpressionUUID->"c53f3aae-06c4-4859-b06d-0a079fee2947"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"stupne", ",", "80", ",", RowBox[{"SignificanceLevel", "->", "0.10"}], ",", RowBox[{"TwoSided", "->", "True"}], ",", RowBox[{"KnownVariance", "->", "10.5"}], ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{3.40169125790625*^9, 3.7934670134205914`*^9}, CellLabel-> "In[224]:=",ExpressionUUID->"c1b9a106-86b7-485c-8fd7-a91a718c1eaa"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"Mean\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"79.38409090909092`", RowBox[{"-", "1.260806105089916`"}], RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"Mean", "TestStat", "Distribution"}}]]]}], ",", RowBox[{"TwoSidedPValue", "\[Rule]", "0.20737871367834115`"}], ",", RowBox[{"\<\"Fail to reject null hypothesis at significance level\"\>", "\[Rule]", "0.1`"}]}], "}"}]], "Output", CellChangeTimes->{3.793466575997875*^9, 3.793467154692419*^9, 3.7942444049274335`*^9, 3.7942455191566944`*^9, 3.8231890500997105`*^9}, CellLabel-> "Out[224]=",ExpressionUUID->"0c8671c2-c181-4de2-b818-464a182d276f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NormalPValue", "[", RowBox[{ RowBox[{"-", "0.389093"}], ",", RowBox[{"TwoSided", "->", "True"}]}], "]"}]], "Input", CellLabel-> "In[225]:=",ExpressionUUID->"7eb049bf-73cb-45dc-b9d0-2f611d2e24b6"], Cell[BoxData[ RowBox[{"TwoSidedPValue", "\[Rule]", "0.6972073514899031`"}]], "Output", CellChangeTimes->{3.793466576031443*^9, 3.7942444049774947`*^9, 3.794245525802822*^9, 3.823189050149575*^9}, CellLabel-> "Out[225]=",ExpressionUUID->"53f3f620-c296-40dc-9b0e-ebb8cff4441b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"stupne", ",", "80", ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{3.40169125790625*^9}, CellLabel-> "In[226]:=",ExpressionUUID->"069ed283-3d22-4ef4-b08b-edebcc054e3c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"Mean\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"79.38409090909092`", RowBox[{"-", "0.38873631651878915`"}], RowBox[{"StudentTDistribution", "[", "43", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"Mean", "TestStat", "Distribution"}}]]]}], ",", RowBox[{ "OneSidedPValue", "\[Rule]", "0.34969474080379458381974265514763885157`13.089248776977705"}]}], "}"}]], "Output", CellChangeTimes->{3.7934665760713444`*^9, 3.7942444050201454`*^9, 3.794245531040704*^9, 3.823189050196452*^9}, CellLabel-> "Out[226]=",ExpressionUUID->"009822da-0ff9-4c00-8959-4193aa9c888e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["p\[RHacek]\[IAcute]klad 2 (stupne)", "Subsection", CellChangeTimes->{3.40017252703125*^9, 3.40169125790625*^9},ExpressionUUID->"7752bab7-4742-4636-ac94-ea2a2b688bcd"], Cell[BoxData[ RowBox[{ RowBox[{"stupne", "=", RowBox[{"{", RowBox[{ "85", ",", "94.5", ",", "76.7", ",", "79.2", ",", "83", ",", "80.2", ",", "68.7", ",", "89.1", ",", "74.1", ",", "87.8", ",", "44.9", ",", "77.6", ",", "85.1", ",", "75.7", ",", "81.5", ",", "66.2", ",", "83.4", ",", "79.8", ",", "94", ",", "91.8", ",", "96.3", ",", "73.5", ",", "82.2", ",", "76.1", ",", "78.5", ",", "69.1", ",", "75.4", ",", "71.7", ",", "78.2", ",", "77.7", ",", "88.7", ",", "79.9", ",", "86.1", ",", "63.8", ",", "78.7", ",", "82.6", ",", "98.6", ",", "81.3", ",", "63.4", ",", "76.6", ",", "84.2", ",", "89.7", ",", "87.7", ",", "54.6"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.401691257921875*^9}, CellLabel-> "In[227]:=",ExpressionUUID->"f06af577-bbfe-4934-b737-8cd6b52fcdbd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceTest", "[", RowBox[{"stupne", ",", "110.5", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{ 3.401691257921875*^9, {3.7934672079502473`*^9, 3.793467215340604*^9}}, CellLabel-> "In[228]:=",ExpressionUUID->"ec2d8b80-eddf-4e62-9381-63ce1e632543"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>"}, {"\<\"Fisher Ratio\"\>", "42.98152817770465`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.7934665761893516`*^9, 3.7934672205242877`*^9, 3.7942444051904173`*^9, 3.7942455373923206`*^9, 3.8231747124219418`*^9, 3.823189050284217*^9}, CellLabel-> "Out[228]=",ExpressionUUID->"30b19b05-d18e-40f5-bb3a-22e0271f670c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceTest", "[", RowBox[{"stupne", ",", "110", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{ 3.401691257921875*^9, {3.7934672401855583`*^9, 3.793467249410186*^9}, { 3.7934672932812996`*^9, 3.7934673096803646`*^9}}, CellLabel-> "In[229]:=",ExpressionUUID->"713bf269-1b17-45e2-8221-10268df3e723"], Cell[BoxData["\<\"Do not reject\"\>"], "Output", CellChangeTimes->{ 3.7934665762311916`*^9, {3.7934672314203434`*^9, 3.793467251265094*^9}, { 3.7934672953037987`*^9, 3.7934673104651003`*^9}, 3.7942444053309083`*^9, 3.823174724651157*^9, 3.8231890503310957`*^9}, CellLabel-> "Out[229]=",ExpressionUUID->"b9336fcc-81fe-4a78-8604-71d447322d1c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceTest", "[", RowBox[{"stupne", ",", "110.5", ",", RowBox[{"SignificanceLevel", "->", "0.10"}]}], "]"}]], "Input", CellChangeTimes->{ 3.401691257921875*^9, {3.793467327270187*^9, 3.793467334280099*^9}}, CellLabel-> "In[230]:=",ExpressionUUID->"9d1e6443-14f0-4521-98c2-2952764527ad"], Cell[BoxData["0.9442114633680836`"], "Output", CellChangeTimes->{ 3.7934665762710347`*^9, {3.7934673197351184`*^9, 3.7934673350364084`*^9}, 3.794244405372015*^9, 3.823174729245179*^9, 3.823189050377966*^9}, CellLabel-> "Out[230]=",ExpressionUUID->"4b8d6e53-7cfe-43c6-adc0-a0ba60119b24"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["p\[RHacek]\[IAcute]klad 3 (ve\[RHacek]ejn\[YAcute]/soukrom\[YAcute])", \ "Subsection", CellChangeTimes->{ 3.400172527046875*^9, {3.401691424640625*^9, 3.40169143890625*^9}},ExpressionUUID->"07271d10-5ffc-43d8-ad7b-\ 4e6c2417b74c"], Cell[BoxData[ RowBox[{ RowBox[{"ve\[RHacek]ejn\[YAcute]", "=", RowBox[{"{", RowBox[{ "825", ",", "990", ",", "1054", ",", "921", ",", "816", ",", "818", ",", "1071", ",", "1121", ",", "926", ",", "956", ",", "867", ",", "935"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.40169142465625*^9}, CellLabel-> "In[231]:=",ExpressionUUID->"8657eeca-34fd-4bd7-aadc-7c2dd79bfe44"], Cell[BoxData[ RowBox[{ RowBox[{"soukrom\[YAcute]", "=", RowBox[{"{", RowBox[{ "840", ",", "600", ",", "890", ",", "780", ",", "915", ",", "915", ",", "1230", ",", "1302", ",", "922", ",", "845", ",", "923", ",", "1030", ",", "879", ",", "757", ",", "921", ",", "848", ",", "870", ",", "826", ",", "831", ",", "1005", ",", "1002", ",", "915", ",", "813", ",", "842", ",", "774"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.40169143890625*^9}, CellLabel-> "In[232]:=",ExpressionUUID->"1f4e7eda-759f-4d6b-9ecb-3619858e9493"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanDifferenceTest", "[", RowBox[{"ve\[RHacek]ejn\[YAcute]", ",", "soukrom\[YAcute]", ",", "0", ",", RowBox[{"TwoSided", "->", "True"}], ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.40169142465625*^9, 3.40169143890625*^9}}, CellLabel-> "In[233]:=",ExpressionUUID->"8a4db3ce-541f-4f3c-ab25-55317b77e8a9"], Cell[BoxData[ TemplateBox[{ "General","obsfun", "\"The function \\!\\(\\*RowBox[{\\\"MeanDifferenceTest\\\"}]\\) is now \ obsolete and has been superseded by \ \\!\\(\\*RowBox[{\\\"LocationTest\\\"}]\\).\"",2,233,15,20701498762941002751, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7942455445898046`*^9, 3.823174747793178*^9, 3.823189050521082*^9}, CellLabel-> "During evaluation of \ In[233]:=",ExpressionUUID->"12422f98-49c8-4727-98d1-4fb1206ed9d7"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"MeanDiff\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"42.666666666666664`", "1.0417375685625654`", RowBox[{"StudentTDistribution", "[", FractionBox["24270270393203032", "828966180838793"], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"MeanDiff", "TestStat", "Distribution"}}]]]}], ",", RowBox[{ "TwoSidedPValue", "\[Rule]", "0.30605967027845498802790513824159491785`13.392496138786859"}]}], "}"}]], "Output", CellChangeTimes->{3.793466576430664*^9, 3.7942444054787407`*^9, 3.7942455445898046`*^9, 3.823174747837027*^9, 3.8231890505639877`*^9}, CellLabel-> "Out[233]=",ExpressionUUID->"ec55e5a7-dfd4-4686-a7c6-d332219bc2a8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LocationTest", "[", RowBox[{ RowBox[{"{", RowBox[{"ve\[RHacek]ejn\[YAcute]", ",", "soukrom\[YAcute]"}], "}"}], ",", "Automatic", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "All"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7942455613800325`*^9, 3.794245580084424*^9}, { 3.7942456108722696`*^9, 3.794245641718398*^9}, {3.794245681793021*^9, 3.794245685502263*^9}, {3.7942457216365914`*^9, 3.7942457325568485`*^9}}, CellLabel-> "In[234]:=",ExpressionUUID->"11b37b80-a4a5-4e48-a0e1-04aab4e19904"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"Mann\[Hyphen]Whitney\"\>", "192.5`", "0.16285973787525745`"}, {"\<\"T\"\>", "0.9289666433953078`", "0.3592692811781175`"}, {"\<\"Z\"\>", "1.0417375685625645`", "0.29753336607498004`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{{3.7942455828785095`*^9, 3.7942456432284985`*^9}, 3.7942456866414757`*^9, {3.7942457233475237`*^9, 3.7942457339255514`*^9}, 3.8231747545977736`*^9, 3.82318905061386*^9}, CellLabel-> "Out[234]=",ExpressionUUID->"310a8a5e-67c6-4342-bb5b-03231997e22d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanDifferenceTest", "[", RowBox[{"ve\[RHacek]ejn\[YAcute]", ",", "soukrom\[YAcute]", ",", "0", ",", RowBox[{"TwoSided", "->", "True"}], ",", RowBox[{"EqualVariances", "->", "True"}], ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.401691424671875*^9, 3.40169143890625*^9}}, CellLabel-> "In[235]:=",ExpressionUUID->"ac78a75c-1dbf-4b72-bd55-f1782856ebc7"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"MeanDiff\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"42.666666666666664`", "0.9289666433953087`", RowBox[{"StudentTDistribution", "[", "35", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"MeanDiff", "TestStat", "Distribution"}}]]]}], ",", RowBox[{ "TwoSidedPValue", "\[Rule]", "0.35926928117811703595957244914413927503`13.318860510926983"}]}], "}"}]], "Output", CellChangeTimes->{3.793466576463493*^9, 3.794244405512459*^9, 3.8231747586799736`*^9, 3.8231890506966124`*^9}, CellLabel-> "Out[235]=",ExpressionUUID->"f05ff970-ec6a-41bc-ba99-e8bea78f0d78"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["p\[RHacek]\[IAcute]klad 4 (ve\[RHacek]ejn\[YAcute]/soukrom\[YAcute])", \ "Subsection", CellChangeTimes->{ 3.400172527046875*^9, {3.401691424671875*^9, 3.401691438921875*^9}},ExpressionUUID->"bbb743e9-11e5-4a57-b1f1-\ abd2d3fa46b6"], Cell[BoxData[ RowBox[{ RowBox[{"ve\[RHacek]ejn\[YAcute]", "=", RowBox[{"{", RowBox[{ "825", ",", "990", ",", "1054", ",", "921", ",", "816", ",", "818", ",", "1071", ",", "1121", ",", "926", ",", "956", ",", "867", ",", "935"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.4016914246875*^9}, CellLabel-> "In[236]:=",ExpressionUUID->"bd5f0a27-7d8c-44b4-bd95-bd6c8e21ea90"], Cell[BoxData[ RowBox[{ RowBox[{"soukrom\[YAcute]", "=", RowBox[{"{", RowBox[{ "840", ",", "600", ",", "890", ",", "780", ",", "915", ",", "915", ",", "1230", ",", "1302", ",", "922", ",", "845", ",", "923", ",", "1030", ",", "879", ",", "757", ",", "921", ",", "848", ",", "870", ",", "826", ",", "831", ",", "1005", ",", "1002", ",", "915", ",", "813", ",", "842", ",", "774"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.401691438921875*^9}, CellLabel-> "In[237]:=",ExpressionUUID->"4d4a02a8-5274-4ef1-82d2-5199943f07df"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceTest", "[", RowBox[{ RowBox[{"{", RowBox[{"ve\[RHacek]ejn\[YAcute]", ",", " ", "soukrom\[YAcute]"}], "}"}], ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.4016914246875*^9, 3.4016914389375*^9}, { 3.7976477351028814`*^9, 3.79764775994246*^9}}, CellLabel-> "In[238]:=",ExpressionUUID->"19c122d9-5bbb-4eed-a2a7-51d269dfd42f"], Cell[BoxData["0.7793728134045935`"], "Output", CellChangeTimes->{ 3.793466576622241*^9, 3.7942444056166763`*^9, 3.797647652987113*^9, { 3.7976477375406404`*^9, 3.7976477622998075`*^9}, 3.823174769920308*^9, 3.823189050854909*^9}, CellLabel-> "Out[238]=",ExpressionUUID->"1d95589c-b97b-49a8-8781-f4e692f3689e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceTest", "[", RowBox[{ RowBox[{"{", RowBox[{"ve\[RHacek]ejn\[YAcute]", ",", " ", "soukrom\[YAcute]"}], "}"}], ",", "1", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.4016914246875*^9, 3.4016914389375*^9}, { 3.797647771622106*^9, 3.797647873091114*^9}}, CellLabel-> "In[239]:=",ExpressionUUID->"76d4671c-001f-4f3c-879b-714acceb5765"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>"}, {"\<\"Conover\"\>", "0.2801364595502637`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{ 3.7934665766582155`*^9, 3.79424440565901*^9, {3.7976478420534477`*^9, 3.7976478736168594`*^9}, 3.8231747732235217`*^9, 3.8231890509027815`*^9}, CellLabel-> "Out[239]=",ExpressionUUID->"781929f7-ab9c-436d-8802-a9b057703af2"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Weights (extra)", "Subsection",ExpressionUUID->"fcb64779-5b55-4fff-9a88-8adcfb714f24"], Cell[BoxData[ RowBox[{ RowBox[{"weights", "=", RowBox[{"{", RowBox[{ "464", ",", "450", ",", "450", ",", "456", ",", "452", ",", "433", ",", "446", ",", "446", ",", "450", ",", "447", ",", "442", ",", "438", ",", "452", ",", "447", ",", "460", ",", "450", ",", "453", ",", "456", ",", "446", ",", "433", ",", "448", ",", "450", ",", "439", ",", "452", ",", "459", ",", "454", ",", "456", ",", "454", ",", "452", ",", "449", ",", "463", ",", "449", ",", "447", ",", "466", ",", "446", ",", "447", ",", "450", ",", "449", ",", "457", ",", "464", ",", "468", ",", "447", ",", "433", ",", "464", ",", "469", ",", "457", ",", "454", ",", "451", ",", "453", ",", "443"}], "}"}]}], ";"}]], "Input", CellLabel-> "In[240]:=",ExpressionUUID->"3d398e62-de5a-4a51-97cc-47149fe23001"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LocationTest", "[", RowBox[{"weights", ",", "Automatic", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "All"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{ 3.7934670134305916`*^9, {3.797647897823625*^9, 3.7976479158025694`*^9}, { 3.7976480024593196`*^9, 3.79764804888494*^9}}, CellLabel-> "In[241]:=",ExpressionUUID->"2b902631-cc10-4dae-b402-f1902a87114d"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"Paired T\"\>", "379.99138989091`", "1.127137583731126`*^-86"}, {"\<\"Paired Z\"\>", "379.99138989091006`", "0.`"}, {"\<\"Sign\"\>", "50", "1.7763568394002505`*^-15"}, {"\<\"T\"\>", "379.99138989091`", "1.127137583731126`*^-86"}, {"\<\"Z\"\>", "379.99138989091006`", "0.`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{ 3.7934665767714586`*^9, 3.793467364095355*^9, 3.794244405735222*^9, { 3.7976478905285087`*^9, 3.797647917142306*^9}, {3.797648004595252*^9, 3.797648009918232*^9}, {3.7976480424943457`*^9, 3.797648049814517*^9}, 3.8231747823725314`*^9, 3.823189050993911*^9}, CellLabel-> "Out[241]=",ExpressionUUID->"87305b60-5be8-4d05-b591-9046f5370519"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LocationTest", "[", RowBox[{"weights", ",", "454"}], "]"}]], "Input", CellChangeTimes->{ 3.7934670134305916`*^9, {3.7976480798511653`*^9, 3.7976480924889145`*^9}}, CellLabel-> "In[242]:=",ExpressionUUID->"d38bfd24-7707-43fc-bda9-6059e87c3957"], Cell[BoxData["0.023336426137440656`"], "Output", CellChangeTimes->{3.7934665768811226`*^9, 3.7934673689400682`*^9, 3.794244405769204*^9, 3.797648093796856*^9, 3.823174787864503*^9, 3.8231890510417204`*^9}, CellLabel-> "Out[242]=",ExpressionUUID->"e6d54741-68e2-4323-aa5d-fd68e7498849"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LocationTest", "[", RowBox[{"weights", ",", "454", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{ 3.7934670134405704`*^9, {3.7976481058493395`*^9, 3.7976481259829597`*^9}, { 3.797648166593046*^9, 3.797648181078018*^9}}, CellLabel-> "In[243]:=",ExpressionUUID->"c686d0bc-5dbe-42b7-ad55-6ee0458fcfdb"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"T\"\>", "0.023336426137440656`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{ 3.7934665769226923`*^9, 3.7934673723643*^9, 3.794244405814639*^9, { 3.797648176743111*^9, 3.797648182586231*^9}, 3.8231747909098454`*^9, 3.8231890510886354`*^9}, CellLabel-> "Out[243]=",ExpressionUUID->"8ecfc569-a4e2-4ea8-b0c0-7de6ff00bb4c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"weights", ",", "454", ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellLabel-> "In[244]:=",ExpressionUUID->"cb9cc74f-498b-4794-8f36-f336bab0b7ad"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"Mean\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"451.22`", RowBox[{"-", "2.341155232251961`"}], RowBox[{"StudentTDistribution", "[", "49", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"Mean", "TestStat", "Distribution"}}]]]}], ",", RowBox[{ "OneSidedPValue", "\[Rule]", "0.01166821306871968175711051469059925526`15.183782221492208"}]}], "}"}]], "Output", CellChangeTimes->{3.7934665769538527`*^9, 3.7942444058564587`*^9, 3.8231747967958136`*^9, 3.8231890511429048`*^9}, CellLabel-> "Out[244]=",ExpressionUUID->"83e602fb-7600-4ee1-96fa-822a249f97e4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"weights", ",", "454"}], "]"}]], "Input", CellLabel-> "In[245]:=",ExpressionUUID->"d58f2f84-13a0-49ba-b57d-0351c1ec2da4"], Cell[BoxData[ RowBox[{"OneSidedPValue", "\[Rule]", "0.01166821306871968175711051469059925526`15.183782221492208"}]], "Output", CellChangeTimes->{3.793466577030903*^9, 3.794244405930436*^9, 3.823174809436013*^9, 3.823189051188365*^9}, CellLabel-> "Out[245]=",ExpressionUUID->"8bc67ac4-39c5-4aa1-b838-8ba912d35137"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Mean", "[", "weights", "]"}], "//", "N"}]], "Input", CellLabel-> "In[246]:=",ExpressionUUID->"7f463542-d8f4-4419-b39a-cbb2c667e478"], Cell[BoxData["451.22`"], "Output", CellChangeTimes->{3.7934665770719357`*^9, 3.7942444059686155`*^9, 3.8231748139598627`*^9, 3.8231890512352767`*^9}, CellLabel-> "Out[246]=",ExpressionUUID->"5b7e3990-ea32-47b2-a352-c69760fcd7bb"] }, Open ]], Cell[BoxData[""], "Input", CellLabel-> "In[247]:=",ExpressionUUID->"9e8abc6e-a491-4e69-8af5-71f53380fdc3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"weights", ",", "454", ",", RowBox[{"TwoSided", "->", "True"}]}], "]"}]], "Input", CellLabel-> "In[248]:=",ExpressionUUID->"9f0aa066-2940-42e0-bf1a-2a8c3bcec38c"], Cell[BoxData[ RowBox[{"TwoSidedPValue", "\[Rule]", "0.02333642613743936351422102938119851052`15.183782221492208"}]], "Output", CellChangeTimes->{3.7934665771410813`*^9, 3.794244406040427*^9, 3.8231748177980757`*^9, 3.823189051320046*^9}, CellLabel-> "Out[248]=",ExpressionUUID->"5fed4457-61bd-4c03-acef-9a9a3ff4073e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"2", ".0116682"}]], "Input", CellLabel-> "In[249]:=",ExpressionUUID->"35d33a34-a732-4abe-b2d4-b6e29c800505"], Cell[BoxData["0.0233364`"], "Output", CellChangeTimes->{3.793466577172724*^9, 3.794244406078475*^9, 3.823189051365924*^9}, CellLabel-> "Out[249]=",ExpressionUUID->"59a24995-5e9d-4d69-aef8-4a7ac7508017"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "weights", "]"}]], "Input", CellLabel-> "In[250]:=",ExpressionUUID->"fdcfebd5-7fe5-448f-8b0e-f094e43169ec"], Cell[BoxData["50"], "Output", CellChangeTimes->{3.793466577210865*^9, 3.7942444061241302`*^9, 3.8231890514128027`*^9}, CellLabel-> "Out[250]=",ExpressionUUID->"b60f2dee-eefb-4324-8a42-1e1fdbfa8d0b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"StandardDeviation", "[", "weights", "]"}], "//", "N"}]], "Input", CellLabel-> "In[251]:=",ExpressionUUID->"dad26b1a-d5db-46e0-81da-9db76d9b5cee"], Cell[BoxData["8.396525034385428`"], "Output", CellChangeTimes->{3.7934665772508917`*^9, 3.7942444061596813`*^9, 3.823189051460678*^9}, CellLabel-> "Out[251]=",ExpressionUUID->"8a66b1f9-4b8a-42a5-922b-fae756c4f253"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"v\[YAcute]b\[EHacek]rStandardDeviation", "[", "v_", "]"}], ":=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"n", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"[", "j", "]"}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "v", "]"}]}], "}"}]}], "]"}]}], "-", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"v", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "v", "]"}]}], "}"}]}], "]"}], "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Length", "[", "v", "]"}], RowBox[{"(", RowBox[{ RowBox[{"Length", "[", "v", "]"}], "-", "1"}], ")"}]}], ")"}]}], "]"}]}]], "Input", CellChangeTimes->{3.401691474390625*^9}, CellLabel-> "In[252]:=",ExpressionUUID->"786f0139-acca-4a57-b539-28676fc4ff04"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n", "=", RowBox[{"Length", "[", "weights", "]"}]}]], "Input", CellChangeTimes->{ 3.401691474390625*^9, {3.7934674004055552`*^9, 3.793467403390063*^9}}, CellLabel-> "In[253]:=",ExpressionUUID->"18fa1027-8ca0-40f1-a666-a69869810b91"], Cell[BoxData["50"], "Output", CellChangeTimes->{3.7934665773211317`*^9, 3.7934674051120186`*^9, 3.7942444062302575`*^9, 3.8231890515604296`*^9}, CellLabel-> "Out[253]=",ExpressionUUID->"4ceb4713-cb9e-4e81-95e3-1d1b3e46df1c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"StandardDeviation", "[", "weights", "]"}], "/", RowBox[{"Sqrt", "[", "50", "]"}]}], "//", "N"}]], "Input", CellLabel-> "In[254]:=",ExpressionUUID->"df9cd10b-1ed9-464d-a536-27408a9fbb99"], Cell[BoxData["1.1874479580433093`"], "Output", CellChangeTimes->{3.793466577362412*^9, 3.7934674102338295`*^9, 3.7942444063393707`*^9, 3.8231890516072435`*^9}, CellLabel-> "Out[254]=",ExpressionUUID->"a9102b81-8814-4d33-b6f8-e62110008c79"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Calcium (extra)", "Subsection",ExpressionUUID->"a134fd9b-6fbf-4592-bff0-9dae73fa8513"], Cell[BoxData[ RowBox[{ RowBox[{"calcium", "=", RowBox[{"{", RowBox[{ "879", ",", "1096", ",", "701", ",", "986", ",", "828", ",", "1077", ",", "703", ",", "555", ",", "422", ",", "997", ",", "473", ",", "702", ",", "508", ",", "530", ",", "513", ",", "720", ",", "944", ",", "673", ",", "574", ",", "707", ",", "864", ",", "1199", ",", "743", ",", "1325", ",", "655", ",", "1043", ",", "599", ",", "1008", ",", "705", ",", "180", ",", "287", ",", "542", ",", "893", ",", "1052", ",", "473"}], "}"}]}], ";"}]], "Input", CellLabel-> "In[255]:=",ExpressionUUID->"163b2bf7-1283-4d72-b242-6f3d6224473a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"calcium", ",", "800"}], "]"}]], "Input", CellLabel-> "In[256]:=",ExpressionUUID->"b5e72f7b-54d3-48ec-a1ed-c3b82b57f1d3"], Cell[BoxData[ RowBox[{"OneSidedPValue", "\[Rule]", "0.12140949590860141622979081578690035313`13.304037949102426"}]], "Output", CellChangeTimes->{3.7934665774605236`*^9, 3.7942444064071884`*^9, 3.8231748415010424`*^9, 3.823189051736961*^9}, CellLabel-> "Out[256]=",ExpressionUUID->"6e07e062-07c8-4f44-b66c-ae89e3879e1d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"calcium", ",", "800", ",", RowBox[{"SignificanceLevel", "->", "0.05"}]}], "]"}]], "Input", CellLabel-> "In[257]:=",ExpressionUUID->"d9fbc2bc-ec39-4e82-b2c7-e725644ea4f0"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "OneSidedPValue", "\[Rule]", "0.12140949590860141622979081578690035313`13.304037949102426"}], ",", RowBox[{"\<\"Fail to reject null hypothesis at significance level\"\>", "\[Rule]", "0.05`"}]}], "}"}]], "Output", CellChangeTimes->{3.793466577501086*^9, 3.7942444064421997`*^9, 3.8231748452894354`*^9, 3.823189051779895*^9}, CellLabel-> "Out[257]=",ExpressionUUID->"470d38fd-afed-4515-852a-fa672d41b19b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"calcium", ",", "800", ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellLabel-> "In[258]:=",ExpressionUUID->"2de53307-02af-4175-a7a7-79e1c0eef0ba"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"Mean\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"747.3142857142857`", RowBox[{"-", "1.188636252529349`"}], RowBox[{"StudentTDistribution", "[", "34", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"Mean", "TestStat", "Distribution"}}]]]}], ",", RowBox[{ "OneSidedPValue", "\[Rule]", "0.12140949590860141622979081578690035313`13.304037949102426"}]}], "}"}]], "Output", CellChangeTimes->{3.7934665775411577`*^9, 3.794244406481309*^9, 3.823174848877553*^9, 3.823189051822725*^9}, CellLabel-> "Out[258]=",ExpressionUUID->"705f6fbf-801e-4490-8a4d-37f17b4628ce"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["SAT (extra)", "Subsection",ExpressionUUID->"a50a0a68-5f6f-4a52-81b8-9313d79eff2f"], Cell[BoxData[ RowBox[{ RowBox[{"se", "=", RowBox[{"{", RowBox[{ "980", ",", "990", ",", "940", ",", "997", ",", "980", ",", "1054", ",", "1019", ",", "942"}], "}"}]}], ";"}]], "Input", CellLabel-> "In[259]:=",ExpressionUUID->"ca696ebf-b396-44df-9859-fe800d09be98"], Cell[BoxData[ RowBox[{ RowBox[{"ne", "=", RowBox[{"{", RowBox[{ "855", ",", "905", ",", "989", ",", "1012", ",", "988", ",", "980", ",", "997", ",", "964", ",", "875"}], "}"}]}], ";"}]], "Input", CellLabel-> "In[260]:=",ExpressionUUID->"e2b1bb68-8f32-4083-85c5-7c4dc9a0ce12"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanDifferenceTest", "[", RowBox[{"ne", ",", "se", ",", "0", ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellLabel-> "In[261]:=",ExpressionUUID->"b36fee7d-8035-4c8e-9300-5dc6dd0456fc"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"MeanDiff\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, { RowBox[{"-", "36.083333333333336`"}], RowBox[{"-", "1.5394498231478626`"}], RowBox[{"StudentTDistribution", "[", FractionBox["2146760289583", "154921042145"], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"MeanDiff", "TestStat", "Distribution"}}]]]}], ",", RowBox[{ "OneSidedPValue", "\[Rule]", "0.07310677013096194857922185481054988039`13.653836785710666"}]}], "}"}]], "Output", CellChangeTimes->{3.793466577655897*^9, 3.7942444065820417`*^9, 3.823189051988327*^9}, CellLabel-> "Out[261]=",ExpressionUUID->"8439fe26-39e2-4311-8ab1-ebe5b4fe9c85"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Mean", "[", "se", "]"}], "-", RowBox[{"Mean", "[", "ne", "]"}]}]], "Input", CellLabel-> "In[262]:=",ExpressionUUID->"287854d1-31b2-4327-b2d0-45abe937e004"], Cell[BoxData[ FractionBox["433", "12"]], "Output", CellChangeTimes->{3.7934665776904173`*^9, 3.7942444066194286`*^9, 3.823189052036154*^9}, CellLabel-> "Out[262]=",ExpressionUUID->"5f312f66-7cd2-4d63-8831-a68a607b3ee6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ve\[RHacek]ejn\[YAcute]/soukrom\[YAcute] (extra)", "Subsection", CellChangeTimes->{{3.401691424703125*^9, 3.4016914389375*^9}},ExpressionUUID->"a04cc560-4f34-46a6-9b7a-ccfd9267bdae"], Cell[BoxData[ RowBox[{ RowBox[{"ve\[RHacek]ejn\[YAcute]", "=", RowBox[{"{", RowBox[{ "825", ",", "990", ",", "1054", ",", "921", ",", "816", ",", "818", ",", "1071", ",", "1121", ",", "926", ",", "956", ",", "867", ",", "935"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.401691424703125*^9}, CellLabel-> "In[263]:=",ExpressionUUID->"077283de-b63a-4fcb-85f0-cb6468917c5b"], Cell[BoxData[ RowBox[{ RowBox[{"soukrom\[YAcute]", "=", RowBox[{"{", RowBox[{ "840", ",", "600", ",", "890", ",", "780", ",", "915", ",", "915", ",", "1230", ",", "1302", ",", "922", ",", "845", ",", "923", ",", "1030", ",", "879", ",", "757", ",", "921", ",", "848", ",", "870", ",", "826", ",", "831", ",", "1005", ",", "1002", ",", "915", ",", "813", ",", "842", ",", "774"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.401691438953125*^9}, CellLabel-> "In[264]:=",ExpressionUUID->"eeb508f5-2c71-4194-a4d9-f4a6cf7545d8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanDifferenceTest", "[", RowBox[{"ve\[RHacek]ejn\[YAcute]", ",", "soukrom\[YAcute]", ",", "0"}], "]"}]], "Input", CellChangeTimes->{{3.40169142471875*^9, 3.401691438953125*^9}}, CellLabel-> "In[265]:=",ExpressionUUID->"f808dceb-9bf9-4cdd-a37c-144581ab8012"], Cell[BoxData[ RowBox[{"OneSidedPValue", "\[Rule]", "0.15302983513922749401395256912079745893`13.392496138786859"}]], "Output", CellChangeTimes->{3.793466577901037*^9, 3.794244406724283*^9, 3.823189052158394*^9}, CellLabel-> "Out[265]=",ExpressionUUID->"692551bf-b85f-42c0-9d0f-57d4164a8bed"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanDifferenceTest", "[", RowBox[{"ve\[RHacek]ejn\[YAcute]", ",", "soukrom\[YAcute]", ",", "0", ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.40169142471875*^9, 3.401691438953125*^9}}, CellLabel-> "In[266]:=",ExpressionUUID->"08f53ec1-4ad7-4160-96ce-1f8a03ecd987"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"MeanDiff\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"42.666666666666664`", "1.0417375685625654`", RowBox[{"StudentTDistribution", "[", FractionBox["24270270393203032", "828966180838793"], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"MeanDiff", "TestStat", "Distribution"}}]]]}], ",", RowBox[{ "OneSidedPValue", "\[Rule]", "0.15302983513922749401395256912079745893`13.392496138786859"}]}], "}"}]], "Output", CellChangeTimes->{3.7934665779405828`*^9, 3.7942444067604847`*^9, 3.823189052203334*^9}, CellLabel-> "Out[266]=",ExpressionUUID->"57b1c579-d48b-45b6-8223-af039a19d35d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanDifferenceTest", "[", RowBox[{"ve\[RHacek]ejn\[YAcute]", ",", "soukrom\[YAcute]", ",", "0", ",", RowBox[{"EqualVariances", "->", "True"}], ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.40169142471875*^9, 3.401691438953125*^9}}, CellLabel-> "In[267]:=",ExpressionUUID->"2ba95b89-1948-41d3-b17d-d97394fc859b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"MeanDiff\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"42.666666666666664`", "0.9289666433953087`", RowBox[{"StudentTDistribution", "[", "35", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"MeanDiff", "TestStat", "Distribution"}}]]]}], ",", RowBox[{ "OneSidedPValue", "\[Rule]", "0.17963464058905851797978622457206963752`13.318860510926983"}]}], "}"}]], "Output", CellChangeTimes->{3.793466577971831*^9, 3.7942444068006697`*^9, 3.823189052251752*^9}, CellLabel-> "Out[267]=",ExpressionUUID->"7ee752be-0c73-43d1-a135-68b8803e7529"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", RowBox[{"{", RowBox[{ "825", ",", "990", ",", "1054", ",", "921", ",", "816", ",", "818", ",", "1071", ",", "1121", ",", "926", ",", "956", ",", "867", ",", "935", ",", "840", ",", "600", ",", "890", ",", "780", ",", "915", ",", "915", ",", "1230", ",", "1302", ",", "922", ",", "845", ",", "923", ",", "1030", ",", "879", ",", "757", ",", "921", ",", "848", ",", "870", ",", "826", ",", "831", ",", "1005", ",", "1002", ",", "915", ",", "813", ",", "842", ",", "774"}], "}"}], "]"}]], "Input", CellLabel-> "In[268]:=",ExpressionUUID->"42318b6f-e1b2-43bf-a283-721b32817974"], Cell[BoxData[ FractionBox[ SqrtBox[ FractionBox["5673941", "37"]], "3"]], "Output", CellChangeTimes->{3.7934665780154285`*^9, 3.7942444068416605`*^9, 3.8231890522996316`*^9}, CellLabel-> "Out[268]=",ExpressionUUID->"75874376-0b36-4a74-86b1-13836c74f2ac"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "%", "]"}]], "Input", CellLabel-> "In[269]:=",ExpressionUUID->"5c3fb7fe-8bf0-4379-a93e-8e4ffcf5cdf5"], Cell[BoxData["130.53299146906065`"], "Output", CellChangeTimes->{3.793466578053893*^9, 3.794244406889043*^9, 3.823189052346528*^9}, CellLabel-> "Out[269]=",ExpressionUUID->"23209590-7341-4039-bd04-222f5f0db16b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanDifferenceTest", "[", RowBox[{"ve\[RHacek]ejn\[YAcute]", ",", "soukrom\[YAcute]", ",", "0", ",", RowBox[{"KnownVariance", "->", "130.5"}], ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.401691424734375*^9, 3.40169143896875*^9}, 3.7934670134405704`*^9}, CellLabel-> "In[270]:=",ExpressionUUID->"e04dee8c-eb3f-4014-9ec9-fe01a5d9d6b0"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"MeanDiff\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"42.666666666666664`", "10.635140321497119`", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"MeanDiff", "TestStat", "Distribution"}}]]]}], ",", RowBox[{"OneSidedPValue", "\[Rule]", "1.0226032275657802`*^-26"}]}], "}"}]], "Output", CellChangeTimes->{3.7934665780914326`*^9, 3.793467430670041*^9, 3.7942444069231815`*^9, 3.8231890523983946`*^9}, CellLabel-> "Out[270]=",ExpressionUUID->"e0e8511a-a832-4c64-a46a-d6a2e83ce6af"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceRatioTest", "[", RowBox[{ "ve\[RHacek]ejn\[YAcute]", ",", " ", "soukrom\[YAcute]", ",", " ", "1"}], "]"}]], "Input", CellChangeTimes->{{3.401691424734375*^9, 3.40169143896875*^9}}, CellLabel-> "In[271]:=",ExpressionUUID->"4a0581f1-ceba-42a8-81e6-b50fba7f5cce"], Cell[BoxData[ TemplateBox[{ "General","obsfun", "\"The function \\!\\(\\*RowBox[{\\\"VarianceRatioTest\\\"}]\\) is now \ obsolete and has been superseded by \ \\!\\(\\*RowBox[{\\\"VarianceEquivalenceTest\\\"}]\\).\"",2,271,16, 20701498762941002751,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.8231890524584703`*^9}, CellLabel-> "During evaluation of \ In[271]:=",ExpressionUUID->"1801ab8e-c9cd-4fc8-8b7b-924a9e748d59"], Cell[BoxData[ RowBox[{"OneSidedPValue", "\[Rule]", "0.1285062738417079`"}]], "Output", CellChangeTimes->{3.7934665782620955`*^9, 3.7942444069689713`*^9, 3.823189052504348*^9}, CellLabel-> "Out[271]=",ExpressionUUID->"e13df8ea-65b2-49f4-a0f9-d06121c0f44a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceRatioTest", "[", RowBox[{ "ve\[RHacek]ejn\[YAcute]", ",", " ", "soukrom\[YAcute]", ",", " ", "1", ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.401691424734375*^9, 3.40169143896875*^9}}, CellLabel-> "In[272]:=",ExpressionUUID->"16785f00-dfec-4ffc-a109-c6d5dd95ca26"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"Ratio\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"0.5189992822798312`", "0.5189992822798312`", RowBox[{"FRatioDistribution", "[", RowBox[{"11", ",", "24"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"Ratio", "TestStat", "Distribution"}}]]]}], ",", RowBox[{"OneSidedPValue", "\[Rule]", "0.1285062738417079`"}]}], "}"}]], "Output", CellChangeTimes->{3.7934665782932043`*^9, 3.7942444070044413`*^9, 3.823189052549864*^9}, CellLabel-> "Out[272]=",ExpressionUUID->"6cd1db1a-1318-412e-b7cd-2a4bcf2f087d"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"stupne80", "=", RowBox[{"{", RowBox[{ "92.94", ",", "73.5", ",", "88.63", ",", "64.69", ",", "84.25", ",", "70.69", ",", "87.25", ",", "81.31", ",", "67.06", ",", "88.94", ",", "60.94", ",", "89.56", ",", "91.5", ",", "86.31", ",", "91.13", ",", "70.13", ",", "86.69", ",", "88.94", ",", "76.38", ",", "69.81", ",", "69.19", ",", "81.69"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.401691257953125*^9}, CellLabel-> "In[273]:=",ExpressionUUID->"424a7d1d-1ad1-4f2f-8326-e7b460803ba4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "stupne80", "]"}]], "Input", CellChangeTimes->{3.401691257953125*^9}, CellLabel-> "In[274]:=",ExpressionUUID->"3db418b6-43ac-4071-829c-cb04eaa107de"], Cell[BoxData["80.06954545454546`"], "Output", CellChangeTimes->{3.793466578415222*^9, 3.794244407077501*^9, 3.823189052647602*^9}, CellLabel-> "Out[274]=",ExpressionUUID->"763e147e-fb8c-412a-ae3a-af32dfd6174c"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"stupne", "=", RowBox[{"{", RowBox[{ "85", ",", "94.5", ",", "76.7", ",", "79.2", ",", "83", ",", "80.2", ",", "68.7", ",", "89.1", ",", "74.1", ",", "87.8", ",", "44.9", ",", "77.6", ",", "85.1", ",", "75.7", ",", "81.5", ",", "66.2", ",", "83.4", ",", "79.8", ",", "94", ",", "91.8", ",", "96.3", ",", "73.5", ",", "82.2", ",", "76.1", ",", "78.5", ",", "69.1", ",", "75.4", ",", "71.7", ",", "78.2", ",", "77.7", ",", "88.7", ",", "79.9", ",", "86.1", ",", "63.8", ",", "78.7", ",", "82.6", ",", "98.6", ",", "81.3", ",", "63.4", ",", "76.6", ",", "84.2", ",", "89.7", ",", "87.7", ",", "54.6"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.40169125796875*^9}, CellLabel-> "In[275]:=",ExpressionUUID->"6ad79d9b-fd8c-40eb-8c2e-b9784253c5a4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "stupne", "]"}]], "Input", CellChangeTimes->{3.40169125796875*^9}, CellLabel-> "In[276]:=",ExpressionUUID->"451cca4a-f9c2-44a6-877e-d3f4a1b64f67"], Cell[BoxData["79.38409090909092`"], "Output", CellChangeTimes->{3.7934665784839244`*^9, 3.794244407152668*^9, 3.8231890527875614`*^9}, CellLabel-> "Out[276]=",ExpressionUUID->"db022fcc-997b-424c-93ba-925fd3ff1fd0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"stupne", ",", "80", ",", RowBox[{"TwoSided", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{3.40169125796875*^9}, CellLabel-> "In[277]:=",ExpressionUUID->"12d42ea4-4cf0-47de-950c-7bd6be12f6ee"], Cell[BoxData[ RowBox[{"TwoSidedPValue", "\[Rule]", "0.69938948160758916763948531029527770313`13.089248776977705"}]], "Output", CellChangeTimes->{3.7934665785212307`*^9, 3.794244407186205*^9, 3.8231890528494744`*^9}, CellLabel-> "Out[277]=",ExpressionUUID->"4cd27059-3705-48ff-9877-ba5f5f5f0930"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"stupne", ",", "80", ",", RowBox[{"SignificanceLevel", "->", "0.10"}], ",", RowBox[{"TwoSided", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{3.40169125796875*^9}, CellLabel-> "In[278]:=",ExpressionUUID->"4cfc2cbf-cc76-44c6-b007-860b5cb12212"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "TwoSidedPValue", "\[Rule]", "0.69938948160758916763948531029527770313`13.089248776977705"}], ",", RowBox[{"\<\"Fail to reject null hypothesis at significance level\"\>", "\[Rule]", "0.1`"}]}], "}"}]], "Output", CellChangeTimes->{3.793466578564853*^9, 3.794244407222707*^9, 3.82318905289438*^9}, CellLabel-> "Out[278]=",ExpressionUUID->"1f6d5126-f697-43ef-be02-0df0d431ac6f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"stupne", ",", "80", ",", RowBox[{"TwoSided", "->", "True"}], ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{3.40169125796875*^9}, CellLabel-> "In[279]:=",ExpressionUUID->"4feb2bfd-b4d2-494b-aca3-df3c021d762a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"Mean\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"79.38409090909092`", RowBox[{"-", "0.38873631651878915`"}], RowBox[{"StudentTDistribution", "[", "43", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"Mean", "TestStat", "Distribution"}}]]]}], ",", RowBox[{ "TwoSidedPValue", "\[Rule]", "0.69938948160758916763948531029527770313`13.089248776977705"}]}], "}"}]], "Output", CellChangeTimes->{3.793466578603858*^9, 3.7942444072662144`*^9, 3.823189052943383*^9}, CellLabel-> "Out[279]=",ExpressionUUID->"cc8f251d-40a4-4d13-ad75-2c929ad83d6e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"stupne", ",", "80", ",", RowBox[{"TwoSided", "->", "True"}], ",", RowBox[{"KnownVariance", "->", "10.5"}], ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{3.401691257984375*^9, 3.7934670134405704`*^9}, CellLabel-> "In[280]:=",ExpressionUUID->"7f98f1a1-62a8-4ce5-b51d-a6bad7335c1c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"Mean\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"79.38409090909092`", RowBox[{"-", "1.260806105089916`"}], RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"Mean", "TestStat", "Distribution"}}]]]}], ",", RowBox[{"TwoSidedPValue", "\[Rule]", "0.20737871367834115`"}]}], "}"}]], "Output", CellChangeTimes->{3.7934665786413326`*^9, 3.7934674466662607`*^9, 3.7942444073548613`*^9, 3.8231890529932203`*^9}, CellLabel-> "Out[280]=",ExpressionUUID->"a5e15f0b-36d6-4aab-8070-a0493d92c3fc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"stupne", ",", "80", ",", RowBox[{"SignificanceLevel", "->", "0.05"}], ",", RowBox[{"TwoSided", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{3.401691257984375*^9}, CellLabel-> "In[281]:=",ExpressionUUID->"f06ef998-d01e-4c30-827a-a0abfcbe8baa"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "TwoSidedPValue", "\[Rule]", "0.69938948160758916763948531029527770313`13.089248776977705"}], ",", RowBox[{"\<\"Fail to reject null hypothesis at significance level\"\>", "\[Rule]", "0.05`"}]}], "}"}]], "Output", CellChangeTimes->{3.7934665786827393`*^9, 3.7942444074018865`*^9, 3.823189053043116*^9}, CellLabel-> "Out[281]=",ExpressionUUID->"c532d350-f11e-41bf-8968-dc3b870ab08d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"stupne", ",", "80", ",", RowBox[{"SignificanceLevel", "->", "0.10"}], ",", RowBox[{"TwoSided", "->", "True"}], ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{3.401691257984375*^9}, CellLabel-> "In[282]:=",ExpressionUUID->"cc50839d-5c62-47f3-9b13-25bd9e657acd"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"Mean\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"79.38409090909092`", RowBox[{"-", "0.38873631651878915`"}], RowBox[{"StudentTDistribution", "[", "43", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"Mean", "TestStat", "Distribution"}}]]]}], ",", RowBox[{ "TwoSidedPValue", "\[Rule]", "0.69938948160758916763948531029527770313`13.089248776977705"}], ",", RowBox[{"\<\"Fail to reject null hypothesis at significance level\"\>", "\[Rule]", "0.1`"}]}], "}"}]], "Output", CellChangeTimes->{3.793466578712259*^9, 3.794244407436455*^9, 3.823189053092952*^9}, CellLabel-> "Out[282]=",ExpressionUUID->"c7b92604-ce88-4b8e-b819-4872f29b2200"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"stupne", ",", "80", ",", RowBox[{"SignificanceLevel", "->", "0.10"}], ",", RowBox[{"TwoSided", "->", "True"}], ",", RowBox[{"KnownVariance", "->", "10.5"}], ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{3.401691258*^9, 3.7934670134505672`*^9}, CellLabel-> "In[283]:=",ExpressionUUID->"b7df4b09-b07d-48b8-8b75-e1cb03e2bb92"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"Mean\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"79.38409090909092`", RowBox[{"-", "1.260806105089916`"}], RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"Mean", "TestStat", "Distribution"}}]]]}], ",", RowBox[{"TwoSidedPValue", "\[Rule]", "0.20737871367834115`"}], ",", RowBox[{"\<\"Fail to reject null hypothesis at significance level\"\>", "\[Rule]", "0.1`"}]}], "}"}]], "Output", CellChangeTimes->{3.793466578762274*^9, 3.7934674535736713`*^9, 3.7942444074792414`*^9, 3.8231890531448374`*^9}, CellLabel-> "Out[283]=",ExpressionUUID->"098bb458-44bc-4c71-976a-2f56562cfafa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", "stupne", "]"}]], "Input", CellChangeTimes->{3.401691258*^9}, CellLabel-> "In[284]:=",ExpressionUUID->"b3b09957-66f2-432b-a38d-4f5036b7291d"], Cell[BoxData["10.50963994209476`"], "Output", CellChangeTimes->{3.7934665788310146`*^9, 3.7942444075208645`*^9, 3.8231890531896896`*^9}, CellLabel-> "Out[284]=",ExpressionUUID->"080c07c0-b866-458a-922a-8083ecfc515b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"stupne", ",", "80", ",", RowBox[{"SignificanceLevel", "->", "0.05"}]}], "]"}]], "Input", CellChangeTimes->{3.401691258*^9}, CellLabel-> "In[285]:=",ExpressionUUID->"52bd94df-6f4b-4601-a5d5-ecc56e4d1616"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "OneSidedPValue", "\[Rule]", "0.34969474080379458381974265514763885157`13.089248776977705"}], ",", RowBox[{"\<\"Fail to reject null hypothesis at significance level\"\>", "\[Rule]", "0.05`"}]}], "}"}]], "Output", CellChangeTimes->{3.79346657890924*^9, 3.794244407560198*^9, 3.8231890532385197`*^9}, CellLabel-> "Out[285]=",ExpressionUUID->"5dbba1a3-8361-42f9-a7de-e238d89337e0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"stupne", ",", "80", ",", RowBox[{"SignificanceLevel", "->", "0.05"}], ",", RowBox[{"TwoSided", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{3.401691258*^9}, CellLabel-> "In[286]:=",ExpressionUUID->"0821cf9c-4755-4a1b-a30c-48233d3d11af"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "TwoSidedPValue", "\[Rule]", "0.69938948160758916763948531029527770313`13.089248776977705"}], ",", RowBox[{"\<\"Fail to reject null hypothesis at significance level\"\>", "\[Rule]", "0.05`"}]}], "}"}]], "Output", CellChangeTimes->{3.793466578948308*^9, 3.794244407597678*^9, 3.823189053285433*^9}, CellLabel-> "Out[286]=",ExpressionUUID->"32bba484-5921-4765-87ec-393096824986"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"stupne", ",", "80", ",", RowBox[{"SignificanceLevel", "->", "0.10"}], ",", RowBox[{"TwoSided", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{3.401691258*^9}, CellLabel-> "In[287]:=",ExpressionUUID->"6853c5a9-35b0-4de9-9630-0e4b39efd0ad"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "TwoSidedPValue", "\[Rule]", "0.69938948160758916763948531029527770313`13.089248776977705"}], ",", RowBox[{"\<\"Fail to reject null hypothesis at significance level\"\>", "\[Rule]", "0.1`"}]}], "}"}]], "Output", CellChangeTimes->{3.793466578981315*^9, 3.794244407634119*^9, 3.8231890533332653`*^9}, CellLabel-> "Out[287]=",ExpressionUUID->"5b82a7f5-5066-4268-9530-36f938acb36a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"stupne", ",", "80", ",", RowBox[{"SignificanceLevel", "->", "0.10"}], ",", RowBox[{"TwoSided", "->", "True"}], ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{3.401691258015625*^9}, CellLabel-> "In[288]:=",ExpressionUUID->"7f2402cf-e169-4176-a320-1ccee910fa01"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"Mean\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"79.38409090909092`", RowBox[{"-", "0.38873631651878915`"}], RowBox[{"StudentTDistribution", "[", "43", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"Mean", "TestStat", "Distribution"}}]]]}], ",", RowBox[{ "TwoSidedPValue", "\[Rule]", "0.69938948160758916763948531029527770313`13.089248776977705"}], ",", RowBox[{"\<\"Fail to reject null hypothesis at significance level\"\>", "\[Rule]", "0.1`"}]}], "}"}]], "Output", CellChangeTimes->{3.7934665790212817`*^9, 3.7942444076795917`*^9, 3.823189053386184*^9}, CellLabel-> "Out[288]=",ExpressionUUID->"11f75b36-69a4-42bb-afcd-c3432f3211e6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Variance", "[", "stupne", "]"}]], "Input", CellChangeTimes->{3.401691258015625*^9}, CellLabel-> "In[289]:=",ExpressionUUID->"d6d58450-6ef3-47cd-b2e9-1f4381cac62b"], Cell[BoxData["110.45253171247356`"], "Output", CellChangeTimes->{3.7934665790600834`*^9, 3.7942444077153525`*^9, 3.823189053433997*^9}, CellLabel-> "Out[289]=",ExpressionUUID->"0d5237a7-0f20-4491-bbd4-55f3e89f6a98"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceTest", "[", RowBox[{"stupne", ",", " ", "110.5"}], "]"}]], "Input", CellChangeTimes->{3.401691258015625*^9, 3.7934674791797066`*^9}, CellLabel-> "In[290]:=",ExpressionUUID->"062830db-f21c-495d-af68-b406d54f4763"], Cell[BoxData["0.9442114633680836`"], "Output", CellChangeTimes->{3.7934665790909386`*^9, 3.7934674815429163`*^9, 3.794244407755245*^9, 3.823189053512822*^9}, CellLabel-> "Out[290]=",ExpressionUUID->"f5e399d3-7db9-4d5e-8c47-9c40cc7e5aaa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceTest", "[", RowBox[{"stupne", ",", " ", "110.5", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{ 3.401691258015625*^9, {3.793467492559864*^9, 3.79346751638953*^9}}, CellLabel-> "In[291]:=",ExpressionUUID->"936f9b9b-1edc-4af0-a9b5-7ee3cd396d2a"], Cell[BoxData["0.9442114633680836`"], "Output", CellChangeTimes->{ 3.793466579136323*^9, {3.79346750162992*^9, 3.7934675180106926`*^9}, 3.7942444077908897`*^9, 3.8231890535656447`*^9}, CellLabel-> "Out[291]=",ExpressionUUID->"d49be9e7-f03d-4b08-a77f-e0e4cd0ed5fb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceTest", "[", RowBox[{"stupne", ",", " ", "110.5", ",", RowBox[{"SignificanceLevel", "->", "0.05"}]}], "]"}]], "Input", CellChangeTimes->{ 3.401691258015625*^9, {3.7934675325599537`*^9, 3.793467544460084*^9}}, CellLabel-> "In[292]:=",ExpressionUUID->"2cfafdef-f157-441c-a4d1-9a193b6df3f3"], Cell[BoxData["0.9442114633680836`"], "Output", CellChangeTimes->{ 3.793466579175946*^9, {3.7934675342413197`*^9, 3.7934675454703236`*^9}, 3.7942444078287077`*^9, 3.8231890536186185`*^9}, CellLabel-> "Out[292]=",ExpressionUUID->"2c33c85e-ed27-417d-af97-c389dfd04c67"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"ve\[RHacek]ejn\[YAcute]", "=", RowBox[{"{", RowBox[{ "825", ",", "990", ",", "1054", ",", "921", ",", "816", ",", "818", ",", "1071", ",", "1121", ",", "926", ",", "956", ",", "867", ",", "935"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.40169142475*^9}, CellLabel-> "In[293]:=",ExpressionUUID->"7344e5b6-2923-4efe-89cb-186490db5e39"], Cell[BoxData[ RowBox[{ RowBox[{"soukrom\[YAcute]", "=", RowBox[{"{", RowBox[{ "840", ",", "600", ",", "890", ",", "780", ",", "915", ",", "915", ",", "1230", ",", "1302", ",", "922", ",", "845", ",", "923", ",", "1030", ",", "879", ",", "757", ",", "921", ",", "848", ",", "870", ",", "826", ",", "831", ",", "1005", ",", "1002", ",", "915", ",", "813", ",", "842", ",", "774"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.40169143896875*^9}, CellLabel-> "In[294]:=",ExpressionUUID->"e863c3c0-71d2-4e84-9fc8-ef4b646be8ba"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanDifferenceTest", "[", RowBox[{"ve\[RHacek]ejn\[YAcute]", ",", "soukrom\[YAcute]", ",", "0"}], "]"}]], "Input", CellChangeTimes->{{3.40169142475*^9, 3.401691438984375*^9}}, CellLabel-> "In[295]:=",ExpressionUUID->"b088ccc5-a131-4b9a-87a3-92a1a5436073"], Cell[BoxData[ RowBox[{"OneSidedPValue", "\[Rule]", "0.15302983513922749401395256912079745893`13.392496138786859"}]], "Output", CellChangeTimes->{3.793466579286186*^9, 3.794244407936198*^9, 3.8231890537979712`*^9}, CellLabel-> "Out[295]=",ExpressionUUID->"4cc91356-1bd8-4d2f-bec1-6aea9641148c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanDifferenceTest", "[", RowBox[{"ve\[RHacek]ejn\[YAcute]", ",", "soukrom\[YAcute]", ",", "0", ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.40169142475*^9, 3.401691438984375*^9}}, CellLabel-> "In[296]:=",ExpressionUUID->"8e8c93e1-7d8a-48a7-862e-2f8153133abe"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"MeanDiff\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"42.666666666666664`", "1.0417375685625654`", RowBox[{"StudentTDistribution", "[", FractionBox["24270270393203032", "828966180838793"], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"MeanDiff", "TestStat", "Distribution"}}]]]}], ",", RowBox[{ "OneSidedPValue", "\[Rule]", "0.15302983513922749401395256912079745893`13.392496138786859"}]}], "}"}]], "Output", CellChangeTimes->{3.7934665793209486`*^9, 3.794244407970975*^9, 3.8231890538458433`*^9}, CellLabel-> "Out[296]=",ExpressionUUID->"90a6d3ea-f77c-465e-b41d-f948c339a4eb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanDifferenceTest", "[", RowBox[{"ve\[RHacek]ejn\[YAcute]", ",", "soukrom\[YAcute]", ",", "0", ",", RowBox[{"EqualVariances", "->", "True"}], ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.401691424765625*^9, 3.401691438984375*^9}}, CellLabel-> "In[297]:=",ExpressionUUID->"02b85348-e77a-4045-9d9c-73f7c0816085"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"MeanDiff\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"42.666666666666664`", "0.9289666433953087`", RowBox[{"StudentTDistribution", "[", "35", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"MeanDiff", "TestStat", "Distribution"}}]]]}], ",", RowBox[{ "OneSidedPValue", "\[Rule]", "0.17963464058905851797978622457206963752`13.318860510926983"}]}], "}"}]], "Output", CellChangeTimes->{3.793466579361335*^9, 3.7942444080098395`*^9, 3.8231890538967657`*^9}, CellLabel-> "Out[297]=",ExpressionUUID->"f061c611-4a8e-4140-b000-93bca07083f8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanDifferenceTest", "[", RowBox[{"ve\[RHacek]ejn\[YAcute]", ",", "soukrom\[YAcute]", ",", "0", ",", RowBox[{"KnownVariance", "->", "130.5"}], ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.401691424765625*^9, 3.401691439*^9}, 3.7934670134706373`*^9}, CellLabel-> "In[298]:=",ExpressionUUID->"6fb96e5b-ea77-497b-a8fc-349037ddf61a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"MeanDiff\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"42.666666666666664`", "10.635140321497119`", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"MeanDiff", "TestStat", "Distribution"}}]]]}], ",", RowBox[{"OneSidedPValue", "\[Rule]", "1.0226032275657802`*^-26"}]}], "}"}]], "Output", CellChangeTimes->{3.7934665794010687`*^9, 3.793467555465122*^9, 3.7942444080465293`*^9, 3.8231890539486017`*^9}, CellLabel-> "Out[298]=",ExpressionUUID->"a1dbdb87-b88f-4c5a-9a31-7281378b505a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceRatioTest", "[", RowBox[{ "ve\[RHacek]ejn\[YAcute]", ",", " ", "soukrom\[YAcute]", ",", " ", "1"}], "]"}]], "Input", CellChangeTimes->{{3.401691424765625*^9, 3.401691439*^9}}, CellLabel-> "In[299]:=",ExpressionUUID->"e1196251-32d9-4760-a279-96b68a593b55"], Cell[BoxData[ RowBox[{"OneSidedPValue", "\[Rule]", "0.1285062738417079`"}]], "Output", CellChangeTimes->{3.79346657943796*^9, 3.794244408084426*^9, 3.8231890539994917`*^9}, CellLabel-> "Out[299]=",ExpressionUUID->"a3f439fc-9654-486a-9a93-c21042578fe9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceRatioTest", "[", RowBox[{ "ve\[RHacek]ejn\[YAcute]", ",", " ", "soukrom\[YAcute]", ",", " ", "1", ",", RowBox[{"FullReport", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.401691424765625*^9, 3.401691438890625*^9}}, CellLabel-> "In[300]:=",ExpressionUUID->"02178fca-476d-462d-a78c-3da7656d7da6"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"Ratio\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"0.5189992822798312`", "0.5189992822798312`", RowBox[{"FRatioDistribution", "[", RowBox[{"11", ",", "24"}], "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"Ratio", "TestStat", "Distribution"}}]]]}], ",", RowBox[{"OneSidedPValue", "\[Rule]", "0.1285062738417079`"}]}], "}"}]], "Output", CellChangeTimes->{3.79346657947593*^9, 3.7942444081246595`*^9, 3.8231890540490227`*^9}, CellLabel-> "Out[300]=",ExpressionUUID->"1539f966-1e46-4923-9d51-6e1e8981a27a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["p\[RHacek]\[IAcute]klad 1 (hladina v\[YAcute]znamnosti)", "Subsection", CellChangeTimes->{ 3.4001725270625*^9, 3.401691517796875*^9, 3.793466829000801*^9, 3.7934669094706335`*^9, 3.7976482133600955`*^9, {3.8231890969788055`*^9, 3.8231891001787586`*^9}},ExpressionUUID->"5c19e0aa-3d9d-4a9c-be10-\ 9e27b5070255"], Cell[BoxData[ RowBox[{ RowBox[{"dist", "=", RowBox[{"UniformDistribution", "[", RowBox[{"{", RowBox[{"95", ",", "105"}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.793467574070136*^9, 3.793467578220086*^9}}, CellLabel-> "In[301]:=",ExpressionUUID->"32669fe9-4f97-478d-a2a2-597f998738c7"], Cell[BoxData[ RowBox[{ RowBox[{"v\[YAcute]b\[EHacek]r", "=", RowBox[{"RandomReal", "[", RowBox[{"dist", ",", "20"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.40169147428125*^9, {3.793467616791052*^9, 3.793467634169919*^9}}, CellLabel-> "In[302]:=",ExpressionUUID->"47302877-719b-4b62-bb80-14bebeb38601"], Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input", CellLabel-> "In[303]:=",ExpressionUUID->"a5a3ea6a-4559-4420-b0fb-aa4572729fd8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanCI", "[", RowBox[{"v\[YAcute]b\[EHacek]r", ",", RowBox[{"KnownVariance", "->", RowBox[{"100", "/", "12"}]}]}], "]"}]], "Input", CellChangeTimes->{3.401691474296875*^9}, CellLabel-> "In[304]:=",ExpressionUUID->"4fdeef68-5255-4ff4-9a45-ffd85d40ba32"], Cell[BoxData[ RowBox[{"{", RowBox[{"99.44466875584176`", ",", "101.9749713796051`"}], "}"}]], "Output", CellChangeTimes->{ 3.7934665796915503`*^9, 3.793467592066287*^9, 3.79346764089373*^9, 3.794244408235056*^9, {3.797648231462468*^9, 3.79764826144226*^9}, 3.8231890542546115`*^9}, CellLabel-> "Out[304]=",ExpressionUUID->"f22be4d4-3330-44b9-bdfe-8cc509d13e79"] }, Open ]], Cell[BoxData[ RowBox[{"Confidence", ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "v\[YAcute]b\[EHacek]r", "}"}], ",", "\n", RowBox[{ RowBox[{"v\[YAcute]b\[EHacek]r", "=", RowBox[{"RandomReal", "[", RowBox[{"dist", ",", "20"}], "]"}]}], ";", "\n", "\t", RowBox[{"MeanCI", "[", RowBox[{"v\[YAcute]b\[EHacek]r", ",", RowBox[{"KnownVariance", "->", RowBox[{"100", "/", "12"}]}]}], "]"}]}]}], "\n", "\t", "]"}]}]], "Input", CellChangeTimes->{{3.4016914743125*^9, 3.401691474328125*^9}, 3.4016916055*^9, 3.793466829080835*^9, 3.7934669094706335`*^9, { 3.7934676506795397`*^9, 3.79346765503965*^9}}, CellLabel-> "In[305]:=",ExpressionUUID->"975c2466-ce8c-40ac-a5ed-2ecb9ea1fa75"], Cell[CellGroupData[{ Cell[BoxData["Confidence"], "Input", CellChangeTimes->{3.401691605515625*^9, 3.793466829091015*^9, 3.7934669094810753`*^9}, CellLabel-> "In[306]:=",ExpressionUUID->"53d2bcf8-eafd-4b8c-8c02-e6e52c09da6c"], Cell[BoxData[ RowBox[{"{", RowBox[{"98.05552636918733`", ",", "100.58582899295067`"}], "}"}]], "Output", CellChangeTimes->{3.793466579761312*^9, 3.793467662663237*^9, 3.7942444082989593`*^9, 3.797648271638274*^9, 3.8231890543443785`*^9}, CellLabel-> "Out[306]=",ExpressionUUID->"999216c2-f17a-4042-b579-eb4fb175900a"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"trials", "=", RowBox[{"Table", "[", RowBox[{"Confidence", ",", RowBox[{"{", "1000", "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{3.401691605515625*^9, 3.793466829091015*^9, 3.7934669094810753`*^9}, CellLabel-> "In[307]:=",ExpressionUUID->"c0fe7cc8-7d2f-4cb1-975b-df1daeaaacf2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Short", "[", RowBox[{"trials", ",", "5"}], "]"}]], "Input", CellLabel-> "In[308]:=",ExpressionUUID->"5ac713c5-9099-494d-86ce-b3c593fdfe95"], Cell[BoxData[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"97.91468752470325`", ",", "100.44499014846659`"}], "}"}], ",", RowBox[{"{", RowBox[{"99.61533731637901`", ",", "102.14563994014235`"}], "}"}], ",", RowBox[{"{", RowBox[{"98.45538842430284`", ",", "100.98569104806617`"}], "}"}], ",", RowBox[{"{", RowBox[{"99.39289808592626`", ",", "101.9232007096896`"}], "}"}], ",", RowBox[{"{", RowBox[{"98.45645333980235`", ",", "100.98675596356568`"}], "}"}], ",", RowBox[{"{", RowBox[{"98.11021758115666`", ",", "100.64052020492`"}], "}"}], ",", RowBox[{"{", RowBox[{"98.1827399059468`", ",", "100.71304252971014`"}], "}"}], ",", RowBox[{"{", RowBox[{"97.63748236597486`", ",", "100.1677849897382`"}], "}"}], ",", RowBox[{"\[LeftSkeleton]", "985", "\[RightSkeleton]"}], ",", RowBox[{"{", RowBox[{"98.56471413603359`", ",", "101.09501675979692`"}], "}"}], ",", RowBox[{"{", RowBox[{"98.36231901183615`", ",", "100.89262163559948`"}], "}"}], ",", RowBox[{"{", RowBox[{"99.38010473212701`", ",", "101.91040735589034`"}], "}"}], ",", RowBox[{"{", RowBox[{"98.69599828693596`", ",", "101.2263009106993`"}], "}"}], ",", RowBox[{"{", RowBox[{"98.94450853183132`", ",", "101.47481115559465`"}], "}"}], ",", RowBox[{"{", RowBox[{"98.69836977293836`", ",", "101.2286723967017`"}], "}"}], ",", RowBox[{"{", RowBox[{"99.21973112428284`", ",", "101.75003374804618`"}], "}"}]}], "}"}], Short[#, 5]& ]], "Output", CellChangeTimes->{3.793466579830906*^9, 3.793467677579567*^9, 3.794244409451147*^9, 3.7976482851828356`*^9, 3.8231890546500626`*^9}, CellLabel-> "Out[308]//Short=",ExpressionUUID->"636e3ad4-de44-4d8e-84b1-9591760bbf4b"] }, Open ]], Cell[BoxData[{ RowBox[{"Clear", "[", "f", "]"}], "\n", RowBox[{"\t", RowBox[{ RowBox[{"f", "[", "op_", "]"}], ":=", RowBox[{"Not", "[", RowBox[{ RowBox[{"op", "[", RowBox[{"[", "1", "]"}], "]"}], "<=", "100", "<=", RowBox[{"op", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}]}], "Input", CellLabel-> "In[309]:=",ExpressionUUID->"e1e823af-6a45-4a21-9889-831365847cd0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{"trials", ",", RowBox[{ RowBox[{"f", "[", "#", "]"}], "&"}]}], "]"}], "]"}]], "Input", CellLabel-> "In[311]:=",ExpressionUUID->"13f87062-dba5-40b1-98c6-d80108dd13a7"], Cell[BoxData["65"], "Output", CellChangeTimes->{3.7934665799872565`*^9, 3.7934676872392473`*^9, 3.794244409595871*^9, 3.797648295314047*^9, 3.8231890547443266`*^9}, CellLabel-> "Out[311]=",ExpressionUUID->"ccb5487c-4def-4fcc-9bbe-50fad59d913e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["p\[RHacek]\[IAcute]klad 2 ", "Subsection", CellChangeTimes->{3.4001725270625*^9, 3.401691687828125*^9},ExpressionUUID->"7775ed6c-ef5e-4d6a-a97c-\ 49eb13695c25"], Cell[BoxData[ RowBox[{ RowBox[{"dist", "=", RowBox[{"NormalDistribution", "[", RowBox[{"10", ",", "2"}], "]"}]}], ";"}]], "Input", CellLabel-> "In[312]:=",ExpressionUUID->"c155368a-9565-4241-90f6-3bf86c93af67"], Cell[BoxData[ RowBox[{ RowBox[{"v\[YAcute]b\[EHacek]r", "=", RowBox[{"RandomReal", "[", RowBox[{"dist", ",", "20"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.401691474328125*^9, {3.793467701709613*^9, 3.7934677025897474`*^9}}, CellLabel-> "In[313]:=",ExpressionUUID->"2b88f5e1-7792-4bee-a5aa-bf0039a6e126"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanTest", "[", RowBox[{"v\[YAcute]b\[EHacek]r", ",", "10", ",", RowBox[{"TwoSided", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->{3.40169147434375*^9}, CellLabel-> "In[314]:=",ExpressionUUID->"97e038d8-cff2-458d-8c27-e2323c9c3e92"], Cell[BoxData[ RowBox[{"TwoSidedPValue", "\[Rule]", "0.04002812975078127435014041074005002679`15.19143595852637"}]], "Output", CellChangeTimes->{3.7934665801909494`*^9, 3.793467710274293*^9, 3.7942443791741304`*^9, 3.7942444097089024`*^9, 3.797648309960533*^9, 3.823189054944322*^9}, CellLabel-> "Out[314]=",ExpressionUUID->"1a76f5a5-3927-46ff-9eba-ebfc9d135fe8"] }, Open ]], Cell[BoxData[ RowBox[{"hypothesis", ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "v\[YAcute]b\[EHacek]r", "}"}], ",", "\n", "\t", RowBox[{ RowBox[{"v\[YAcute]b\[EHacek]r", "=", RowBox[{"RandomReal", "[", RowBox[{"dist", ",", "20"}], "]"}]}], ";", "\n", "\t", RowBox[{ RowBox[{"MeanTest", "[", RowBox[{"v\[YAcute]b\[EHacek]r", ",", "10", ",", RowBox[{"TwoSided", "->", "True"}]}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "\n", "\t", "]"}]}]], "Input", CellChangeTimes->{{3.40169147434375*^9, 3.401691474359375*^9}, { 3.793467718499746*^9, 3.7934677201595306`*^9}}, CellLabel-> "In[315]:=",ExpressionUUID->"6390d85b-a301-4f87-b329-17380dee523b"], Cell[CellGroupData[{ Cell[BoxData["hypothesis"], "Input", CellLabel-> "In[316]:=",ExpressionUUID->"eaeb55f0-748f-4672-9ee8-f26bad372988"], Cell[BoxData["0.8339224617321537664906776721243788768`13.253695968950572"], \ "Output", CellChangeTimes->{3.793466580274891*^9, 3.793467725175328*^9, 3.79424440978205*^9, 3.797648320756195*^9, 3.8231890550320883`*^9}, CellLabel-> "Out[316]=",ExpressionUUID->"be9f319e-d9c5-478d-9d30-a1f0a3f07028"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"trials", "=", RowBox[{"Table", "[", RowBox[{"hypothesis", ",", RowBox[{"{", "1000", "}"}]}], "]"}]}], ";"}]], "Input", CellLabel-> "In[317]:=",ExpressionUUID->"67bf8400-6ce8-4dd6-8987-528a5a317902"], Cell[BoxData[ RowBox[{ RowBox[{"type1errors", "=", RowBox[{"Select", "[", RowBox[{"trials", ",", RowBox[{ RowBox[{"#", "<=", "0.05"}], "&"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{3.794244352209072*^9}, CellLabel-> "In[318]:=",ExpressionUUID->"dd0b0f87-8a28-459a-bd35-9d5b66f12bec"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "type1errors", "]"}]], "Input", CellLabel-> "In[319]:=",ExpressionUUID->"1ce224b5-109e-4338-80c9-4de2b0746a51"], Cell[BoxData["53"], "Output", CellChangeTimes->{3.793466580430952*^9, 3.79424440988522*^9, 3.7976483349327435`*^9, 3.823189055637182*^9}, CellLabel-> "Out[319]=",ExpressionUUID->"4d634623-36bf-48cb-bf67-c35724df9ee8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["p\[RHacek]\[IAcute]klad 3", "Subsection", CellChangeTimes->{ 3.400172527078125*^9, {3.40169166246875*^9, 3.401691664859375*^9}},ExpressionUUID->"f43202be-3604-4cb9-9fa5-\ f610f879802b"], Cell[BoxData[ RowBox[{ RowBox[{"dist", "=", RowBox[{"NormalDistribution", "[", RowBox[{"10", ",", "2"}], "]"}]}], ";"}]], "Input", CellLabel-> "In[322]:=",ExpressionUUID->"df42444b-416c-4885-b9fa-acf632c3075e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"v\[YAcute]b\[EHacek]r", "=", RowBox[{"RandomReal", "[", RowBox[{"dist", ",", "20"}], "]"}]}], ";"}], "\n", RowBox[{"MeanTest", "[", RowBox[{"v\[YAcute]b\[EHacek]r", ",", "10", ",", RowBox[{"TwoSided", "->", "True"}], ",", RowBox[{"SignificanceLevel", "->", "0.05"}]}], "]"}], "\n", RowBox[{"\t"}]}], "Input", CellChangeTimes->{{3.401691474359375*^9, 3.401691474375*^9}, { 3.793467748509633*^9, 3.7934677540897517`*^9}}, CellLabel-> "In[323]:=",ExpressionUUID->"d2dd8e45-f543-4c9a-b67b-238543bd7d65"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "TwoSidedPValue", "\[Rule]", "0.66409210066656842570552514311141441142`13.483576156910896"}], ",", RowBox[{"\<\"Fail to reject null hypothesis at significance level\"\>", "\[Rule]", "0.05`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7934665806813107`*^9, {3.7934677501421213`*^9, 3.79346775483885*^9}, 3.794244410098771*^9, 3.8231890559751844`*^9}, CellLabel-> "Out[324]=",ExpressionUUID->"df930e32-42dd-4ec9-b92f-1c5af54bed5c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"test1", "=", RowBox[{"{", RowBox[{ "10.3678093088602585`", ",", "8.91938001579609718`", ",", "11.1405043607171982`", ",", "9.65520122954054293`", ",", "11.6910511224067814`", ",", "11.3128496512908727`", ",", "12.8341203965107775`", ",", "13.3692122308151417`", ",", "6.11248160093066239`", ",", "10.2564169162870411`", ",", "12.1593677044904002`", ",", "12.6098484982106961`", ",", "10.3777883765154799`", ",", "13.0311071243430509`", ",", "11.2587564986734411`", ",", "9.34378653561269345`", ",", "8.86869004925809534`", ",", "10.1443609825940206`", ",", "10.2901512384273496`", ",", "11.4721929304457437`"}], "}"}]}]], "Input", CellLabel-> "In[325]:=",ExpressionUUID->"1e2a6033-69c6-4c1a-93b9-1f344b4483e5"], Cell[BoxData[ RowBox[{"{", RowBox[{ "10.367809308860258`", ",", "8.919380015796097`", ",", "11.140504360717198`", ",", "9.655201229540543`", ",", "11.691051122406781`", ",", "11.312849651290872`", ",", "12.834120396510777`", ",", "13.369212230815142`", ",", "6.112481600930662`", ",", "10.25641691628704`", ",", "12.1593677044904`", ",", "12.609848498210695`", ",", "10.377788376515479`", ",", "13.03110712434305`", ",", "11.25875649867344`", ",", "9.343786535612693`", ",", "8.868690049258095`", ",", "10.144360982594021`", ",", "10.290151238427349`", ",", "11.472192930445743`"}], "}"}]], "Output", CellChangeTimes->{3.7934665807202997`*^9, 3.7934677749335613`*^9, 3.7942444101316566`*^9, 3.8231890560694504`*^9}, CellLabel-> "Out[325]=",ExpressionUUID->"faf18adb-2f6a-453f-a7db-793537c7c59e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\t", RowBox[{"MeanTest", "[", RowBox[{"test1", ",", "10", ",", RowBox[{"TwoSided", "->", "True"}], ",", RowBox[{"FullReport", "->", "True"}], ",", RowBox[{"SignificanceLevel", "->", "0.05"}]}], "]"}]}]], "Input", CellLabel-> "In[326]:=",ExpressionUUID->"563a0761-4086-403f-b695-e5807d17fc8e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"Mean\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"10.760753838586314`", "1.970052623016308`", RowBox[{"StudentTDistribution", "[", "19", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"Mean", "TestStat", "Distribution"}}]]]}], ",", RowBox[{ "TwoSidedPValue", "\[Rule]", "0.06358436891423273232005537338227585789`15.188892954281554"}], ",", RowBox[{"\<\"Fail to reject null hypothesis at significance level\"\>", "\[Rule]", "0.05`"}]}], "}"}]], "Output", CellChangeTimes->{3.793466580764015*^9, 3.7934677798156905`*^9, 3.7942444101722927`*^9, 3.823189056126301*^9}, CellLabel-> "Out[326]=",ExpressionUUID->"deed8c26-cf31-4d3b-ba8c-7ef76dd37a09"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"test2", "=", RowBox[{"{", RowBox[{ "8.72074558601316063`", ",", "13.235996605267466`", ",", "9.6912207326462596`", ",", "10.4439333021131419`", ",", "13.5107640359500069`", ",", "12.2386770806477795`", ",", "9.29320320926968257`", ",", "11.0045287596960039`", ",", "13.455966917823241`", ",", "12.1223303854814656`", ",", "7.54842146613729791`", ",", "12.6314128296657068`", ",", "8.9797811423077114`", ",", "8.69410551953224697`", ",", "10.8855650580434669`", ",", "13.6241013514564834`", ",", "9.2188421660713864`", ",", "11.3376961966449907`", ",", "10.2068620523474251`", ",", "8.45174197055607123`"}], "}"}]}]], "Input", CellLabel-> "In[327]:=",ExpressionUUID->"ca33e2cd-3f61-46c9-8b00-b99df550b0c2"], Cell[BoxData[ RowBox[{"{", RowBox[{ "8.72074558601316`", ",", "13.235996605267466`", ",", "9.69122073264626`", ",", "10.443933302113141`", ",", "13.510764035950007`", ",", "12.23867708064778`", ",", "9.293203209269683`", ",", "11.004528759696004`", ",", "13.455966917823242`", ",", "12.122330385481465`", ",", "7.548421466137298`", ",", "12.631412829665706`", ",", "8.979781142307711`", ",", "8.694105519532247`", ",", "10.885565058043467`", ",", "13.624101351456483`", ",", "9.218842166071386`", ",", "11.337696196644991`", ",", "10.206862052347425`", ",", "8.451741970556071`"}], "}"}]], "Output", CellChangeTimes->{3.793466580801179*^9, 3.7934677860910845`*^9, 3.7942444102147117`*^9, 3.8231890561737576`*^9}, CellLabel-> "Out[327]=",ExpressionUUID->"34f3c1e3-4825-4b87-8eaa-7b36862b2dda"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\t", RowBox[{"MeanTest", "[", RowBox[{"test2", ",", "10", ",", RowBox[{"TwoSided", "->", "True"}], ",", RowBox[{"FullReport", "->", "True"}], ",", RowBox[{"SignificanceLevel", "->", "0.05"}]}], "]"}]}]], "Input", CellLabel-> "In[328]:=",ExpressionUUID->"83516472-e8c6-4735-ab38-b3f40beb6867"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"FullReport", "\[Rule]", TagBox[ TagBox[GridBox[{ { TagBox["\<\"Mean\"\>", HoldForm], TagBox["\<\"TestStat\"\>", HoldForm], TagBox["\<\"Distribution\"\>", HoldForm]}, {"10.76479481838355`", "1.7764097127827894`", RowBox[{"StudentTDistribution", "[", "19", "]"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {None, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"Mean", "TestStat", "Distribution"}}]]]}], ",", RowBox[{ "TwoSidedPValue", "\[Rule]", "0.09168176391303817630396691917139950966`15.186872299243806"}], ",", RowBox[{"\<\"Fail to reject null hypothesis at significance level\"\>", "\[Rule]", "0.05`"}]}], "}"}]], "Output", CellChangeTimes->{3.793466580844161*^9, 3.793467790175494*^9, 3.7942444102521567`*^9, 3.823189056223629*^9}, CellLabel-> "Out[328]=",ExpressionUUID->"450d58e4-4e03-4571-adff-a73411fa948e"] }, Open ]] }, Open ]] }, WindowSize->{1328, 757}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 174, 2, 53, "Subsection",ExpressionUUID->"f274d1e6-96f6-4c61-94c8-f66f697fff31"], Cell[757, 26, 842, 16, 48, "Input",ExpressionUUID->"36a22dbb-8ffa-4721-a3ab-6700ca3b8227"], Cell[CellGroupData[{ Cell[1624, 46, 412, 9, 28, "Input",ExpressionUUID->"f0fadcde-baaa-4f28-8b00-f366b2708422"], Cell[2039, 57, 457, 10, 21, "Message",ExpressionUUID->"236f9e02-bf60-4277-9d44-f6b2c085f487"], Cell[2499, 69, 381, 6, 32, "Output",ExpressionUUID->"ab8f8d80-fb06-4a9e-a14a-7777a1c6d45a"] }, Open ]], Cell[CellGroupData[{ Cell[2917, 80, 381, 8, 28, "Input",ExpressionUUID->"5722db48-544b-4dbb-9396-24244af6d5f3"], Cell[3301, 90, 1598, 43, 49, "Output",ExpressionUUID->"c53f3aae-06c4-4859-b06d-0a079fee2947"] }, Open ]], Cell[CellGroupData[{ Cell[4936, 138, 434, 9, 28, "Input",ExpressionUUID->"c1b9a106-86b7-485c-8fd7-a91a718c1eaa"], Cell[5373, 149, 1677, 43, 49, "Output",ExpressionUUID->"0c8671c2-c181-4de2-b818-464a182d276f"] }, Open ]], Cell[CellGroupData[{ Cell[7087, 197, 232, 6, 28, "Input",ExpressionUUID->"7eb049bf-73cb-45dc-b9d0-2f611d2e24b6"], Cell[7322, 205, 283, 5, 32, "Output",ExpressionUUID->"53f3f620-c296-40dc-9b0e-ebb8cff4441b"] }, Open ]], Cell[CellGroupData[{ Cell[7642, 215, 261, 6, 28, "Input",ExpressionUUID->"069ed283-3d22-4ef4-b08b-edebcc054e3c"], Cell[7906, 223, 1571, 43, 49, "Output",ExpressionUUID->"009822da-0ff9-4c00-8959-4193aa9c888e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9526, 272, 176, 2, 53, "Subsection",ExpressionUUID->"7752bab7-4742-4636-ac94-ea2a2b688bcd"], Cell[9705, 276, 842, 16, 48, "Input",ExpressionUUID->"f06af577-bbfe-4934-b737-8cd6b52fcdbd"], Cell[CellGroupData[{ Cell[10572, 296, 311, 7, 28, "Input",ExpressionUUID->"ec2d8b80-eddf-4e62-9381-63ce1e632543"], Cell[10886, 305, 822, 19, 49, "Output",ExpressionUUID->"30b19b05-d18e-40f5-bb3a-22e0271f670c"] }, Open ]], Cell[CellGroupData[{ Cell[11745, 329, 364, 8, 28, "Input",ExpressionUUID->"713bf269-1b17-45e2-8221-10268df3e723"], Cell[12112, 339, 354, 6, 32, "Output",ExpressionUUID->"b9336fcc-81fe-4a78-8604-71d447322d1c"] }, Open ]], Cell[CellGroupData[{ Cell[12503, 350, 325, 7, 28, "Input",ExpressionUUID->"9d1e6443-14f0-4521-98c2-2952764527ad"], Cell[12831, 359, 296, 5, 32, "Output",ExpressionUUID->"4b8d6e53-7cfe-43c6-adc0-a0ba60119b24"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13176, 370, 243, 5, 53, "Subsection",ExpressionUUID->"07271d10-5ffc-43d8-ad7b-4e6c2417b74c"], Cell[13422, 377, 405, 10, 28, "Input",ExpressionUUID->"8657eeca-34fd-4bd7-aadc-7c2dd79bfe44"], Cell[13830, 389, 569, 12, 28, "Input",ExpressionUUID->"1f4e7eda-759f-4d6b-9ecb-3619858e9493"], Cell[CellGroupData[{ Cell[14424, 405, 380, 7, 28, "Input",ExpressionUUID->"8a4db3ce-541f-4f3c-ab25-55317b77e8a9"], Cell[14807, 414, 494, 12, 21, "Message",ExpressionUUID->"12422f98-49c8-4727-98d1-4fb1206ed9d7"], Cell[15304, 428, 1636, 43, 62, "Output",ExpressionUUID->"ec55e5a7-dfd4-4686-a7c6-d332219bc2a8"] }, Open ]], Cell[CellGroupData[{ Cell[16977, 476, 568, 12, 28, "Input",ExpressionUUID->"11b37b80-a4a5-4e48-a0e1-04aab4e19904"], Cell[17548, 490, 1031, 21, 83, "Output",ExpressionUUID->"310a8a5e-67c6-4342-bb5b-03231997e22d"] }, Open ]], Cell[CellGroupData[{ Cell[18616, 516, 432, 8, 28, "Input",ExpressionUUID->"ac78a75c-1dbf-4b72-bd55-f1782856ebc7"], Cell[19051, 526, 1554, 42, 49, "Output",ExpressionUUID->"f05ff970-ec6a-41bc-ba99-e8bea78f0d78"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20654, 574, 244, 5, 53, "Subsection",ExpressionUUID->"bbb743e9-11e5-4a57-b1f1-abd2d3fa46b6"], Cell[20901, 581, 404, 10, 28, "Input",ExpressionUUID->"bd5f0a27-7d8c-44b4-bd95-bd6c8e21ea90"], Cell[21308, 593, 570, 12, 28, "Input",ExpressionUUID->"4d4a02a8-5274-4ef1-82d2-5199943f07df"], Cell[CellGroupData[{ Cell[21903, 609, 378, 9, 28, "Input",ExpressionUUID->"19c122d9-5bbb-4eed-a2a7-51d269dfd42f"], Cell[22284, 620, 322, 6, 32, "Output",ExpressionUUID->"1d95589c-b97b-49a8-8781-f4e692f3689e"] }, Open ]], Cell[CellGroupData[{ Cell[22643, 631, 412, 9, 28, "Input",ExpressionUUID->"76d4671c-001f-4f3c-879b-714acceb5765"], Cell[23058, 642, 820, 19, 49, "Output",ExpressionUUID->"781929f7-ab9c-436d-8802-a9b057703af2"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23927, 667, 92, 0, 53, "Subsection",ExpressionUUID->"fcb64779-5b55-4fff-9a88-8adcfb714f24"], Cell[24022, 669, 838, 15, 48, "Input",ExpressionUUID->"3d398e62-de5a-4a51-97cc-47149fe23001"], Cell[CellGroupData[{ Cell[24885, 688, 412, 9, 28, "Input",ExpressionUUID->"2b902631-cc10-4dae-b402-f1902a87114d"], Cell[25300, 699, 1224, 25, 126, "Output",ExpressionUUID->"87305b60-5be8-4d05-b591-9046f5370519"] }, Open ]], Cell[CellGroupData[{ Cell[26561, 729, 276, 6, 28, "Input",ExpressionUUID->"d38bfd24-7707-43fc-bda9-6059e87c3957"], Cell[26840, 737, 295, 5, 32, "Output",ExpressionUUID->"e6d54741-68e2-4323-aa5d-fd68e7498849"] }, Open ]], Cell[CellGroupData[{ Cell[27172, 747, 354, 7, 28, "Input",ExpressionUUID->"c686d0bc-5dbe-42b7-ad55-6ee0458fcfdb"], Cell[27529, 756, 843, 20, 49, "Output",ExpressionUUID->"8ecfc569-a4e2-4ea8-b0c0-7de6ff00bb4c"] }, Open ]], Cell[CellGroupData[{ Cell[28409, 781, 222, 5, 28, "Input",ExpressionUUID->"cb9cc74f-498b-4794-8f36-f336bab0b7ad"], Cell[28634, 788, 1562, 43, 49, "Output",ExpressionUUID->"83e602fb-7600-4ee1-96fa-822a249f97e4"] }, Open ]], Cell[CellGroupData[{ Cell[30233, 836, 175, 4, 28, "Input",ExpressionUUID->"d58f2f84-13a0-49ba-b57d-0351c1ec2da4"], Cell[30411, 842, 324, 6, 32, "Output",ExpressionUUID->"8bc67ac4-39c5-4aa1-b838-8ba912d35137"] }, Open ]], Cell[CellGroupData[{ Cell[30772, 853, 170, 4, 28, "Input",ExpressionUUID->"7f463542-d8f4-4419-b39a-cbb2c667e478"], Cell[30945, 859, 236, 4, 32, "Output",ExpressionUUID->"5b7e3990-ea32-47b2-a352-c69760fcd7bb"] }, Open ]], Cell[31196, 866, 109, 2, 28, "Input",ExpressionUUID->"9e8abc6e-a491-4e69-8af5-71f53380fdc3"], Cell[CellGroupData[{ Cell[31330, 872, 220, 5, 28, "Input",ExpressionUUID->"9f0aa066-2940-42e0-bf1a-2a8c3bcec38c"], Cell[31553, 879, 328, 6, 32, "Output",ExpressionUUID->"5fed4457-61bd-4c03-acef-9a9a3ff4073e"] }, Open ]], Cell[CellGroupData[{ Cell[31918, 890, 134, 3, 28, "Input",ExpressionUUID->"35d33a34-a732-4abe-b2d4-b6e29c800505"], Cell[32055, 895, 209, 4, 32, "Output",ExpressionUUID->"59a24995-5e9d-4d69-aef8-4a7ac7508017"] }, Open ]], Cell[CellGroupData[{ Cell[32301, 904, 148, 3, 28, "Input",ExpressionUUID->"fdcfebd5-7fe5-448f-8b0e-f094e43169ec"], Cell[32452, 909, 205, 4, 32, "Output",ExpressionUUID->"b60f2dee-eefb-4324-8a42-1e1fdbfa8d0b"] }, Open ]], Cell[CellGroupData[{ Cell[32694, 918, 183, 4, 28, "Input",ExpressionUUID->"dad26b1a-d5db-46e0-81da-9db76d9b5cee"], Cell[32880, 924, 221, 4, 32, "Output",ExpressionUUID->"8a66b1f9-4b8a-42a5-922b-fae756c4f253"] }, Open ]], Cell[33116, 931, 1106, 34, 28, "Input",ExpressionUUID->"786f0139-acca-4a57-b539-28676fc4ff04"], Cell[CellGroupData[{ Cell[34247, 969, 264, 6, 28, "Input",ExpressionUUID->"18fa1027-8ca0-40f1-a666-a69869810b91"], Cell[34514, 977, 231, 4, 32, "Output",ExpressionUUID->"4ceb4713-cb9e-4e81-95e3-1d1b3e46df1c"] }, Open ]], Cell[CellGroupData[{ Cell[34782, 986, 240, 6, 28, "Input",ExpressionUUID->"df9cd10b-1ed9-464d-a536-27408a9fbb99"], Cell[35025, 994, 246, 4, 32, "Output",ExpressionUUID->"a9102b81-8814-4d33-b6f8-e62110008c79"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35320, 1004, 92, 0, 53, "Subsection",ExpressionUUID->"a134fd9b-6fbf-4592-bff0-9dae73fa8513"], Cell[35415, 1006, 650, 13, 48, "Input",ExpressionUUID->"163b2bf7-1283-4d72-b242-6f3d6224473a"], Cell[CellGroupData[{ Cell[36090, 1023, 175, 4, 28, "Input",ExpressionUUID->"b5e72f7b-54d3-48ec-a1ed-c3b82b57f1d3"], Cell[36268, 1029, 330, 6, 32, "Output",ExpressionUUID->"6e07e062-07c8-4f44-b66c-ae89e3879e1d"] }, Open ]], Cell[CellGroupData[{ Cell[36635, 1040, 229, 5, 28, "Input",ExpressionUUID->"d9fbc2bc-ec39-4e82-b2c7-e725644ea4f0"], Cell[36867, 1047, 479, 11, 32, "Output",ExpressionUUID->"470d38fd-afed-4515-852a-fa672d41b19b"] }, Open ]], Cell[CellGroupData[{ Cell[37383, 1063, 222, 5, 28, "Input",ExpressionUUID->"2de53307-02af-4175-a7a7-79e1c0eef0ba"], Cell[37608, 1070, 1567, 43, 49, "Output",ExpressionUUID->"705f6fbf-801e-4490-8a4d-37f17b4628ce"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[39224, 1119, 88, 0, 53, "Subsection",ExpressionUUID->"a50a0a68-5f6f-4a52-81b8-9313d79eff2f"], Cell[39315, 1121, 289, 8, 28, "Input",ExpressionUUID->"ca696ebf-b396-44df-9859-fe800d09be98"], Cell[39607, 1131, 300, 8, 28, "Input",ExpressionUUID->"e2b1bb68-8f32-4083-85c5-7c4dc9a0ce12"], Cell[CellGroupData[{ Cell[39932, 1143, 236, 5, 28, "Input",ExpressionUUID->"b36fee7d-8035-4c8e-9300-5dc6dd0456fc"], Cell[40171, 1150, 1631, 45, 62, "Output",ExpressionUUID->"8439fe26-39e2-4311-8ab1-ebe5b4fe9c85"] }, Open ]], Cell[CellGroupData[{ Cell[41839, 1200, 196, 5, 28, "Input",ExpressionUUID->"287854d1-31b2-4327-b2d0-45abe937e004"], Cell[42038, 1207, 227, 5, 55, "Output",ExpressionUUID->"5f312f66-7cd2-4d63-8831-a68a607b3ee6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[42314, 1218, 192, 2, 53, "Subsection",ExpressionUUID->"a04cc560-4f34-46a6-9b7a-ccfd9267bdae"], Cell[42509, 1222, 406, 10, 28, "Input",ExpressionUUID->"077283de-b63a-4fcb-85f0-cb6468917c5b"], Cell[42918, 1234, 570, 12, 28, "Input",ExpressionUUID->"eeb508f5-2c71-4194-a4d9-f4a6cf7545d8"], Cell[CellGroupData[{ Cell[43513, 1250, 292, 6, 28, "Input",ExpressionUUID->"f808dceb-9bf9-4cdd-a37c-144581ab8012"], Cell[43808, 1258, 302, 6, 32, "Output",ExpressionUUID->"692551bf-b85f-42c0-9d0f-57d4164a8bed"] }, Open ]], Cell[CellGroupData[{ Cell[44147, 1269, 336, 6, 28, "Input",ExpressionUUID->"08f53ec1-4ad7-4160-96ce-1f8a03ecd987"], Cell[44486, 1277, 1590, 43, 62, "Output",ExpressionUUID->"57b1c579-d48b-45b6-8223-af039a19d35d"] }, Open ]], Cell[CellGroupData[{ Cell[46113, 1325, 387, 7, 28, "Input",ExpressionUUID->"2ba95b89-1948-41d3-b17d-d97394fc859b"], Cell[46503, 1334, 1530, 42, 49, "Output",ExpressionUUID->"7ee752be-0c73-43d1-a135-68b8803e7529"] }, Open ]], Cell[CellGroupData[{ Cell[48070, 1381, 666, 12, 48, "Input",ExpressionUUID->"42318b6f-e1b2-43bf-a283-721b32817974"], Cell[48739, 1395, 267, 7, 84, "Output",ExpressionUUID->"75874376-0b36-4a74-86b1-13836c74f2ac"] }, Open ]], Cell[CellGroupData[{ Cell[49043, 1407, 137, 3, 28, "Input",ExpressionUUID->"5c3fb7fe-8bf0-4379-a93e-8e4ffcf5cdf5"], Cell[49183, 1412, 218, 4, 32, "Output",ExpressionUUID->"23209590-7341-4039-bd04-222f5f0db16b"] }, Open ]], Cell[CellGroupData[{ Cell[49438, 1421, 415, 8, 28, "Input",ExpressionUUID->"e04dee8c-eb3f-4014-9ec9-fe01a5d9d6b0"], Cell[49856, 1431, 1540, 41, 49, "Output",ExpressionUUID->"e0e8511a-a832-4c64-a46a-d6a2e83ce6af"] }, Open ]], Cell[CellGroupData[{ Cell[51433, 1477, 304, 7, 28, "Input",ExpressionUUID->"4a0581f1-ceba-42a8-81e6-b50fba7f5cce"], Cell[51740, 1486, 457, 11, 21, "Message",ExpressionUUID->"1801ab8e-c9cd-4fc8-8b7b-924a9e748d59"], Cell[52200, 1499, 263, 5, 32, "Output",ExpressionUUID->"e13df8ea-65b2-49f4-a0f9-d06121c0f44a"] }, Open ]], Cell[CellGroupData[{ Cell[52500, 1509, 348, 7, 28, "Input",ExpressionUUID->"16785f00-dfec-4ffc-a109-c6d5dd95ca26"], Cell[52851, 1518, 1507, 41, 49, "Output",ExpressionUUID->"6cd1db1a-1318-412e-b7cd-2a4bcf2f087d"] }, Open ]], Cell[54373, 1562, 563, 12, 28, "Input",ExpressionUUID->"424a7d1d-1ad1-4f2f-8326-e7b460803ba4"], Cell[CellGroupData[{ Cell[54961, 1578, 189, 4, 28, "Input",ExpressionUUID->"3db418b6-43ac-4071-829c-cb04eaa107de"], Cell[55153, 1584, 217, 4, 32, "Output",ExpressionUUID->"763e147e-fb8c-412a-ae3a-af32dfd6174c"] }, Open ]], Cell[55385, 1591, 841, 16, 48, "Input",ExpressionUUID->"6ad79d9b-fd8c-40eb-8c2e-b9784253c5a4"], Cell[CellGroupData[{ Cell[56251, 1611, 186, 4, 28, "Input",ExpressionUUID->"451cca4a-f9c2-44a6-877e-d3f4a1b64f67"], Cell[56440, 1617, 221, 4, 32, "Output",ExpressionUUID->"db022fcc-997b-424c-93ba-925fd3ff1fd0"] }, Open ]], Cell[CellGroupData[{ Cell[56698, 1626, 259, 6, 28, "Input",ExpressionUUID->"12d42ea4-4cf0-47de-950c-7bd6be12f6ee"], Cell[56960, 1634, 306, 6, 32, "Output",ExpressionUUID->"4cd27059-3705-48ff-9877-ba5f5f5f0930"] }, Open ]], Cell[CellGroupData[{ Cell[57303, 1645, 313, 7, 28, "Input",ExpressionUUID->"4cfc2cbf-cc76-44c6-b007-860b5cb12212"], Cell[57619, 1654, 451, 11, 32, "Output",ExpressionUUID->"1f6d5126-f697-43ef-be02-0df0d431ac6f"] }, Open ]], Cell[CellGroupData[{ Cell[58107, 1670, 306, 7, 28, "Input",ExpressionUUID->"4feb2bfd-b4d2-494b-aca3-df3c021d762a"], Cell[58416, 1679, 1547, 43, 49, "Output",ExpressionUUID->"cc8f251d-40a4-4d13-ad75-2c929ad83d6e"] }, Open ]], Cell[CellGroupData[{ Cell[60000, 1727, 381, 8, 28, "Input",ExpressionUUID->"7f98f1a1-62a8-4ce5-b51d-a6bad7335c1c"], Cell[60384, 1737, 1553, 42, 49, "Output",ExpressionUUID->"a5e15f0b-36d6-4aab-8070-a0493d92c3fc"] }, Open ]], Cell[CellGroupData[{ Cell[61974, 1784, 314, 7, 28, "Input",ExpressionUUID->"f06ef998-d01e-4c30-827a-a0abfcbe8baa"], Cell[62291, 1793, 457, 11, 32, "Output",ExpressionUUID->"c532d350-f11e-41bf-8968-dc3b870ab08d"] }, Open ]], Cell[CellGroupData[{ Cell[62785, 1809, 361, 8, 28, "Input",ExpressionUUID->"cc50839d-5c62-47f3-9b13-25bd9e657acd"], Cell[63149, 1819, 1649, 44, 49, "Output",ExpressionUUID->"c7b92604-ce88-4b8e-b819-4872f29b2200"] }, Open ]], Cell[CellGroupData[{ Cell[64835, 1868, 429, 9, 28, "Input",ExpressionUUID->"b7df4b09-b07d-48b8-8b75-e1cb03e2bb92"], Cell[65267, 1879, 1655, 43, 49, "Output",ExpressionUUID->"098bb458-44bc-4c71-976a-2f56562cfafa"] }, Open ]], Cell[CellGroupData[{ Cell[66959, 1927, 194, 4, 28, "Input",ExpressionUUID->"b3b09957-66f2-432b-a38d-4f5036b7291d"], Cell[67156, 1933, 223, 4, 32, "Output",ExpressionUUID->"080c07c0-b866-458a-922a-8083ecfc515b"] }, Open ]], Cell[CellGroupData[{ Cell[67416, 1942, 263, 6, 28, "Input",ExpressionUUID->"52bd94df-6f4b-4601-a5d5-ecc56e4d1616"], Cell[67682, 1950, 454, 11, 32, "Output",ExpressionUUID->"5dbba1a3-8361-42f9-a7de-e238d89337e0"] }, Open ]], Cell[CellGroupData[{ Cell[68173, 1966, 308, 7, 28, "Input",ExpressionUUID->"0821cf9c-4755-4a1b-a30c-48233d3d11af"], Cell[68484, 1975, 453, 11, 32, "Output",ExpressionUUID->"32bba484-5921-4765-87ec-393096824986"] }, Open ]], Cell[CellGroupData[{ Cell[68974, 1991, 308, 7, 28, "Input",ExpressionUUID->"6853c5a9-35b0-4de9-9630-0e4b39efd0ad"], Cell[69285, 2000, 454, 11, 32, "Output",ExpressionUUID->"5b82a7f5-5066-4268-9530-36f938acb36a"] }, Open ]], Cell[CellGroupData[{ Cell[69776, 2016, 361, 8, 28, "Input",ExpressionUUID->"7f2402cf-e169-4176-a320-1ccee910fa01"], Cell[70140, 2026, 1653, 44, 49, "Output",ExpressionUUID->"11f75b36-69a4-42bb-afcd-c3432f3211e6"] }, Open ]], Cell[CellGroupData[{ Cell[71830, 2075, 191, 4, 28, "Input",ExpressionUUID->"d6d58450-6ef3-47cd-b2e9-1f4381cac62b"], Cell[72024, 2081, 222, 4, 32, "Output",ExpressionUUID->"0d5237a7-0f20-4491-bbd4-55f3e89f6a98"] }, Open ]], Cell[CellGroupData[{ Cell[72283, 2090, 251, 5, 28, "Input",ExpressionUUID->"062830db-f21c-495d-af68-b406d54f4763"], Cell[72537, 2097, 244, 4, 32, "Output",ExpressionUUID->"f5e399d3-7db9-4d5e-8c47-9c40cc7e5aaa"] }, Open ]], Cell[CellGroupData[{ Cell[72818, 2106, 306, 7, 28, "Input",ExpressionUUID->"936f9b9b-1edc-4af0-a9b5-7ee3cd396d2a"], Cell[73127, 2115, 273, 5, 32, "Output",ExpressionUUID->"d49be9e7-f03d-4b08-a77f-e0e4cd0ed5fb"] }, Open ]], Cell[CellGroupData[{ Cell[73437, 2125, 332, 7, 28, "Input",ExpressionUUID->"2cfafdef-f157-441c-a4d1-9a193b6df3f3"], Cell[73772, 2134, 276, 5, 32, "Output",ExpressionUUID->"2c33c85e-ed27-417d-af97-c389dfd04c67"] }, Open ]], Cell[74063, 2142, 402, 10, 28, "Input",ExpressionUUID->"7344e5b6-2923-4efe-89cb-186490db5e39"], Cell[74468, 2154, 569, 12, 28, "Input",ExpressionUUID->"e863c3c0-71d2-4e84-9fc8-ef4b646be8ba"], Cell[CellGroupData[{ Cell[75062, 2170, 289, 6, 28, "Input",ExpressionUUID->"b088ccc5-a131-4b9a-87a3-92a1a5436073"], Cell[75354, 2178, 304, 6, 32, "Output",ExpressionUUID->"4cc91356-1bd8-4d2f-bec1-6aea9641148c"] }, Open ]], Cell[CellGroupData[{ Cell[75695, 2189, 333, 6, 28, "Input",ExpressionUUID->"8e8c93e1-7d8a-48a7-862e-2f8153133abe"], Cell[76031, 2197, 1590, 43, 62, "Output",ExpressionUUID->"90a6d3ea-f77c-465e-b41d-f948c339a4eb"] }, Open ]], Cell[CellGroupData[{ Cell[77658, 2245, 388, 7, 28, "Input",ExpressionUUID->"02b85348-e77a-4045-9d9c-73f7c0816085"], Cell[78049, 2254, 1532, 42, 49, "Output",ExpressionUUID->"f061c611-4a8e-4140-b000-93bca07083f8"] }, Open ]], Cell[CellGroupData[{ Cell[79618, 2301, 410, 8, 28, "Input",ExpressionUUID->"6fb96e5b-ea77-497b-a8fc-349037ddf61a"], Cell[80031, 2311, 1540, 41, 49, "Output",ExpressionUUID->"a1dbdb87-b88f-4c5a-9a31-7281378b505a"] }, Open ]], Cell[CellGroupData[{ Cell[81608, 2357, 299, 7, 28, "Input",ExpressionUUID->"e1196251-32d9-4760-a279-96b68a593b55"], Cell[81910, 2366, 260, 5, 32, "Output",ExpressionUUID->"a3f439fc-9654-486a-9a93-c21042578fe9"] }, Open ]], Cell[CellGroupData[{ Cell[82207, 2376, 349, 7, 28, "Input",ExpressionUUID->"02178fca-476d-462d-a78c-3da7656d7da6"], Cell[82559, 2385, 1506, 41, 49, "Output",ExpressionUUID->"1539f966-1e46-4923-9d51-6e1e8981a27a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[84114, 2432, 327, 5, 53, "Subsection",ExpressionUUID->"5c19e0aa-3d9d-4a9c-be10-9e27b5070255"], Cell[84444, 2439, 320, 8, 28, "Input",ExpressionUUID->"32669fe9-4f97-478d-a2a2-597f998738c7"], Cell[84767, 2449, 327, 8, 28, "Input",ExpressionUUID->"47302877-719b-4b62-bb80-14bebeb38601"], Cell[85097, 2459, 166, 3, 28, "Input",ExpressionUUID->"a5a3ea6a-4559-4420-b0fb-aa4572729fd8"], Cell[CellGroupData[{ Cell[85288, 2466, 292, 7, 28, "Input",ExpressionUUID->"4fdeef68-5255-4ff4-9a45-ffd85d40ba32"], Cell[85583, 2475, 379, 8, 32, "Output",ExpressionUUID->"f22be4d4-3330-44b9-bdfe-8cc509d13e79"] }, Open ]], Cell[85977, 2486, 760, 18, 86, "Input",ExpressionUUID->"975c2466-ce8c-40ac-a5ed-2ecb9ea1fa75"], Cell[CellGroupData[{ Cell[86762, 2508, 210, 4, 28, "Input",ExpressionUUID->"53d2bcf8-eafd-4b8c-8c02-e6e52c09da6c"], Cell[86975, 2514, 328, 6, 32, "Output",ExpressionUUID->"999216c2-f17a-4042-b579-eb4fb175900a"] }, Open ]], Cell[87318, 2523, 342, 9, 28, "Input",ExpressionUUID->"c0fe7cc8-7d2f-4cb1-975b-df1daeaaacf2"], Cell[CellGroupData[{ Cell[87685, 2536, 169, 4, 28, "Input",ExpressionUUID->"5ac713c5-9099-494d-86ce-b3c593fdfe95"], Cell[87857, 2542, 1811, 40, 66, "Output",ExpressionUUID->"636e3ad4-de44-4d8e-84b1-9591760bbf4b"] }, Open ]], Cell[89683, 2585, 415, 12, 48, "Input",ExpressionUUID->"e1e823af-6a45-4a21-9889-831365847cd0"], Cell[CellGroupData[{ Cell[90123, 2601, 255, 7, 28, "Input",ExpressionUUID->"13f87062-dba5-40b1-98c6-d80108dd13a7"], Cell[90381, 2610, 251, 4, 32, "Output",ExpressionUUID->"ccb5487c-4def-4fcc-9bbe-50fad59d913e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[90681, 2620, 170, 3, 53, "Subsection",ExpressionUUID->"7775ed6c-ef5e-4d6a-a97c-49eb13695c25"], Cell[90854, 2625, 225, 6, 28, "Input",ExpressionUUID->"c155368a-9565-4241-90f6-3bf86c93af67"], Cell[91082, 2633, 330, 8, 28, "Input",ExpressionUUID->"2b88f5e1-7792-4bee-a5aa-bf0039a6e126"], Cell[CellGroupData[{ Cell[91437, 2645, 274, 6, 28, "Input",ExpressionUUID->"97e038d8-cff2-458d-8c27-e2323c9c3e92"], Cell[91714, 2653, 376, 7, 32, "Output",ExpressionUUID->"1a76f5a5-3927-46ff-9eba-ebfc9d135fe8"] }, Open ]], Cell[92105, 2663, 736, 17, 86, "Input",ExpressionUUID->"6390d85b-a301-4f87-b329-17380dee523b"], Cell[CellGroupData[{ Cell[92866, 2684, 119, 2, 28, "Input",ExpressionUUID->"eaeb55f0-748f-4672-9ee8-f26bad372988"], Cell[92988, 2688, 304, 5, 32, "Output",ExpressionUUID->"be9f319e-d9c5-478d-9d30-a1f0a3f07028"] }, Open ]], Cell[93307, 2696, 251, 7, 28, "Input",ExpressionUUID->"67bf8400-6ce8-4dd6-8987-528a5a317902"], Cell[93561, 2705, 318, 9, 28, "Input",ExpressionUUID->"dd0b0f87-8a28-459a-bd35-9d5b66f12bec"], Cell[CellGroupData[{ Cell[93904, 2718, 152, 3, 28, "Input",ExpressionUUID->"1ce224b5-109e-4338-80c9-4de2b0746a51"], Cell[94059, 2723, 224, 4, 32, "Output",ExpressionUUID->"4d634623-36bf-48cb-bf67-c35724df9ee8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[94332, 2733, 198, 4, 53, "Subsection",ExpressionUUID->"f43202be-3604-4cb9-9fa5-f610f879802b"], Cell[94533, 2739, 225, 6, 28, "Input",ExpressionUUID->"df42444b-416c-4885-b9fa-acf632c3075e"], Cell[CellGroupData[{ Cell[94783, 2749, 565, 13, 67, "Input",ExpressionUUID->"d2dd8e45-f543-4c9a-b67b-238543bd7d65"], Cell[95351, 2764, 508, 12, 32, "Output",ExpressionUUID->"df930e32-42dd-4ec9-b92f-1c5af54bed5c"] }, Open ]], Cell[CellGroupData[{ Cell[95896, 2781, 792, 15, 67, "Input",ExpressionUUID->"1e2a6033-69c6-4c1a-93b9-1f344b4483e5"], Cell[96691, 2798, 840, 15, 32, "Output",ExpressionUUID->"faf18adb-2f6a-453f-a7db-793537c7c59e"] }, Open ]], Cell[CellGroupData[{ Cell[97568, 2818, 341, 8, 28, "Input",ExpressionUUID->"563a0761-4086-403f-b695-e5807d17fc8e"], Cell[97912, 2828, 1650, 43, 49, "Output",ExpressionUUID->"deed8c26-cf31-4d3b-ba8c-7ef76dd37a09"] }, Open ]], Cell[CellGroupData[{ Cell[99599, 2876, 787, 15, 67, "Input",ExpressionUUID->"ca33e2cd-3f61-46c9-8b00-b99df550b0c2"], Cell[100389, 2893, 841, 16, 32, "Output",ExpressionUUID->"34f3c1e3-4825-4b87-8eaa-7b36862b2dda"] }, Open ]], Cell[CellGroupData[{ Cell[101267, 2914, 341, 8, 28, "Input",ExpressionUUID->"83516472-e8c6-4735-ab38-b3f40beb6867"], Cell[101611, 2924, 1648, 43, 49, "Output",ExpressionUUID->"450d58e4-4e03-4571-adff-a73411fa948e"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)