(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 283181, 5452] NotebookOptionsPosition[ 106505, 2781] NotebookOutlinePosition[ 275782, 5228] CellTagsIndexPosition[ 275702, 5223] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Organizing and Summarizing Data", "Title", CellChangeTimes->{{3.458426921828125*^9, 3.458426936015625*^9}}, FontFamily->"Arial", FontSize->48], Cell["Relative frequency charts", "Subtitle", FontFamily->"Arial", FontSize->36], Cell["Stan Markov", "TeacherName"], Cell["Business Statistics, 3rd period", "ClassName", CellChangeTimes->{{3.458426959140625*^9, 3.458426963421875*^9}}], Cell[CellGroupData[{ Cell["Lesson Overview", "Section"], Cell["\<\ Business Statistics, Introduction to Statistics, Introduction to Business\ \>", "Course", CellChangeTimes->{{3.458426970921875*^9, 3.45842699996875*^9}}], Cell["presentation 10 min, activity 20 min", "ActivityLength"], Cell["\<\ Grades 9-12: Data Analysis and Probability: Select and use appropriate \ statistical methods to analyze data Grades 9-12: Problem Solving: Build new mathematical knowledge through \ problem solving Grades 9-12: Problem Solving: Apply and adapt a variety of appropriate \ strategies to solve problems \ \>", "NCTMStandard", CellChangeTimes->{3.46040405140625*^9}], Cell["None", "Prerequisites", CellChangeTimes->{{3.459592220026265*^9, 3.4595922210106277`*^9}}], Cell["\<\ Students will learn to organize raw data into tables and graphs. \ \>", "Objectives", CellGroupingRules->{GroupTogetherGrouping, 10002.}, CellChangeTimes->{{3.458427014625*^9, 3.458427023984375*^9}, { 3.45842706425*^9, 3.458427087171875*^9}, {3.458427234359375*^9, 3.4584272574375*^9}}], Cell["demonstration, group project, or individual work", "ActivityType"], Cell["\<\ Michael Sullivan , Statistics: Informed Decisions Using Data, Third Edition, \ Prentice Hall, New Jersey, 2010\ \>", "ReferenceMaterial", CellChangeTimes->{{3.458427263359375*^9, 3.458427320734375*^9}, { 3.458427351046875*^9, 3.458427357953125*^9}}], Cell["", "Spacer", CellChangeTimes->{{3.458427390765625*^9, 3.4584274*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Goals", "Section", CellGroupingRules->{GroupTogetherGrouping, 10000.}, FontFamily->"Arial", FontSize->20], Cell["\<\ Students will be able to describe the steps needed to create a relative \ frequency plot.\ \>", "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell["\<\ Students will be able to create a relative frequency plot from data provided.\ \>", "Item", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Instructor Presentation", "Section"], Cell[CellGroupData[{ Cell["Introduction", "Subsection"], Cell["\<\ When qualitative data is collected, we often want to determine how the \ individual data elements relate to one another and to the whole data set. \ This lesson plan outlines the process to turn raw data into information using \ a Relative Frequency Plot. Lets start with a small data set of patient problems associated with a \ Therapists office. :\ \>", "Text", CellChangeTimes->{ 3.4584276673125*^9, {3.45842784084375*^9, 3.458427847203125*^9}, { 3.458427912265625*^9, 3.458428171140625*^9}, {3.458673814*^9, 3.45867388325*^9}, {3.458675345578125*^9, 3.4586753625*^9}, { 3.4589233712322445`*^9, 3.45892343049787*^9}, 3.45892348906037*^9}], Cell[BoxData[ RowBox[{"patients1", "=", RowBox[{"{", RowBox[{ "Back", ",", " ", "Wrist", ",", " ", "Elbow", ",", " ", "Back", ",", " ", "Hip", ",", " ", "Back", ",", " ", "Back", ",", " ", "Back", ",", " ", "Shoulder", ",", " ", "Knee", ",", " ", "Hand", ",", " ", "Groin", ",", " ", "Back", ",", " ", "Shoulder", ",", " ", "Hip", ",", " ", "Neck", ",", " ", "Shoulder", ",", " ", "Back", ",", " ", "Knee", ",", " ", "Hand", ",", " ", "Knee", ",", " ", "Shoulder", ",", " ", "Back", ",", " ", "Knee", ",", " ", "Back", ",", " ", "Knee", ",", " ", "Back", ",", " ", "Back", ",", " ", "Back", ",", " ", "Wrist"}], "}"}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.458428224296875*^9, 3.45842825428125*^9}, { 3.4584282971875*^9, 3.458428305515625*^9}, 3.45867432009375*^9, { 3.458674800671875*^9, 3.458674869703125*^9}, {3.458675049265625*^9, 3.45867505503125*^9}, {3.458678128625*^9, 3.458678136296875*^9}, { 3.458678196140625*^9, 3.458678206515625*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "Back", ",", "Wrist", ",", "Elbow", ",", "Back", ",", "Hip", ",", "Back", ",", "Back", ",", "Back", ",", "Shoulder", ",", "Knee", ",", "Hand", ",", "Groin", ",", "Back", ",", "Shoulder", ",", "Hip", ",", "Neck", ",", "Shoulder", ",", "Back", ",", "Knee", ",", "Hand", ",", "Knee", ",", "Shoulder", ",", "Back", ",", "Knee", ",", "Back", ",", "Knee", ",", "Back", ",", "Back", ",", "Back", ",", "Wrist"}], "}"}]], "Output", CellChangeTimes->{3.46040417065625*^9}], Cell["\<\ This represents the type of injury that a Physical Therapist has seen in one \ day. Once we have the data set, we really would like to tally the number of \ individual data elements. To tally, we count up the number of each data \ element. We list the data element in the left column and place the number of \ individual data elements directly to the right of the data element. The \ result is what is know as a Frequency Table.\ \>", "Text", CellChangeTimes->{{3.4584286576875*^9, 3.4584287578125*^9}, { 3.458482031102311*^9, 3.458482046852815*^9}, {3.458482401989179*^9, 3.4584824297244415`*^9}, 3.4586738978125*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"frequencytable", "=", RowBox[{"Tally", "[", "patients1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fulldata", "=", RowBox[{"Prepend", "[", RowBox[{"frequencytable", ",", RowBox[{"{", RowBox[{"\"\
\"", ",", "\"\