(* 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[ 50867, 1232] NotebookOptionsPosition[ 49248, 1179] NotebookOutlinePosition[ 49650, 1196] CellTagsIndexPosition[ 49607, 1193] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"alval", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2001", ",", "1007", ",", "523"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2002", ",", "1006", ",", "544"}], "}"}], ",", RowBox[{"{", RowBox[{"2003", ",", "1009", ",", "553"}], "}"}], ",", RowBox[{"{", RowBox[{"2004", ",", "1007", ",", "551"}], "}"}], ",", RowBox[{"{", RowBox[{"2005", ",", "1008", ",", "529"}], "}"}], ",", RowBox[{"{", RowBox[{"2006", ",", "1008", ",", "547"}], "}"}], ",", RowBox[{"{", RowBox[{"2007", ",", "1008", ",", "552"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"alvnl", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2001", ",", "126", ",", "75"}], "}"}], ",", RowBox[{"{", RowBox[{"2002", ",", "126", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"2003", ",", "126", ",", "62"}], "}"}], ",", RowBox[{"{", RowBox[{"2004", ",", "126", ",", "76"}], "}"}], ",", RowBox[{"{", RowBox[{"2005", ",", "126", ",", "82"}], "}"}], ",", RowBox[{"{", RowBox[{"2006", ",", "126", ",", "86"}], "}"}], ",", RowBox[{"{", RowBox[{"2007", ",", "126", ",", "72"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nlval", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2001", ",", "126", ",", "69"}], "}"}], ",", RowBox[{"{", RowBox[{"2002", ",", "126", ",", "67"}], "}"}], ",", RowBox[{"{", RowBox[{"2003", ",", "126", ",", "73"}], "}"}], ",", RowBox[{"{", RowBox[{"2004", ",", "126", ",", "75"}], "}"}], ",", RowBox[{"{", RowBox[{"2005", ",", "126", ",", "72"}], "}"}], ",", RowBox[{"{", RowBox[{"2006", ",", "126", ",", "58"}], "}"}], ",", RowBox[{"{", RowBox[{"2007", ",", "126", ",", "61"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nlvnl", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2001", ",", "1170", ",", "606"}], "}"}], ",", RowBox[{"{", RowBox[{"2002", ",", "1168", ",", "639"}], "}"}], ",", RowBox[{"{", RowBox[{"2003", ",", "1169", ",", "646"}], "}"}], ",", RowBox[{"{", RowBox[{"2004", ",", "1169", ",", "597"}], "}"}], ",", RowBox[{"{", RowBox[{"2005", ",", "1171", ",", "622"}], "}"}], ",", RowBox[{"{", RowBox[{"2006", ",", "1169", ",", "635"}], "}"}], ",", RowBox[{"{", RowBox[{"2007", ",", "1171", ",", "633"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"winningpercentagearray", " ", "=", " ", RowBox[{"{", RowBox[{"{", RowBox[{ "year", ",", " ", "ALvAL", ",", " ", "ALvNL", ",", " ", "NLvAL", ",", " ", "NLvNL"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", RowBox[{"Length", "[", "alval", "]"}]}], ",", " ", RowBox[{"i", "++"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"templist", " ", "=", " ", RowBox[{"{", RowBox[{"alval", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"templist", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"templist", ",", RowBox[{"100.0", " ", RowBox[{ RowBox[{"alval", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], " ", "/", " ", RowBox[{"alval", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"templist", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"templist", ",", RowBox[{"100.0", " ", RowBox[{ RowBox[{"alvnl", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], " ", "/", " ", RowBox[{"alvnl", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"templist", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"templist", ",", RowBox[{"100.0", " ", RowBox[{ RowBox[{"nlval", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], " ", "/", " ", RowBox[{"nlval", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"templist", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"templist", ",", RowBox[{"100.0", " ", RowBox[{ RowBox[{"nlvnl", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], " ", "/", " ", RowBox[{"nlvnl", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"winningpercentagearray", " ", "=", " ", RowBox[{"AppendTo", "[", RowBox[{"winningpercentagearray", ",", " ", "templist"}], "]"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", "winningpercentagearray", "]"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"note", ":", " ", RowBox[{ RowBox[{"don", "'"}], "t", " ", "have", " ", "number", " ", "of", " ", "games", " ", "played", " ", "for", " ", "2007", " ", "so", " ", "just", " ", "using", " ", "2006", " ", "numbers"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "x", " ", "v", " ", "y", " ", "means", " ", "x", " ", "is", " ", "the", " ", "home", " ", "team", " ", "and", " ", "y", " ", "is", " ", "the", " ", "away", " ", "team"}], " ", "*)"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4120698523720217`*^9, 3.4120699506215925`*^9}, { 3.4120699851047373`*^9, 3.4120701171060543`*^9}, {3.412070149814898*^9, 3.412070268281925*^9}, {3.412078477947879*^9, 3.4120784784664*^9}, { 3.4121048737535563`*^9, 3.41210488623225*^9}, {3.4121049673295984`*^9, 3.4121050014465556`*^9}, {3.412105081393587*^9, 3.4121051842766504`*^9}, { 3.412116796694541*^9, 3.4121170122188325`*^9}, {3.4121170887080774`*^9, 3.412117106352456*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"year", "ALvAL", "ALvNL", "NLvAL", "NLvNL"}, {"2001", "51.9364448857994`", "59.523809523809526`", "54.761904761904766`", "51.7948717948718`"}, {"2002", "54.07554671968191`", "50.79365079365079`", "53.17460317460318`", "54.70890410958904`"}, {"2003", "54.80673934588701`", "49.2063492063492`", "57.936507936507944`", "55.26090675791274`"}, {"2004", "54.71698113207547`", "60.317460317460316`", "59.523809523809526`", "51.06928999144568`"}, {"2005", "52.480158730158735`", "65.07936507936508`", "57.14285714285714`", "53.116994022203244`"}, {"2006", "54.26587301587301`", "68.25396825396825`", "46.03174603174603`", "54.31993156544055`"}, {"2007", "54.761904761904766`", "57.14285714285714`", "48.41269841269841`", "54.05636208368916`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.4121051393146844`*^9, {3.4121169895825863`*^9, 3.4121170130664344`*^9}, { 3.4121170939987545`*^9, 3.4121171101578765`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "we", " ", "first", " ", "compare", " ", "winning", " ", "percentage", " ", "of", " ", "ALvAL", " ", "and", " ", "NLvNL"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "we", " ", "do", " ", "chisquare", " ", "tests", " ", "to", " ", "see", " ", "if", " ", "the", " ", "percentages", " ", "are", " ", "statistically", " ", "significantly", " ", "different"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "we", " ", "do", " ", "this", " ", "for", " ", "each", " ", "year"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"numyears", " ", "=", " ", RowBox[{"Length", "[", "alval", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", "numyears"}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"chisq", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"theta0", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"alval", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], " ", "+", " ", RowBox[{"nlvnl", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ")"}], " ", "/", " ", RowBox[{"(", RowBox[{ RowBox[{"1.0", " ", RowBox[{"alval", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"nlvnl", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"chisq", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"alval", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{"alval", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "*", "theta0"}]}], ")"}], "^", "2"}], " ", "/", " ", RowBox[{"alval", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ")"}], " ", "+", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"nlvnl", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{"nlvnl", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "*", "theta0"}]}], ")"}], "^", "2"}], " ", "/", " ", RowBox[{"nlvnl", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"chisq", " ", "=", " ", RowBox[{"chisq", " ", "/", " ", RowBox[{"(", RowBox[{"theta0", " ", "*", " ", RowBox[{"(", RowBox[{"1", " ", "-", " ", "theta0"}], ")"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"alval", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", " ", "\"\< the average WL% = \>\"", ",", " ", RowBox[{"100", "*", "theta0"}], ",", " ", "\"\< and chisq = \>\"", ",", " ", "chisq"}], "]"}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"alhomewins", " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{"alval", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "numyears"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nlhomewins", " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{"nlvnl", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "numyears"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"alhomegames", " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{"alval", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "numyears"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"nlhomegames", " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{"nlvnl", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "numyears"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"theta0", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"alhomewins", " ", "+", " ", "nlhomewins"}], ")"}], " ", "/", " ", RowBox[{"(", RowBox[{ RowBox[{"1.0", " ", "alhomegames"}], " ", "+", " ", "nlhomegames"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"chisq", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"alhomewins", " ", "-", " ", RowBox[{"alhomegames", "*", "theta0"}]}], ")"}], "^", "2"}], " ", "/", " ", "alhomegames"}], ")"}], " ", "+", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"nlhomewins", " ", "-", " ", RowBox[{"nlhomegames", "*", "theta0"}]}], ")"}], "^", "2"}], " ", "/", " ", "nlhomegames"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"chisq", " ", "=", " ", RowBox[{"chisq", " ", "/", " ", RowBox[{"(", RowBox[{"theta0", " ", "*", " ", RowBox[{"(", RowBox[{"1", " ", "-", " ", "theta0"}], ")"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"alval", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", " ", "\"\< to \>\"", ",", " ", RowBox[{"alval", "[", RowBox[{"[", RowBox[{"numyears", ",", "1"}], "]"}], "]"}], ",", " ", "\"\< the average WL% = \>\"", ",", " ", RowBox[{"100", "*", "theta0"}], ",", " ", "\"\< and chisq = \>\"", ",", " ", "chisq"}], "]"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.4120716208154745`*^9, 3.4120718134701357`*^9}, { 3.412071847059783*^9, 3.412071927663999*^9}, {3.412071960661887*^9, 3.4120721144010706`*^9}, {3.412072264163946*^9, 3.41207229572052*^9}, { 3.412072326839622*^9, 3.4120723666759396`*^9}, {3.4120729692506533`*^9, 3.4120732288502493`*^9}, {3.4121048972295933`*^9, 3.4121049155653334`*^9}}],\ Cell[CellGroupData[{ Cell[BoxData["\<\"Chisq values: 3.841 (95%), 6.635 (99%).\"\>"], "Print", CellChangeTimes->{ 3.4120721155728703`*^9, 3.412072296273219*^9, {3.41207235167397*^9, 3.412072366919088*^9}, 3.4120731531900525`*^9, 3.4120732293873243`*^9, 3.4120784801694164`*^9, 3.412104922335408*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"In \"\>", "\[InvisibleSpace]", "2001", "\[InvisibleSpace]", "\<\" the average WL% = \"\>", "\[InvisibleSpace]", "51.86035829122646`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "0.004344901794532101`"}], SequenceForm[ "In ", 2001, " the average WL% = ", 51.86035829122646, " and chisq = ", 0.004344901794532101], Editable->False]], "Print", CellChangeTimes->{ 3.4120721155728703`*^9, 3.412072296273219*^9, {3.41207235167397*^9, 3.412072366919088*^9}, 3.4120731531900525`*^9, 3.4120732293873243`*^9, 3.4120784801694164`*^9, 3.41210492234029*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"In \"\>", "\[InvisibleSpace]", "2002", "\[InvisibleSpace]", "\<\" the average WL% = \"\>", "\[InvisibleSpace]", "54.41582336706532`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "0.08740567851515404`"}], SequenceForm[ "In ", 2002, " the average WL% = ", 54.41582336706532, " and chisq = ", 0.08740567851515404], Editable->False]], "Print", CellChangeTimes->{ 3.4120721155728703`*^9, 3.412072296273219*^9, {3.41207235167397*^9, 3.412072366919088*^9}, 3.4120731531900525`*^9, 3.4120732293873243`*^9, 3.4120784801694164`*^9, 3.4121049223441963`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"In \"\>", "\[InvisibleSpace]", "2003", "\[InvisibleSpace]", "\<\" the average WL% = \"\>", "\[InvisibleSpace]", "55.05050505050505`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "0.04514333251416649`"}], SequenceForm[ "In ", 2003, " the average WL% = ", 55.05050505050505, " and chisq = ", 0.04514333251416649], Editable->False]], "Print", CellChangeTimes->{ 3.4120721155728703`*^9, 3.412072296273219*^9, {3.41207235167397*^9, 3.412072366919088*^9}, 3.4120731531900525`*^9, 3.4120732293873243`*^9, 3.4120784801694164`*^9, 3.4121049223481026`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"In \"\>", "\[InvisibleSpace]", "2004", "\[InvisibleSpace]", "\<\" the average WL% = \"\>", "\[InvisibleSpace]", "52.75735294117647`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "2.8880452054251617`"}], SequenceForm[ "In ", 2004, " the average WL% = ", 52.75735294117647, " and chisq = ", 2.8880452054251617`], Editable->False]], "Print", CellChangeTimes->{ 3.4120721155728703`*^9, 3.412072296273219*^9, {3.41207235167397*^9, 3.412072366919088*^9}, 3.4120731531900525`*^9, 3.4120732293873243`*^9, 3.4120784801694164`*^9, 3.4121049223510323`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"In \"\>", "\[InvisibleSpace]", "2005", "\[InvisibleSpace]", "\<\" the average WL% = \"\>", "\[InvisibleSpace]", "52.82239559430931`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "0.08815774347767903`"}], SequenceForm[ "In ", 2005, " the average WL% = ", 52.82239559430931, " and chisq = ", 0.08815774347767903], Editable->False]], "Print", CellChangeTimes->{ 3.4120721155728703`*^9, 3.412072296273219*^9, {3.41207235167397*^9, 3.412072366919088*^9}, 3.4120731531900525`*^9, 3.4120732293873243`*^9, 3.4120784801694164`*^9, 3.412104922354938*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"In \"\>", "\[InvisibleSpace]", "2006", "\[InvisibleSpace]", "\<\" the average WL% = \"\>", "\[InvisibleSpace]", "54.29490124023886`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "0.0006374141396851857`"}], SequenceForm[ "In ", 2006, " the average WL% = ", 54.29490124023886, " and chisq = ", 0.0006374141396851857], Editable->False]], "Print", CellChangeTimes->{ 3.4120721155728703`*^9, 3.412072296273219*^9, {3.41207235167397*^9, 3.412072366919088*^9}, 3.4120731531900525`*^9, 3.4120732293873243`*^9, 3.4120784801694164`*^9, 3.412104922358844*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"In \"\>", "\[InvisibleSpace]", "2007", "\[InvisibleSpace]", "\<\" the average WL% = \"\>", "\[InvisibleSpace]", "54.382744378155124`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "0.10869673556348496`"}], SequenceForm[ "In ", 2007, " the average WL% = ", 54.382744378155124`, " and chisq = ", 0.10869673556348496`], Editable->False]], "Print", CellChangeTimes->{ 3.4120721155728703`*^9, 3.412072296273219*^9, {3.41207235167397*^9, 3.412072366919088*^9}, 3.4120731531900525`*^9, 3.4120732293873243`*^9, 3.4120784801694164`*^9, 3.41210492236275*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"From \"\>", "\[InvisibleSpace]", "2001", "\[InvisibleSpace]", "\<\" to \"\>", "\[InvisibleSpace]", "2007", "\[InvisibleSpace]", "\<\" the average WL% = \"\>", "\[InvisibleSpace]", "53.65485564304462`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "0.2300739798658044`"}], SequenceForm[ "From ", 2001, " to ", 2007, " the average WL% = ", 53.65485564304462, " and chisq = ", 0.2300739798658044], Editable->False]], "Print", CellChangeTimes->{ 3.4120721155728703`*^9, 3.412072296273219*^9, {3.41207235167397*^9, 3.412072366919088*^9}, 3.4120731531900525`*^9, 3.4120732293873243`*^9, 3.4120784801694164`*^9, 3.4121049223666563`*^9}] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "this", " ", "seems", " ", "to", " ", "suggest", " ", "that", " ", "the", " ", "AL", " ", "beat", " ", "AL", " ", "teams", " ", "at", " ", "home", " ", "with", " ", "the", " ", "same", " ", "frequency", " ", "NL", " ", "teams", " ", "beat", " ", "NL", " ", "teams", " ", "at", " ", "home"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.412072382437626*^9, 3.412072397635872*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "we", " ", "now", " ", "compare", " ", "the", " ", "winning", " ", "percentages", " ", "of", " ", "AL", " ", "v", " ", "NL", " ", RowBox[{"(", RowBox[{"so", " ", "AL", " ", "home"}], ")"}], " ", "and", " ", "NL", " ", "v", " ", "AL", " ", RowBox[{"(", RowBox[{"so", " ", "AL", " ", "home"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "same", " ", "type", " ", "of", " ", "analysis", " ", "as", " ", "above"}], ",", " ", RowBox[{ "except", " ", "we", " ", "also", " ", "look", " ", "at", " ", "certain", " ", "subsets"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"numyears", " ", "=", " ", RowBox[{"Length", "[", "alval", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", " ", "=", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", "numyears"}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"chisq", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"theta0", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"alvnl", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], " ", "+", " ", RowBox[{"nlval", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ")"}], " ", "/", " ", RowBox[{"(", RowBox[{ RowBox[{"1.0", " ", RowBox[{"alvnl", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], " ", "+", " ", RowBox[{"nlval", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"chisq", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"alvnl", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{"alvnl", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "*", "theta0"}]}], ")"}], "^", "2"}], " ", "/", " ", RowBox[{"alvnl", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ")"}], " ", "+", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"nlval", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], " ", "-", " ", RowBox[{ RowBox[{"nlval", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "*", "theta0"}]}], ")"}], "^", "2"}], " ", "/", " ", RowBox[{"nlval", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"chisq", " ", "=", " ", RowBox[{"chisq", " ", "/", " ", RowBox[{"(", RowBox[{"theta0", " ", "*", " ", RowBox[{"(", RowBox[{"1", " ", "-", " ", "theta0"}], ")"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"alval", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", " ", "\"\< the average WL% = \>\"", ",", " ", RowBox[{"100", "*", "theta0"}], ",", " ", "\"\< and chisq = \>\"", ",", " ", "chisq"}], "]"}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"yearblock", " ", "=", " ", "1"}], ",", " ", RowBox[{"yearblock", " ", "\[LessEqual]", " ", "7"}], ",", " ", RowBox[{"yearblock", "++"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Switch", "[", RowBox[{"yearblock", ",", " ", "\[IndentingNewLine]", "1", ",", RowBox[{"yearsdo", " ", "=", " ", RowBox[{"{", RowBox[{ "2001", ",", " ", "2002", ",", " ", "2003", ",", " ", "2004", ",", " ", "2005", ",", " ", "2006", ",", "2007"}], "}"}]}], ",", "\[IndentingNewLine]", "2", ",", " ", RowBox[{"yearsdo", " ", "=", " ", RowBox[{"{", RowBox[{"2001", ",", " ", "2002", ",", " ", "2003"}], "}"}]}], ",", "\[IndentingNewLine]", "3", ",", " ", RowBox[{"yearsdo", " ", "=", " ", RowBox[{"{", RowBox[{"2002", ",", " ", "2003"}], "}"}]}], ",", "\[IndentingNewLine]", "4", ",", " ", RowBox[{"yearsdo", " ", "=", " ", RowBox[{"{", RowBox[{"2004", ",", "2005", ",", "2006", ",", "2007"}], "}"}]}], ",", "\[IndentingNewLine]", "5", ",", " ", RowBox[{"yearsdo", " ", "=", " ", RowBox[{"{", RowBox[{ "2001", ",", "2002", ",", "2003", ",", "2004", ",", "2005", ",", "2007"}], "}"}]}], ",", "\[IndentingNewLine]", "6", ",", " ", RowBox[{"yearsdo", " ", "=", " ", RowBox[{"{", RowBox[{ "2001", ",", " ", "2002", ",", " ", "2004", ",", " ", "2005", ",", " ", "2007"}], "}"}]}], ",", "\[IndentingNewLine]", "7", ",", " ", RowBox[{"yearsdo", " ", "=", " ", RowBox[{"{", RowBox[{"2004", ",", "2005", ",", "2007"}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"alhomewins", " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"alvnl", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], " ", "*", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"yearsdo", ",", RowBox[{"alvnl", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "]"}], " ", "\[Equal]", " ", "True"}], ",", "1", ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "numyears"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nlhomewins", " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"nlval", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], " ", "*", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"yearsdo", ",", RowBox[{"alvnl", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "]"}], " ", "\[Equal]", " ", "True"}], ",", "1", ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "numyears"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"alhomegames", " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"alvnl", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], " ", "*", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"yearsdo", ",", RowBox[{"alvnl", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "]"}], " ", "\[Equal]", " ", "True"}], ",", "1", ",", "0"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "numyears"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nlhomegames", " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"nlval", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], " ", "*", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"yearsdo", ",", RowBox[{"alvnl", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "]"}], " ", "\[Equal]", " ", "True"}], ",", "1", ",", "0"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "numyears"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"theta0", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"alhomewins", " ", "+", " ", "nlhomewins"}], ")"}], " ", "/", " ", RowBox[{"(", RowBox[{ RowBox[{"1.0", " ", "alhomegames"}], " ", "+", " ", "nlhomegames"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"chisq", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"alhomewins", " ", "-", " ", RowBox[{"alhomegames", "*", "theta0"}]}], ")"}], "^", "2"}], " ", "/", " ", "alhomegames"}], ")"}], " ", "+", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"nlhomewins", " ", "-", " ", RowBox[{"nlhomegames", "*", "theta0"}]}], ")"}], "^", "2"}], " ", "/", " ", "nlhomegames"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"chisq", " ", "=", " ", RowBox[{"chisq", " ", "/", " ", RowBox[{"(", RowBox[{"theta0", " ", "*", " ", RowBox[{"(", RowBox[{"1", " ", "-", " ", "theta0"}], ")"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"alval", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", " ", "\"\< to \>\"", ",", " ", RowBox[{"alval", "[", RowBox[{"[", RowBox[{"numyears", ",", "1"}], "]"}], "]"}], ",", " ", "\"\< the average WL% = \>\"", ",", " ", RowBox[{"100", "*", "theta0"}], ",", " ", "\"\< and chisq = \>\"", ",", " ", "chisq"}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"100", "*", "theta0"}], ",", " ", "\"\< and chisq = \>\"", ",", " ", "chisq", ",", " ", "\"\<. Years are \>\"", ",", " ", "yearsdo"}], "]"}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.4120724142646904`*^9, 3.4120724875558977`*^9}, { 3.412072645569222*^9, 3.4120726529935513`*^9}, {3.412072690837809*^9, 3.4120726948697777`*^9}, {3.412073173804944*^9, 3.412073175043146*^9}, { 3.412073273741907*^9, 3.412073315045904*^9}, {3.4120733512857723`*^9, 3.412073409176598*^9}, {3.4120734481565247`*^9, 3.412073576331915*^9}, { 3.412073631640875*^9, 3.412073798442699*^9}, {3.412073861403513*^9, 3.4120738929649696`*^9}, {3.4120739366897097`*^9, 3.4120739370275793`*^9}, {3.412073985198324*^9, 3.412074069855015*^9}, { 3.41207414411491*^9, 3.412074189970374*^9}, 3.412077974669544*^9, { 3.4120781923421354`*^9, 3.4120782156199427`*^9}, {3.412104926199418*^9, 3.4121049366870284`*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\"Chisq values: 3.841 (95%), 6.635 (99%).\"\>"], "Print", CellChangeTimes->{ 3.412072708770255*^9, {3.4120732961994543`*^9, 3.41207331581148*^9}, { 3.4120733604394827`*^9, 3.412073410299573*^9}, {3.4120735537650003`*^9, 3.412073559676731*^9}, 3.4120737995588384`*^9, {3.412073878181736*^9, 3.412073893536222*^9}, 3.4120739387755136`*^9, 3.41207398959648*^9, 3.41207407070164*^9, {3.4120741674786496`*^9, 3.4120741903892927`*^9}, 3.412077975355047*^9, 3.412078218132477*^9, 3.4120784861612206`*^9, 3.412104937840275*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"In \"\>", "\[InvisibleSpace]", "2001", "\[InvisibleSpace]", "\<\" the average WL% = \"\>", "\[InvisibleSpace]", "57.14285714285714`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "0.5833333333333333`"}], SequenceForm[ "In ", 2001, " the average WL% = ", 57.14285714285714, " and chisq = ", 0.5833333333333333], Editable->False]], "Print", CellChangeTimes->{ 3.412072708770255*^9, {3.4120732961994543`*^9, 3.41207331581148*^9}, { 3.4120733604394827`*^9, 3.412073410299573*^9}, {3.4120735537650003`*^9, 3.412073559676731*^9}, 3.4120737995588384`*^9, {3.412073878181736*^9, 3.412073893536222*^9}, 3.4120739387755136`*^9, 3.41207398959648*^9, 3.41207407070164*^9, {3.4120741674786496`*^9, 3.4120741903892927`*^9}, 3.412077975355047*^9, 3.412078218132477*^9, 3.4120784861612206`*^9, 3.412104937865664*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"In \"\>", "\[InvisibleSpace]", "2002", "\[InvisibleSpace]", "\<\" the average WL% = \"\>", "\[InvisibleSpace]", "51.98412698412697`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "0.14308245536559205`"}], SequenceForm[ "In ", 2002, " the average WL% = ", 51.98412698412697, " and chisq = ", 0.14308245536559205`], Editable->False]], "Print", CellChangeTimes->{ 3.412072708770255*^9, {3.4120732961994543`*^9, 3.41207331581148*^9}, { 3.4120733604394827`*^9, 3.412073410299573*^9}, {3.4120735537650003`*^9, 3.412073559676731*^9}, 3.4120737995588384`*^9, {3.412073878181736*^9, 3.412073893536222*^9}, 3.4120739387755136`*^9, 3.41207398959648*^9, 3.41207407070164*^9, {3.4120741674786496`*^9, 3.4120741903892927`*^9}, 3.412077975355047*^9, 3.412078218132477*^9, 3.4120784861612206`*^9, 3.41210493789203*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"In \"\>", "\[InvisibleSpace]", "2003", "\[InvisibleSpace]", "\<\" the average WL% = \"\>", "\[InvisibleSpace]", "53.57142857142857`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "1.9304843304843302`"}], SequenceForm[ "In ", 2003, " the average WL% = ", 53.57142857142857, " and chisq = ", 1.9304843304843302`], Editable->False]], "Print", CellChangeTimes->{ 3.412072708770255*^9, {3.4120732961994543`*^9, 3.41207331581148*^9}, { 3.4120733604394827`*^9, 3.412073410299573*^9}, {3.4120735537650003`*^9, 3.412073559676731*^9}, 3.4120737995588384`*^9, {3.412073878181736*^9, 3.412073893536222*^9}, 3.4120739387755136`*^9, 3.41207398959648*^9, 3.41207407070164*^9, {3.4120741674786496`*^9, 3.4120741903892927`*^9}, 3.412077975355047*^9, 3.412078218132477*^9, 3.4120784861612206`*^9, 3.4121049379057007`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"In \"\>", "\[InvisibleSpace]", "2004", "\[InvisibleSpace]", "\<\" the average WL% = \"\>", "\[InvisibleSpace]", "59.92063492063492`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "0.016523506655301293`"}], SequenceForm[ "In ", 2004, " the average WL% = ", 59.92063492063492, " and chisq = ", 0.016523506655301293`], Editable->False]], "Print", CellChangeTimes->{ 3.412072708770255*^9, {3.4120732961994543`*^9, 3.41207331581148*^9}, { 3.4120733604394827`*^9, 3.412073410299573*^9}, {3.4120735537650003`*^9, 3.412073559676731*^9}, 3.4120737995588384`*^9, {3.412073878181736*^9, 3.412073893536222*^9}, 3.4120739387755136`*^9, 3.41207398959648*^9, 3.41207407070164*^9, {3.4120741674786496`*^9, 3.4120741903892927`*^9}, 3.412077975355047*^9, 3.412078218132477*^9, 3.4120784861612206`*^9, 3.4121049379154654`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"In \"\>", "\[InvisibleSpace]", "2005", "\[InvisibleSpace]", "\<\" the average WL% = \"\>", "\[InvisibleSpace]", "61.11111111111111`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "1.6697588126159555`"}], SequenceForm[ "In ", 2005, " the average WL% = ", 61.11111111111111, " and chisq = ", 1.6697588126159555`], Editable->False]], "Print", CellChangeTimes->{ 3.412072708770255*^9, {3.4120732961994543`*^9, 3.41207331581148*^9}, { 3.4120733604394827`*^9, 3.412073410299573*^9}, {3.4120735537650003`*^9, 3.412073559676731*^9}, 3.4120737995588384`*^9, {3.412073878181736*^9, 3.412073893536222*^9}, 3.4120739387755136`*^9, 3.41207398959648*^9, 3.41207407070164*^9, {3.4120741674786496`*^9, 3.4120741903892927`*^9}, 3.412077975355047*^9, 3.412078218132477*^9, 3.4120784861612206`*^9, 3.4121049379223013`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"In \"\>", "\[InvisibleSpace]", "2006", "\[InvisibleSpace]", "\<\" the average WL% = \"\>", "\[InvisibleSpace]", "57.14285714285714`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "12.7037037037037`"}], SequenceForm[ "In ", 2006, " the average WL% = ", 57.14285714285714, " and chisq = ", 12.7037037037037], Editable->False]], "Print", CellChangeTimes->{ 3.412072708770255*^9, {3.4120732961994543`*^9, 3.41207331581148*^9}, { 3.4120733604394827`*^9, 3.412073410299573*^9}, {3.4120735537650003`*^9, 3.412073559676731*^9}, 3.4120737995588384`*^9, {3.412073878181736*^9, 3.412073893536222*^9}, 3.4120739387755136`*^9, 3.41207398959648*^9, 3.41207407070164*^9, {3.4120741674786496`*^9, 3.4120741903892927`*^9}, 3.412077975355047*^9, 3.412078218132477*^9, 3.4120784861612206`*^9, 3.4121049379330425`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"In \"\>", "\[InvisibleSpace]", "2007", "\[InvisibleSpace]", "\<\" the average WL% = \"\>", "\[InvisibleSpace]", "52.77777777777778`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "1.9265811587793011`"}], SequenceForm[ "In ", 2007, " the average WL% = ", 52.77777777777778, " and chisq = ", 1.9265811587793011`], Editable->False]], "Print", CellChangeTimes->{ 3.412072708770255*^9, {3.4120732961994543`*^9, 3.41207331581148*^9}, { 3.4120733604394827`*^9, 3.412073410299573*^9}, {3.4120735537650003`*^9, 3.412073559676731*^9}, 3.4120737995588384`*^9, {3.412073878181736*^9, 3.412073893536222*^9}, 3.4120739387755136`*^9, 3.41207398959648*^9, 3.41207407070164*^9, {3.4120741674786496`*^9, 3.4120741903892927`*^9}, 3.412077975355047*^9, 3.412078218132477*^9, 3.4120784861612206`*^9, 3.4121049379447603`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Average home WL% = \"\>", "\[InvisibleSpace]", "56.235827664399096`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "4.063199899715862`", "\[InvisibleSpace]", "\<\". Years are \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ "2001", ",", "2002", ",", "2003", ",", "2004", ",", "2005", ",", "2006", ",", "2007"}], "}"}]}], SequenceForm[ "Average home WL% = ", 56.235827664399096`, " and chisq = ", 4.063199899715862, ". Years are ", {2001, 2002, 2003, 2004, 2005, 2006, 2007}], Editable->False]], "Print", CellChangeTimes->{ 3.412072708770255*^9, {3.4120732961994543`*^9, 3.41207331581148*^9}, { 3.4120733604394827`*^9, 3.412073410299573*^9}, {3.4120735537650003`*^9, 3.412073559676731*^9}, 3.4120737995588384`*^9, {3.412073878181736*^9, 3.412073893536222*^9}, 3.4120739387755136`*^9, 3.41207398959648*^9, 3.41207407070164*^9, {3.4120741674786496`*^9, 3.4120741903892927`*^9}, 3.412077975355047*^9, 3.412078218132477*^9, 3.4120784861612206`*^9, 3.4121049379574547`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Average home WL% = \"\>", "\[InvisibleSpace]", "54.232804232804234`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "0.34106865924150565`", "\[InvisibleSpace]", "\<\". Years are \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"2001", ",", "2002", ",", "2003"}], "}"}]}], SequenceForm[ "Average home WL% = ", 54.232804232804234`, " and chisq = ", 0.34106865924150565`, ". Years are ", {2001, 2002, 2003}], Editable->False]], "Print", CellChangeTimes->{ 3.412072708770255*^9, {3.4120732961994543`*^9, 3.41207331581148*^9}, { 3.4120733604394827`*^9, 3.412073410299573*^9}, {3.4120735537650003`*^9, 3.412073559676731*^9}, 3.4120737995588384`*^9, {3.412073878181736*^9, 3.412073893536222*^9}, 3.4120739387755136`*^9, 3.41207398959648*^9, 3.41207407070164*^9, {3.4120741674786496`*^9, 3.4120741903892927`*^9}, 3.412077975355047*^9, 3.412078218132477*^9, 3.4120784861612206`*^9, 3.412104937969173*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Average home WL% = \"\>", "\[InvisibleSpace]", "52.77777777777778`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "1.5603715170278636`", "\[InvisibleSpace]", "\<\". Years are \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"2002", ",", "2003"}], "}"}]}], SequenceForm[ "Average home WL% = ", 52.77777777777778, " and chisq = ", 1.5603715170278636`, ". Years are ", {2002, 2003}], Editable->False]], "Print", CellChangeTimes->{ 3.412072708770255*^9, {3.4120732961994543`*^9, 3.41207331581148*^9}, { 3.4120733604394827`*^9, 3.412073410299573*^9}, {3.4120735537650003`*^9, 3.412073559676731*^9}, 3.4120737995588384`*^9, {3.412073878181736*^9, 3.412073893536222*^9}, 3.4120739387755136`*^9, 3.41207398959648*^9, 3.41207407070164*^9, {3.4120741674786496`*^9, 3.4120741903892927`*^9}, 3.412077975355047*^9, 3.412078218132477*^9, 3.4120784861612206`*^9, 3.4121049379779615`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Average home WL% = \"\>", "\[InvisibleSpace]", "57.738095238095234`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "10.164077246987077`", "\[InvisibleSpace]", "\<\". Years are \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"2004", ",", "2005", ",", "2006", ",", "2007"}], "}"}]}], SequenceForm[ "Average home WL% = ", 57.738095238095234`, " and chisq = ", 10.164077246987077`, ". Years are ", {2004, 2005, 2006, 2007}], Editable->False]], "Print", CellChangeTimes->{ 3.412072708770255*^9, {3.4120732961994543`*^9, 3.41207331581148*^9}, { 3.4120733604394827`*^9, 3.412073410299573*^9}, {3.4120735537650003`*^9, 3.412073559676731*^9}, 3.4120737995588384`*^9, {3.412073878181736*^9, 3.412073893536222*^9}, 3.4120739387755136`*^9, 3.41207398959648*^9, 3.41207407070164*^9, {3.4120741674786496`*^9, 3.4120741903892927`*^9}, 3.412077975355047*^9, 3.412078218132477*^9, 3.4120784861612206`*^9, 3.412104937987726*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Average home WL% = \"\>", "\[InvisibleSpace]", "56.08465608465608`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "0.5263127983632643`", "\[InvisibleSpace]", "\<\". Years are \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{ "2001", ",", "2002", ",", "2003", ",", "2004", ",", "2005", ",", "2007"}], "}"}]}], SequenceForm[ "Average home WL% = ", 56.08465608465608, " and chisq = ", 0.5263127983632643, ". Years are ", {2001, 2002, 2003, 2004, 2005, 2007}], Editable->False]], "Print", CellChangeTimes->{ 3.412072708770255*^9, {3.4120732961994543`*^9, 3.41207331581148*^9}, { 3.4120733604394827`*^9, 3.412073410299573*^9}, {3.4120735537650003`*^9, 3.412073559676731*^9}, 3.4120737995588384`*^9, {3.412073878181736*^9, 3.412073893536222*^9}, 3.4120739387755136`*^9, 3.41207398959648*^9, 3.41207407070164*^9, {3.4120741674786496`*^9, 3.4120741903892927`*^9}, 3.412077975355047*^9, 3.412078218132477*^9, 3.4120784861612206`*^9, 3.412104937998468*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Average home WL% = \"\>", "\[InvisibleSpace]", "56.58730158730159`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "2.0191738181743593`", "\[InvisibleSpace]", "\<\". Years are \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"2001", ",", "2002", ",", "2004", ",", "2005", ",", "2007"}], "}"}]}], SequenceForm[ "Average home WL% = ", 56.58730158730159, " and chisq = ", 2.0191738181743593`, ". Years are ", {2001, 2002, 2004, 2005, 2007}], Editable->False]], "Print", CellChangeTimes->{ 3.412072708770255*^9, {3.4120732961994543`*^9, 3.41207331581148*^9}, { 3.4120733604394827`*^9, 3.412073410299573*^9}, {3.4120735537650003`*^9, 3.412073559676731*^9}, 3.4120737995588384`*^9, {3.412073878181736*^9, 3.412073893536222*^9}, 3.4120739387755136`*^9, 3.41207398959648*^9, 3.41207407070164*^9, {3.4120741674786496`*^9, 3.4120741903892927`*^9}, 3.412077975355047*^9, 3.412078218132477*^9, 3.4120784861612206`*^9, 3.4121049380092096`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Average home WL% = \"\>", "\[InvisibleSpace]", "57.93650793650793`", "\[InvisibleSpace]", "\<\" and chisq = \"\>", "\[InvisibleSpace]", "2.6270354096665804`", "\[InvisibleSpace]", "\<\". Years are \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"2004", ",", "2005", ",", "2007"}], "}"}]}], SequenceForm[ "Average home WL% = ", 57.93650793650793, " and chisq = ", 2.6270354096665804`, ". Years are ", {2004, 2005, 2007}], Editable->False]], "Print", CellChangeTimes->{ 3.412072708770255*^9, {3.4120732961994543`*^9, 3.41207331581148*^9}, { 3.4120733604394827`*^9, 3.412073410299573*^9}, {3.4120735537650003`*^9, 3.412073559676731*^9}, 3.4120737995588384`*^9, {3.412073878181736*^9, 3.412073893536222*^9}, 3.4120739387755136`*^9, 3.41207398959648*^9, 3.41207407070164*^9, {3.4120741674786496`*^9, 3.4120741903892927`*^9}, 3.412077975355047*^9, 3.412078218132477*^9, 3.4120784861612206`*^9, 3.4121049380228806`*^9}] }, Open ]] }, Open ]] }, WindowSize->{1166, 652}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 6703, 174, 372, "Input"], Cell[7296, 199, 1526, 33, 146, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8859, 237, 7518, 198, 432, "Input"], Cell[CellGroupData[{ Cell[16404, 440, 289, 4, 23, "Print"], Cell[16696, 446, 650, 13, 23, "Print"], Cell[17349, 461, 651, 13, 23, "Print"], Cell[18003, 476, 651, 13, 23, "Print"], Cell[18657, 491, 650, 13, 23, "Print"], Cell[19310, 506, 649, 13, 23, "Print"], Cell[19962, 521, 653, 13, 23, "Print"], Cell[20618, 536, 652, 13, 23, "Print"], Cell[21273, 551, 737, 14, 23, "Print"] }, Open ]] }, Open ]], Cell[22037, 569, 443, 8, 31, "Input"], Cell[CellGroupData[{ Cell[22505, 581, 12303, 296, 652, "Input"], Cell[CellGroupData[{ Cell[34833, 881, 561, 8, 23, "Print"], Cell[35397, 891, 919, 17, 23, "Print"], Cell[36319, 910, 921, 17, 23, "Print"], Cell[37243, 929, 922, 17, 23, "Print"], Cell[38168, 948, 926, 17, 23, "Print"], Cell[39097, 967, 922, 17, 23, "Print"], Cell[40022, 986, 917, 17, 23, "Print"], Cell[40942, 1005, 922, 17, 23, "Print"], Cell[41867, 1024, 1110, 22, 23, "Print"], Cell[42980, 1048, 1022, 19, 23, "Print"], Cell[44005, 1069, 1000, 19, 23, "Print"], Cell[45008, 1090, 1039, 19, 23, "Print"], Cell[46050, 1111, 1083, 21, 23, "Print"], Cell[47136, 1134, 1062, 20, 23, "Print"], Cell[48201, 1156, 1019, 19, 23, "Print"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)