(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      6133,        217]
NotebookOptionsPosition[      4704,        162]
NotebookOutlinePosition[      5066,        178]
CellTagsIndexPosition[      5023,        175]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Keskv\[ADoubleDot]\[ADoubleDot]rtuse usalduspiirid", "Section",
 CellChangeTimes->{{3.514691448*^9, 3.514691457171875*^9}}],

Cell[BoxData[
 RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.513993829703125*^9, 3.51399384153125*^9}}],

Cell["Loeme sisse lisapaketi :", "Text",
 CellChangeTimes->{{3.514037783765625*^9, 3.514037800640625*^9}, {
  3.5146914985*^9, 3.5146915028125*^9}}],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<HypothesisTesting`\>\"", "]"}]], "Input"],

Cell["\<\
Valimi keskv\[ADoubleDot]\[ADoubleDot]rtuse hinnanguks v\[OTilde]tame \
suhtelise sageduse v\[ADoubleDot]\[ADoubleDot]rtuse 2000 katse \
j\[ADoubleDot]rel:\
\>", "Text",
 CellChangeTimes->{{3.514009790734375*^9, 3.514009878078125*^9}, {
  3.514691526671875*^9, 3.5146915704375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"keskvaart", "=", "0.636"}]], "Input",
 CellChangeTimes->{{3.513995202125*^9, 3.513995217625*^9}, {
   3.514009643359375*^9, 3.514009648359375*^9}, 3.51409032778125*^9}],

Cell[BoxData["0.636`"], "Output",
 CellChangeTimes->{3.513995771671875*^9, 3.5140080636875*^9, 
  3.514009653453125*^9, 3.51409039003125*^9, 3.514091210546875*^9}]
}, Open  ]],

Cell["\<\
Valimi standardh\[ADoubleDot]lbe leiame 2000 katse suhteliste sageduste v\
\[ADoubleDot]\[ADoubleDot]rtustest\
\>", "Text",
 CellChangeTimes->{{3.51400988753125*^9, 3.514009976109375*^9}, {
  3.514010090640625*^9, 3.514010090828125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sigma", "=", 
  SqrtBox[
   FractionBox[
    RowBox[{"0.636", "*", 
     RowBox[{"(", 
      RowBox[{"1", "-", "0.636"}], ")"}]}], "2000"]]}]], "Input",
 CellChangeTimes->{{3.5140904065*^9, 3.514090467953125*^9}}],

Cell[BoxData["0.010758810343155975`"], "Output",
 CellChangeTimes->{3.514090470921875*^9, 3.51409121625*^9}]
}, Open  ]],

Cell["", "Text",
 CellChangeTimes->{{3.514009994546875*^9, 3.5140100694375*^9}, {
   3.514010130765625*^9, 3.51401015128125*^9}, 3.514691596375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"abisuurus", "=", 
  FractionBox["1", "sigma"]}]], "Input",
 CellChangeTimes->{{3.51409053015625*^9, 3.5140905590625*^9}, {
  3.514091224796875*^9, 3.51409123515625*^9}}],

Cell[BoxData["92.9470794729765`"], "Output",
 CellChangeTimes->{3.514090560375*^9, 3.51409123653125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"epsilon", "=", 
  RowBox[{"1.96", "/", "abisuurus"}]}]], "Input",
 CellChangeTimes->{{3.51409093971875*^9, 3.514090974890625*^9}}],

Cell[BoxData["0.02108726827258571`"], "Output",
 CellChangeTimes->{3.5140909775625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"keskvaart", "+", "epsilon"}]], "Input",
 CellChangeTimes->{{3.5140910206875*^9, 3.51409102896875*^9}}],

Cell[BoxData["0.6570872682725857`"], "Output",
 CellChangeTimes->{3.514091037375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"keskvaart", "-", "epsilon"}]], "Input",
 CellChangeTimes->{{3.5140910414375*^9, 3.5140910485*^9}}],

