(*^ ::[ Information = "This is a Mathematica Notebook file. It contains ASCII text, and can be transferred by email, ftp, or other text-file transfer utility. It should be read or edited using a copy of Mathematica or MathReader. If you received this as email, use your mail application or copy/paste to save everything from the line containing (*^ down to the line containing ^*) into a plain text file. On some systems you may have to give the file a name ending with ".ma" to allow Mathematica to recognize it as a Notebook. The line below identifies what version of Mathematica created this file, but it can be opened using any other version as well."; FrontEndVersion = "X Window System Mathematica Notebook Front End Version 2.2"; X11StandardFontEncoding; fontset = title, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e8, fullFontName, -9, "-*-times-bold-r-normal-*-*-240-75-75-*-*-*-*", 24, fontName, "times"; fontset = subtitle, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e6, fullFontName, -9, "-*-times-bold-r-normal-*-*-180-75-75-*-*-*-*", 18, fontName, "times"; fontset = subsubtitle, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, e6, fullFontName, -9, "-*-times-medium-i-normal-*-*-140-75-75-*-*-*-*", 14, fontName, "times"; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, a20, fullFontName, -9, "-*-times-bold-r-normal-*-*-180-75-75-*-*-*-*", 18, fontName, "times"; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, a15, fullFontName, -9, "-*-times-bold-r-normal-*-*-140-75-75-*-*-*-*", 14, fontName, "times"; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, a12, fullFontName, -9, "-*-times-bold-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "times"; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, fullFontName, -9, "-*-times-medium-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "times"; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, fullFontName, -9, "-*-times-medium-r-normal-*-*-100-75-75-*-*-*-*", 10, fontName, "times"; fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, fullFontName, -9, "-*-courier-bold-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "courier"; fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, fullFontName, -9, "-*-courier-medium-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "courier"; fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, fullFontName, -9, "-*-courier-medium-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "courier"; fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, fullFontName, -9, "-*-courier-medium-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "courier"; fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, fullFontName, -9, "-*-courier-medium-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "courier"; fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, fullFontName, -9, "-*-courier-medium-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "courier"; fontset = name, inactive, noPageBreakInGroup, nohscroll, preserveAspect, M7, italic, B65535, fullFontName, -9, "-*-times-medium-i-normal-*-*-100-75-75-*-*-*-*", 10, fontName, "times"; fontset = header, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, fullFontName, -9, "-*-times-medium-i-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "times"; fontset = leftheader, fullFontName, -9, "-*-times-medium-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "times"; fontset = footer, inactive, nohscroll, noKeepOnOnePage, preserveAspect, center, M7, italic, fullFontName, -9, "-*-times-medium-i-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "times"; fontset = leftfooter, fullFontName, -9, "-*-times-medium-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "times"; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, fullFontName, -9, "-*-times-medium-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "times"; fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, fullFontName, -9, "-*-times-medium-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "times"; fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, fullFontName, -9, "-*-courier-medium-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "courier"; fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, fullFontName, -9, "-*-times-medium-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "times"; fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, fullFontName, -9, "-*-times-medium-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "times"; fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, fullFontName, -9, "-*-times-medium-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "times"; fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, fullFontName, -9, "-*-times-medium-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "times"; fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, fullFontName, -9, "-*-times-medium-r-normal-*-*-120-75-75-*-*-*-*", 12, fontName, "times";paletteColors = 128; currentKernel; ] :[font = title; inactive; preserveAspect; startGroup] Beginning Mathematica Statistics :[font = subtitle; inactive; preserveAspect] C.T.J. Dodson :[font = subtitle; inactive; preserveAspect] University of Toronto :[font = subsubtitle; inactive; preserveAspect] This Notebook gives a brief introduction to some commonly occuring statistical operations that may be performed using Mathematica. Click on the side bars to open interactive cells. Shift-Enter inputs the command in an input cell :[font = subsection; inactive; Cclosed; preserveAspect; groupLikeNormal; startGroup] PLOTTING HISTOGRAMS AND PIECHARTS :[font = input; preserveAspect; groupLikeNormal] <{{20,160},{-1,3}}]; :[font = input; preserveAspect; startGroup] Regress[t, {1,x,x^2},x] :[font = output; output; inactive; preserveAspect; fontLeading = 0; endGroup] {ParameterTable -> TableForm[{{3.084936553339022, 0.6874364585398736, 4.487595202459116, 0.0000479375165043372}, {-0.03582063312438265, 0.01524757530152978, -2.349267500963828, 0.02315993678901096}, {0.0001326971315729484, 0.0000818846911400004, 1.620536509639789, 0.1119530556893382}}, TableHeadings -> {{1, x, x^2}, {"Estimate", "SE", "TStat", "PValue"}}], RSquared -> 0.31846015691871, AdjustedRSquared -> 0.2888279898282191, EstimatedVariance -> 0.1984896597666817, ANOVATable -> TableForm[{{2, 4.266380383385702, 2.133190191692851, 10.7471099209921, 0.0001480126207793475}, {46, 9.13052434926736, 0.1984896597666817}, {48, 13.39690473265306}}, TableHeadings -> {{"Model", "Error", "Total"}, {"DoF", "SoS", "MeanSS", "FRatio", "PValue"}}]} ;[o] {ParameterTable -> Estimate SE TStat PValue , 1 3.08494 0.687436 4.4876 0.0000479375 x -0.0358206 0.0152476 -2.34927 0.0231599 2 x 0.000132697 0.0000818847 1.62054 0.111953 RSquared -> 0.31846, AdjustedRSquared -> 0.288828, EstimatedVariance -> 0.19849, ANOVATable -> DoF SoS MeanSS FRatio PValue } Model 2 4.26638 2.13319 10.7471 0.000148013 Error 46 9.13052 0.19849 Total 48 13.3969 :[font = input; preserveAspect] f = Plot[3.0894 - 0.0358 x + 0.00013 x^2,{x,20,160}]; :[font = input; preserveAspect; endGroup] Show[l,f]; ^*)