Cell[BoxData["0.6149127317274143`"], "Output",
 CellChangeTimes->{3.514091049265625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NormalCI", "[", 
  RowBox[{"keskvaart", ",", "sigma", ",", 
   RowBox[{"ConfidenceLevel", "\[Rule]", ".95"}]}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.514091370671875*^9, 3.51409137734375*^9}, {
  3.514091615484375*^9, 3.5140916256875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.6149131192109173`", ",", "0.6570868807890827`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.514091381015625*^9, 3.51409162684375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NormalCI", "[", 
  RowBox[{"keskvaart", ",", "sigma", ",", 
   RowBox[{"ConfidenceLevel", "\[Rule]", ".99"}]}], " ", "]"}]], "Input",
 CellChangeTimes->{{3.514091418859375*^9, 3.514091419328125*^9}, 
   3.514091497421875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.6082871410467738`", ",", "0.6637128589532262`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.514091499515625*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.514091495375*^9}]
}, Open  ]]
},
WindowSize->{1142, 679},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 129, 1, 140, "Section"],
Cell[722, 26, 139, 2, 57, "Input"],
Cell[864, 30, 148, 2, 55, "Text"],
Cell[1015, 34, 83, 1, 57, "Input"],
Cell[1101, 37, 292, 6, 55, "Text"],
Cell[CellGroupData[{
Cell[1418, 47, 192, 3, 57, "Input"],
Cell[1613, 52, 163, 2, 57, "Output"]
}, Open  ]],
Cell[1791, 57, 247, 5, 55, "Text"],
Cell[CellGroupData[{
Cell[2063, 66, 237, 7, 104, "Input"],
Cell[2303, 75, 108, 1, 57, "Output"]
}, Open  ]],
Cell[2426, 79, 148, 2, 55, "Text"],
Cell[CellGroupData[{
Cell[2599, 85, 193, 4, 91, "Input"],
Cell[2795, 91, 104, 1, 57, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2936, 97, 154, 3, 57, "Input"],
Cell[3093, 102, 87, 1, 57, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3217, 108, 126, 2, 57, "Input"],
Cell[3346, 112, 85, 1, 57, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3468, 118, 122, 2, 57, "Input"],
Cell[3593, 122, 88, 1, 57, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3718, 128, 269, 5, 57, "Input"],
Cell[3990, 135, 175, 4, 57, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4202, 144, 249, 5, 57, "Input"],
Cell[4454, 151, 154, 4, 57, "Output"]
}, Open  ]],
Cell[4623, 158, 65, 1, 57, "Input"]
}, Open  ]]
}
]
*)
7502`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.5139938551875*^9, 3.513993878015625*^9}, {
  3.513993912796875*^9, 3.513993922609375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "MeanCI"}]], "Input",
 CellChangeTimes->{{3.5139937805625*^9, 3.51399378425*^9}},
 FormatType->"InputForm"],

Cell["Global`MeanCI", "Print", "PrintUsage",
 CellChangeTimes->{3.51399378515625*^9},
 CellTags->"Info3514004585-9111335"]
}, Open  ]]
},
WindowSize->{988, 555},
WindowMargins->{{120, Automatic}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3514004585-9111335"->{
  Cell[61010, 1045, 122, 2, 81, "Print",
   CellTags->"Info3514004585-9111335"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3514004585-9111335", 61475, 1061}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 267, 6, 57, "Input"],
Cell[860, 31, 59193, 978, 13411, "Output"]
}, Open  ]],
Cell[60068, 1012, 165, 3, 57, "Input"],
Cell[60236, 1017, 83, 1, 57, "Input"],
Cell[CellGroupData[{
Cell[60344, 1022, 263, 6, 57, "Input"],
Cell[60610, 1030, 225, 5, 82, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60872, 1040, 135, 3, 57, "Input"],
Cell[61010, 1045, 122, 2, 81, "Print",
 CellTags->"Info3514004585-9111335"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)