From 4d8f9d79eee5b5fbe4908de54f495ce77824f52b Mon Sep 17 00:00:00 2001 From: Dan Buch Date: Thu, 7 Jul 2011 22:15:07 -0400 Subject: [PATCH 01/18] maybe this is actually valid LaTeX (???) --- README.tex | 6 ++++++ 1 file changed, 6 insertions(+) create mode 100644 README.tex diff --git a/README.tex b/README.tex new file mode 100644 index 0000000..731ecc7 --- /dev/null +++ b/README.tex @@ -0,0 +1,6 @@ +\begin{document} +\section{Practicing R} + +Where I practice and learn and destroy me some R. + +\end{document} From f36116aca758dcdaedbf3f80f8308dcb2b6b2950 Mon Sep 17 00:00:00 2001 From: Dan Buch Date: Thu, 7 Jul 2011 22:24:44 -0400 Subject: [PATCH 02/18] how about a plaintext version of the .tex readme? --- README.txt | 6 ++++++ 1 file changed, 6 insertions(+) create mode 100644 README.txt diff --git a/README.txt b/README.txt new file mode 100644 index 0000000..4c1471d --- /dev/null +++ b/README.txt @@ -0,0 +1,6 @@ + +Practicing R + +Where I practice and learn and destroy me some R. + + From 84c8f2236beaed8f271586c0d50509874f255548 Mon Sep 17 00:00:00 2001 From: Dan Buch Date: Thu, 7 Jul 2011 22:34:05 -0400 Subject: [PATCH 03/18] I made a file! --- just-testing.R | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 just-testing.R diff --git a/just-testing.R b/just-testing.R new file mode 100644 index 0000000..c138c7c --- /dev/null +++ b/just-testing.R @@ -0,0 +1,12 @@ +# Yes, this is just a test to make sure I'm remotely +# capable of writing and running an R file. + + +print("dogs rule cats drool") + +x = 10.5 +y = as.integer(4) + +print(x + y) + +# vim:filetype=r From 8cb1c01c192099fb7eebb31bd3e0c38a7a50291a Mon Sep 17 00:00:00 2001 From: Dan Buch Date: Fri, 8 Jul 2011 22:22:35 -0400 Subject: [PATCH 04/18] well, *sure*, I would love to track my R session history --- .RData | Bin 0 -> 450 bytes .Rhistory | 116 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 116 insertions(+) create mode 100644 .RData create mode 100644 .Rhistory diff --git a/.RData b/.RData new file mode 100644 index 0000000000000000000000000000000000000000..0f4ce26bca4aa256ea002934d905d5814756e314 GIT binary patch literal 450 zcmV;z0X_a7iwFP!000001D#Y&PlG@ZWr0>o#E{fO4<0=?Y4xnN_T)uVFTE}wO*Iq} zz-n*)WdDHTY?;AjOFtqBJCog+_h#M>OeeFUJ+n1U(>2|J)d1JjVPWuggypcDiQU^T zZS#yQwC89qG<@obcK|06+ao-#09*yY+6!a^FH11arpWR&ln@I-V!jMB@Vgk}q7~<6 zn!FDre~9M>?fFSGko=+KUxEEmd-Gti5rARQObr^V0#uD#iXe?j8imxgfmW?VA5W0Q z+Ql;J?PsIB23B(iE4xQhqXKacf{|8RVAO$5mF@vyyL1TV5ZOhVvNX~|nO8V+q;i_( zsU3x@FcQ-wPl?Vsd7ej}?<=`2KjImsR)BNv=Sf-?esFSHG|MtOi^<8fzbUNcbzrpn zl)F*v6PBVVzRSSVLMh7*c+UIt6jGWlCO#}>J>h?fvA2rn67jFm-Zb;90EWJEy7QXc z)5HtYT-iN&NEUIH9MM%Xs7R03>hAM$oi9Sd-1^7$BNkEGFMS~4#4iQ_0A}aaA^-pY literal 0 HcmV?d00001 diff --git a/.Rhistory b/.Rhistory new file mode 100644 index 0000000..7347a31 --- /dev/null +++ b/.Rhistory @@ -0,0 +1,116 @@ +c(2, 3, 5) +length(c("aa", "bb", "cc", "dd", "ee")) +n = c(2, 3, 5) +s = c("aa", "bb", "cc", "dd", "ee") +c(n, s) +a = c(1, 3, 5, 7) +b = c(1, 2, 4, 8) +5 * a +a + b +a - b +a * b +u = c(10, 20, 30) +v = c(1, 2, 3, 4, 5, 6, 7, 8, 9) +u + v +a[0] +a[1] +b +b[0] +b[1] +b +b[-2] +b[20] +b[c(2, 3)] +a +a[c(1, 4)] +a +a[1:4] +a[1:3] +a[c(FALSE, TRUE, FALSE, TRUE)] +v = c("Mary", "Sue") +names(v) +names(v) = c("First", "Last") +names(v) +v["First"] +A = matrix( + c(2, 4, 3, 1, 5, 7), + nrow=2, + ncol=3, + byrow=TRUE) +A +A[1, 3] +A[2,] +A[, c(1, 3)] +dimnames(A) = list( + c("row1", "row2"), + c("col1", "col2", "col3")) +A +A["row2", "col3"] +B = matrix( + c(2, 4, 3, 1, 5, 7), + nrow=3, + ncol=2) +B +t(B) +C = matrix( + c(7, 4, 2), + nrow=3, + ncol=1) +C +cbind(B, C) +D = matrix( + c(6, 2), + nrow=1, + ncol=2) +D +B +BD = rbind(B, D) +BD +c(B) +n = c(2, 3, 5) +s = c("aa", "bb", "dd", "ee") +b = c(TRUE, FALSE, TRUE, FALSE, FALSE) +x = list(n, s, b, 3) +x +x[2] +x[1] +x[2] +x[[2]] +x[[2]][1] = "DORP" +x[[2]] +s +v = list(bob=list("Bob", "Johnson", c(2, 3, 5)), john=list("John", "Smythe", c(1, 4, 6))) +v +v["bob"] +v[["bob"]] +v[["bob"]][[1]] +v[["bob"]][[1]] = "Robert" +v["bob"] +v$bob +v$john +v$john[1] +v$john[[1]] +v$john[[1]] = +"Johnny" +v$john +attach(v) +bob +detach(v) +bob +mtcars +n = c(2, 3, 5) +s = c("aa", "bb", "cc") +b = c(TRUE, FALSE, TRUE) +df = data.frame(n, s, b) +mtcars["Mazda RX4", "mpg"] +nrow(mtcars) +ncol(mtcars) +ncol(s) +s +B +nrow(B) +ncol(B) +head(mtcars) +q() +s +q() From 9dfeecd729d11fd29ca4a3cb2b84cb33ac8d735a Mon Sep 17 00:00:00 2001 From: Dan Buch Date: Mon, 11 Jul 2011 04:31:40 -0400 Subject: [PATCH 05/18] finished with the "R introduction" on r-tutor.com --- .RData | Bin 450 -> 543 bytes .Rhistory | 30 ++++++++++++++++++++++++++++++ mydata.csv | 4 ++++ mydata.txt | 4 ++++ 4 files changed, 38 insertions(+) create mode 100644 mydata.csv create mode 100644 mydata.txt diff --git a/.RData b/.RData index 0f4ce26bca4aa256ea002934d905d5814756e314..7ffebb195c9ef56f4034d62c74026b035a3faae1 100644 GIT binary patch literal 543 zcmV+)0^t20iwFP!000001D#dPPQpMC-fasO6hnds4<0;tG$ep$Mc`yiGRSm%231s@O6A+a+$jvl06B|sX&Lo(FUPGHI zO7Y#Ag&z$?Z{l~8_PlW1Q1qsvw?O{tXLDgGBLK&sxo*_a6Ce+6YY9osq!}rvHc{%4 z7@Z!n*jX&?^WALZm%?ggu<|aFni8a%3r4xx0;3Zc6zL8So|OlG2$nUZ*@Q;<(E1fV zRg`ej`l&b$mcdwbliDSQ$K5EYD;m0#^!7 z1@&Qmf#G#_k&h_}|7C4RttquuM#>VE+@Hgh9IoVW_u>#16&=s&Di2myd9b?igOy)w zVR0%i)|ye9Y&U^uyPW%!bU5tV@OQ~`h4?opZ_{~}07H*G^+6(w{m>0&3vKu4AskKT z;U1?-2NmwqmA?BjSuI8ZVQ&5C&eaphV$$EqbVJIE^#<^1RrthstUcncqFoHwd+I-L hr{DKU3q;i7k{4LwL6SqTabgjn{Q=Z|4n#Bv007g9|KR`t literal 450 zcmV;z0X_a7iwFP!000001D#Y&PlG@ZWr0>o#E{fO4<0=?Y4xnN_T)uVFTE}wO*Iq} zz-n*)WdDHTY?;AjOFtqBJCog+_h#M>OeeFUJ+n1U(>2|J)d1JjVPWuggypcDiQU^T zZS#yQwC89qG<@obcK|06+ao-#09*yY+6!a^FH11arpWR&ln@I-V!jMB@Vgk}q7~<6 zn!FDre~9M>?fFSGko=+KUxEEmd-Gti5rARQObr^V0#uD#iXe?j8imxgfmW?VA5W0Q z+Ql;J?PsIB23B(iE4xQhqXKacf{|8RVAO$5mF@vyyL1TV5ZOhVvNX~|nO8V+q;i_( zsU3x@FcQ-wPl?Vsd7ej}?<=`2KjImsR)BNv=Sf-?esFSHG|MtOi^<8fzbUNcbzrpn zl)F*v6PBVVzRSSVLMh7*c+UIt6jGWlCO#}>J>h?fvA2rn67jFm-Zb;90EWJEy7QXc z)5HtYT-iN&NEUIH9MM%Xs7R03>hAM$oi9Sd-1^7$BNkEGFMS~4#4iQ_0A}aaA^-pY diff --git a/.Rhistory b/.Rhistory index 7347a31..5771aeb 100644 --- a/.Rhistory +++ b/.Rhistory @@ -114,3 +114,33 @@ head(mtcars) q() s q() +mtcars[[[9]] +mtcars[[9]] +mtcars[["am]] +mtcars[["am"]] +mtcars$am +mtcars[1] +head(mtcars[1]) +mtcars["mpg"] +mtcars[c("mpg", "hp")] +mtcars[c("mpg", "hp")][1] +mtcars[c("mpg", "hp")][[1]] +mtcars[24,] +mtcars["Camaro Z28",] +mtcars[c("Datsun 710", "Camaro Z28")] +mtcars[c("Datsun 710", "Camaro Z28",)] +mtcars[c("Datsun 710", "Camaro Z28"),] +L = mtcars$am == 0 +L +mtcars[L,] +mtcars[L,] +mtcars[L,]$mpg +library(gdata) +library(foreign) +help(read.mtp) +mydata = read.table("mydata.txt") +mydata +mydata = read.csv("mydata.csv") +mydata +getwd() +q() diff --git a/mydata.csv b/mydata.csv new file mode 100644 index 0000000..05ab2ef --- /dev/null +++ b/mydata.csv @@ -0,0 +1,4 @@ +Col1,Col2,Col3 +100,a1,b1 +200,a2,b2 +300,a3,b3 diff --git a/mydata.txt b/mydata.txt new file mode 100644 index 0000000..018793a --- /dev/null +++ b/mydata.txt @@ -0,0 +1,4 @@ +100 a1 b1 +200 a2 b2 +300 a3 b3 +400 a4 b4 From e3a747c169dcbf208bf2b87f5aca82717b7db436 Mon Sep 17 00:00:00 2001 From: Dan Buch Date: Mon, 11 Jul 2011 04:35:55 -0400 Subject: [PATCH 06/18] putting the intro stuff into its own dir --- .RData => introduction/.RData | Bin .Rhistory => introduction/.Rhistory | 0 mydata.csv => introduction/mydata.csv | 0 mydata.txt => introduction/mydata.txt | 0 4 files changed, 0 insertions(+), 0 deletions(-) rename .RData => introduction/.RData (100%) rename .Rhistory => introduction/.Rhistory (100%) rename mydata.csv => introduction/mydata.csv (100%) rename mydata.txt => introduction/mydata.txt (100%) diff --git a/.RData b/introduction/.RData similarity index 100% rename from .RData rename to introduction/.RData diff --git a/.Rhistory b/introduction/.Rhistory similarity index 100% rename from .Rhistory rename to introduction/.Rhistory diff --git a/mydata.csv b/introduction/mydata.csv similarity index 100% rename from mydata.csv rename to introduction/mydata.csv diff --git a/mydata.txt b/introduction/mydata.txt similarity index 100% rename from mydata.txt rename to introduction/mydata.txt From 4ebd4f9222669c04ca00e97f20ee92dc3f24f952 Mon Sep 17 00:00:00 2001 From: Dan Buch Date: Mon, 11 Jul 2011 04:54:45 -0400 Subject: [PATCH 07/18] up through the bar graph exercise --- elementary-statistics/.RData | Bin 0 -> 576 bytes elementary-statistics/.Rhistory | 57 ++++++++++++++++++++++++++++++++ 2 files changed, 57 insertions(+) create mode 100644 elementary-statistics/.RData create mode 100644 elementary-statistics/.Rhistory diff --git a/elementary-statistics/.RData b/elementary-statistics/.RData new file mode 100644 index 0000000000000000000000000000000000000000..cdfd547a988ef17d5ce64657848d2ca9dd8b9f6c GIT binary patch literal 576 zcmV-G0>AwqiwFP!000001JzYKQ`w>8{GoHHb8!MjS)6b*#l;1y8IvvsoDoXdH_+@}Oh|;TLC7dcQDd1WV9!N)P$D*P|rq-%QVC_rT8Yqw;(C>H^A?} zTo-T_YfI}+z}NzR6Z9FdA&0uOPD6SR#!iBGzytI`>Qhqc3kNYd;d_s3WHF{RI)I%~ zIrDeh;A??R&&R?$%x>5RYWf%oE_X+MpYR?qX2FhhGrzusU=6`Kf;NH;1Rnty%S!?+ z3$!B8sz7T3tqar^=z~BT3U3=okH}WE(jRqBK>b9WW2gQ;C1avz<>JJILVZR((7E`1 z{&2N;*ttG=n&bbHey`Y3{{i|9jCZ&5zv|yN#k`-FBZG*;`Jm?%Yr~2hGN&~xSKA)` zAJui##L5LNmB~qhL&hkaoHlq~BSwXo6=J=(pQr1pZiMJZ-Y$$(Jx;?_SQ*hH{} zU>m^>g3k!PAlR+wFXzAyQWlTd{YJj~^5vD0@uU Date: Mon, 11 Jul 2011 05:35:43 -0400 Subject: [PATCH 08/18] done through category statistics --- elementary-statistics/.RData | Bin 576 -> 767 bytes elementary-statistics/.Rhistory | 24 ++++++++++++++++++++++++ 2 files changed, 24 insertions(+) diff --git a/elementary-statistics/.RData b/elementary-statistics/.RData index cdfd547a988ef17d5ce64657848d2ca9dd8b9f6c..f012f986baa8f98eddbe94dfd8395c058b3aaf72 100644 GIT binary patch literal 767 zcmV?p5^DHI4gT5;u4)6dy75Zu-^u`gVCt~e! z4(VegS_`l>-Oky!O|aFVPoK4^Zx}s)0Mzsa6l`G*$$*M8P^v>e(v^074Z$XYEd)&j zI|yzAD6Ow4w64&GLbnv!RA@_~rb62a?PPeHKzd5H;3$2|j`0E#WyhE?ISl9m?|O1` zI1ONbre~n_^6QI_uWuf=-kw}s6Th5(p6N&Z4e0Nn{qX+Am+JGj8u$6tv_tvfc+h7Q zE0cm4q_I57@3uMlKX%v32A1E@+%`Gh!I1c2Ol2A~>ToMuxG6Y!cS*AZR1#Am}34MQ|6vJp}g)&Wd$JyqNL% zN~%RSanU=eMVDQbE+=C@?Bg6AQ8q>#cVPF~kkcrdyIYUEW5$9^oK?=ojpVh(MXj_6 zXP)Py+F?9qAwhMIMO4%fWcQ$PeUI@TpqTRK7kmufz`K&byi9RQgH64RqIE@yhN;wR4x%aEi!5c&%__U zY4fx;TkmAamt-)RU}CAjVnCbA?sh?T|ILBrva&iZ7+7IJ%0*s-$kX-IZe2hfJkQim x?EeIH5$k3~|Jl0uPpn)%{X{g5MV3we7emICq8WRB-;X1l@jFT+K>hOz007LYdZPdU literal 576 zcmV-G0>AwqiwFP!000001JzYKQ`w>8{GoHHb8!MjS)6b*#l;1y8IvvsoDoXdH_+@}Oh|;TLC7dcQDd1WV9!N)P$D*P|rq-%QVC_rT8Yqw;(C>H^A?} zTo-T_YfI}+z}NzR6Z9FdA&0uOPD6SR#!iBGzytI`>Qhqc3kNYd;d_s3WHF{RI)I%~ zIrDeh;A??R&&R?$%x>5RYWf%oE_X+MpYR?qX2FhhGrzusU=6`Kf;NH;1Rnty%S!?+ z3$!B8sz7T3tqar^=z~BT3U3=okH}WE(jRqBK>b9WW2gQ;C1avz<>JJILVZR((7E`1 z{&2N;*ttG=n&bbHey`Y3{{i|9jCZ&5zv|yN#k`-FBZG*;`Jm?%Yr~2hGN&~xSKA)` zAJui##L5LNmB~qhL&hkaoHlq~BSwXo6=J=(pQr1pZiMJZ-Y$$(Jx;?_SQ*hH{} zU>m^>g3k!PAlR+wFXzAyQWlTd{YJj~^5vD0@uU Date: Mon, 11 Jul 2011 06:12:54 -0400 Subject: [PATCH 09/18] up through quantitative data histograms --- elementary-statistics/.RData | Bin 767 -> 6132 bytes elementary-statistics/.Rhistory | 50 ++++++++++++++++++++++++++++++++ 2 files changed, 50 insertions(+) diff --git a/elementary-statistics/.RData b/elementary-statistics/.RData index f012f986baa8f98eddbe94dfd8395c058b3aaf72..637e019f7f57de0e5a2f70e2524c5e7e37c14cfb 100644 GIT binary patch literal 6132 zcmVbW$}MGaZ{cm{zn!UMR8FG67aa;G2)hrxF~TP5=fGZ z<3y6yE~xL0`qNO~3-!G@(%J`&`<6&+KLq!e!iiFY`4N19M5>y&(9x)zfENM?alD8K zek|%yLj^ou6o3|o@gsOb=4Ew(rmNvhH<~BlEfo76ct~*MaJ2$zOKJ*|O+_#jG)9)z zGBV^s!XlAsm%S)Rn-=#?UZ>hB-7WpkW1#38+CCZ;Z9ZV=WV` zWs0@Tu$DR2vcOuFSj&o_Hx()UP1$}@shda>9Knqt(olumpa@lYEmp}!yX^H6;*|K}#frBg7vs%_r}Fg&0~eW{A{o_=hQ z0I5CSM_Zxi|3`FbM8m!h=yzda1kZ`)hD8Z^l4VRz1I-F$G*kLp1pp2+T>^)hkB7qw zp@5{3P#@q7Qtyled}TC?C2hIBi|isC!CTCWATGk>$}}kJfF{x zAlRuW;Kv%_r!6>@HiawT2M32i*N!g`@}s!Wb>YYG#P<-;&do^2g)a!<@}gqU5Y?9# zBLs8>KW?sT=Cb>yh|iYtfx92F!_y)a~^b`G7R4*EVeXD@3?<1pT3Q2bPpo-FnGf?S;|kVhb&Lx%i;ctQM7T)>}@ z2P|Z-3eq3LM||Xv|I}k8WMg~d26lrV5giNibMdJ|whmC?mhAA$zerMDsxd^hJCjZ?O4*^wLCj!}_F&=po*6;4h>n6Zs3^ zSe%d?;G-&?H(0)?p&I5P%u^=tLHS8R{?|-^5#xm9kx~9(^B&d}|{J{>0pBf>b)urnNw*ILjdd%NQ zFSu_YeC$5P0zV-*7BA#?GRh})uuB>@b{EWVl((>cQ6L|nkNgPphz5BL_c6F{pc?#0 zM*af-W9uK>r(yk&^$SM@je~uF5B>vvHIN_ByzRAzu--#nXb}8KhWjnbXKekF-hTTB3et-7k zc@uFc1pc6t0;zAG^oLLGgD=>N_csxTj`I~B7ijS`5JLqVe`+7RKtJFGIfIWG(MAOV zf8x6zVvbP>HRYf1#^-Whex%}bB=R8>YGMKV@i~L1#mgq<3Vz-aX(@g1$LBD>@$(2| z;`5APhh&XWf*m64yJ^3UH!?Rc8I5&K3`~s7aa}Rgw6|+&V2X!|I|gRGT{8nSJXG8< zz;(r)Z_xkRJ{^N7W2+(Vm7zp^$$OX4I5!Ow7iV#?m4@`Yw?p)P-VXhXUGd#pAj0ww z4(azb*!TPTZ|{c|b0zzF>HgNIge18*t|V#gogl5Jq5gCZf}?Ri!nkt+0T1A)hS%^@ zQ4O!-T}T8uB-wG$%b7qA{Jc1_`T}3j(}y4*_+iHbsP+VUg8iTe96JEq9l`wwbZ{Io zozMq)pr0q$3G@lFe7#F#`GY?}4%SC_UIe~imoG<_FX)BYgT_5j-yi4`WNS|j!45R; z2KWR$AfDiV;E(Yo=nwV+U$1`TLf&EY1be0v>;eBd6Xe5jkvGthWc7f21AV|AknaR= z&>QIo`AN)U&QV19}5LM}mFWyiOp%O9*_x zPLeD=Hvbc3^#OZ8t_Oh*^n`d~cB4M{Iekzh{0bPk~4gLpxA^)&AmB{h|xtM+= zSvunS0eJ@FM0v!x`XPK50v_lCe6aNh^g?tHKVlxhyusEvlB^v61X())4t~Y*og~YT zcz+aet|yHm$<)$=M%#IR`MVQ&&BcxSJG#oHU&4P zNb22l08Ad&hW#IYe?!C3)6h7b)cYJw#q}vTKJrKhI!=Z>jvt&$({bYr+!*MKf2POt z>PrrtfD617a5CUL9`vB$aDbM98wdY^912d30*(h!AD|=pTM;Lp=p&*$@H@mo4u=mh zf-y2lHuhu!Kkx-!7Q_&fok03_$&tQ~FYMpwI2^oO;6cUFF>pL7IKB!b**pRr@q0W) zl5Ct62{zIRxHKFdF&=c1Y;KWpbRZja!tdw5=|k`d@FmU%Ci-c^B2GA?d3!u}T44Dr^>)WFONw-d86FvsoU%uNlSI# z!+BA{e&kbvLi=E<7#+qlis43l`@HDe7gg-y0cz66xp|2TZ#=04{SH=HZJ*sXo|>Yb(`>|Pi=zxP&07EJ z^~SS9YLBfR<7k}eHY_z*^-TOdhwYP6JLOhccr#60Z#65m8W%-Yj>Q;vMDdq^y%un(80b&r74ejGP@^s-padCEv|RYYS?aka?0Y~y1DIl zYr1{I&#fJ}er{pw^1j3DipuV6VcB8k-4Ta)Y>L;I2u{vh@&Dy3&5@tl$$q!xeZ1^-)PyR&iiAK+NGuY#K;X{IR9=5mtylc_e z(R;>?dGqllZ^8Pdk9vYCcZqBhNwMcbUTe;FDSoxRFgvG1G`KOd$!Wr=3bp1o&! zeQi4|=dtxfy8iNUL(BF&=t7(sVDwwYyySA@ycz5Nm7lUW4s=q?9(W{GP#UJZbz7ckA zsv!1^(a?~QDgHyeey=&B81~ZPfYtFEH~&H3^k8Lbi=l=G^L1%Pp1E-9L~3mHs^-Yg zO3&o|Y&6F>-aMLN#pxdREAx>>S8dYVFRiZ*+=_aUEZfbvsM$RJ=#=`h2PEI>4Mq6{&Ypud z#_5g>(RIq0cZ7L(m44vwqtD-7+S5#;s~P&feqGe~rn{hBhdjH=>C#ez(@7~G4uw8T z7Yw4#Ra86{vgVLG8Bjdc2-RjKWEo(CiGnpB>KU!f^n|)4w_r5M-=lkU3h>Gr6Teeb0d3V~lKV?>2uHYwb-22DMeTnzi7&l(d z9`kno@L4t;^PB{82IWO_(k_fl{@uySBT!MRc$KiqeNC9n^ys!NmYWAA=9LX8>2&k6 zDJ#0QDavn&?hE%UdQ#5S^((`Bv}u{k(nE?iBrNQx(hOHFAGLP!V(Slcu2pePOpb8S zbj{zQ&SG7jeE4aH)3u5UZ~9Zt>pQxRHie@OJZWd{Iv-;*W2S$rK#9^4G)>F?QCeBR z@%9Gmfe&h0il1IDa^9MudDO_JbnotpxxCs9%aTk)Rip1@>Tcny9MN0DUhkP{U!O8-waLfHy$y0vL zH6&Ga=h`?3W_jke2=}*aQ*t_SvWGeN{o~pldgb2ZIG++k6Qg}CU-&ehox^Bnm2`P3 zo}n4s8Sg4AIdLF8-}tw=j7XvakpZSfQ<(@m*;XqM#c7bnn^Sjc=lju4r9G#-jP;1XjpU=;ID=O!kuWEL4 zdOWDpXzz+va!&?HUSCNVvH2?fEOYIJ*Di)tMmzQ12AunKOUcPMw-*QhHCK1<1h+Ne zw{(`Ir6yW_Y;JT3o&WawlX#nran*vz!cWou!`6=sShm9I_Q<_E+%7M!%Gs=0l<(8N zrP%X&;>zV}B{3e&+uz+iLpB@Oep+Nd{m!f@^3UDn-DB4fmdj5XqsncJCW`<|4I5Trff!`P7hH{%3^Y`t$u|I`nGvIpXf;|np_Y5u! z9)0g%YH?HCq?}x%q^?)0L#7U;*Ba-oYw|Gquxe>3Z%W-7=U_&D+w)QK#WT|qD2${^ z>cr&R`784d-PuE%XWZq*QT}kRBH>xS=El2MW*cUxW?!mKIk9}lA%WWwTyFcD1kDB*j(`r55 z_0yk&nLiz?Jt1&e>r%2f;NwKBTI-bz0lK@>klOX>2`{0UEhag_h11HN>xR;R{eX z_$5MrUvLr&rJvHzH^A6e2LD;1{*yvHfu;SELfFmrdHVT(_SJFk-a_hc;#nqqSPdUp z!>bHb|LwEP|0Tn|+xKAU^7nUKD#&u#-xko><>)s7MTFlHz<3GzjR5?HfYATDzY+Mi z@Z9%DwlO@RFf1w*|GN~>nARW1kg(7&VN74Hj^&0)xXp>?3Bvf2E!>Y|U`hSs7+6~W zI0i=e39|b9I0ly0^T#nTq6fW5viyG>154{4$H21nk7Hoje&5Hy`t z6BEZ4)hRYz3MRHbZE)2m4}+&i0V0pD@<1xvYRfn#%GXiMJ3OalBY$x zv2S<=$1txiWH%iNTpi!QVn6(FDRAtSHc|5>o1{C(+}ItLdJ5D$zl!RX6pnQ1$z)&I zO-nW%I#6`8X2aEihqOfdjI2*Cpj;N6ev_Y=YZu6V^U^WjKHil5A@63YYT!^&cZ~C0 zy>VWmhoi49D9AHrSMQlb{#Ea(=+=tK^_)BlcI~b-{zlG8(Px9b(OJ=BM9qh)@5C!S z6kRQU#ky;9o?WZD-SCgbN>SscKSnD@PZM>|y7y(i-Fi{$c%S_Am*>PW>HZJ6EGdt~ GKL7wShC#sq literal 767 zcmV?p5^DHI4gT5;u4)6dy75Zu-^u`gVCt~e! z4(VegS_`l>-Oky!O|aFVPoK4^Zx}s)0Mzsa6l`G*$$*M8P^v>e(v^074Z$XYEd)&j zI|yzAD6Ow4w64&GLbnv!RA@_~rb62a?PPeHKzd5H;3$2|j`0E#WyhE?ISl9m?|O1` zI1ONbre~n_^6QI_uWuf=-kw}s6Th5(p6N&Z4e0Nn{qX+Am+JGj8u$6tv_tvfc+h7Q zE0cm4q_I57@3uMlKX%v32A1E@+%`Gh!I1c2Ol2A~>ToMuxG6Y!cS*AZR1#Am}34MQ|6vJp}g)&Wd$JyqNL% zN~%RSanU=eMVDQbE+=C@?Bg6AQ8q>#cVPF~kkcrdyIYUEW5$9^oK?=ojpVh(MXj_6 zXP)Py+F?9qAwhMIMO4%fWcQ$PeUI@TpqTRK7kmufz`K&byi9RQgH64RqIE@yhN;wR4x%aEi!5c&%__U zY4fx;TkmAamt-)RU}CAjVnCbA?sh?T|ILBrva&iZ7+7IJ%0*s-$kX-IZe2hfJkQim x?EeIH5$k3~|Jl0uPpn)%{X{g5MV3we7emICq8WRB-;X1l@jFT+K>hOz007LYdZPdU diff --git a/elementary-statistics/.Rhistory b/elementary-statistics/.Rhistory index 6efaec7..5552d1a 100644 --- a/elementary-statistics/.Rhistory +++ b/elementary-statistics/.Rhistory @@ -79,3 +79,53 @@ pie(tapply(painters$Composition, painters$School, mean)) barchart(tapply(painters$Composition, painters$School, mean)) barplot(tapply(painters$Composition, painters$School, mean)) q() +head(faithful) +duration = faithful$eruptions +range(duration) +breaks = seq(1.5, 5.5, by=0.5) +breaks +duration.cut = cut(duration, breaks, right=FALSE) +duration.freq = table(duration.cut) +duration.freq +cbind(duration.freq) +barplot(duration.freq) +nrow(faithful) +faithful$eruptions / nrow(faithful) +help(hist) +hist(faithful$eruptions) +faithful) +head(faithful) +hist(faithful$waiting) +hist(faithful) +help(barplot) +VADeaths +help(demo) +demo() +demo("graphics") +hist(faithful$waiting) +interval = faithful$waiting +interval +range(interval) +breaks = seq(43, 96, by=1) +breaks +interval.cut = cut(interval, breaks, right=FALSE) +interval.freq = table(interval.cut) +barplot(interval.freq) +breaks = seq(43, 96, by=5) +breaks +interval.cut = cut(interval, breaks, right=FALSE) +interval.freq = table(interval.cut) +barplot(interval.freq) +help(points) +points(interval.freq) +barplot(interval.freq) +hist(faithful$eruptions, right=FALSE) +duration = faithful$eruptions +hist(duration, right=FALSE) +colors = c("red", "yellow", "green", "violet", "orange", "blue", "pink", "cyan") +hist(duration, right=FALSE, col=colors, main="Old Faithful Eruptions", xlab="Duration minutes") +waiting_period = faithful$waiting +waiting_period = faithful$waiting +hist(waiting_period, right=FALSE, col=colors, main="Old Faithful Eruptions", xlab="Interval") +hist(waiting_period, right=FALSE, col=colors, main="Old Faithful Eruptions", xlab="Interval in minutes") +q() From ad72881793caca24ee135e29433559d9ef63b2f9 Mon Sep 17 00:00:00 2001 From: Dan Buch Date: Tue, 12 Jul 2011 21:32:36 -0400 Subject: [PATCH 10/18] up to cum freq graph --- elementary-statistics/.RData | Bin 6132 -> 6411 bytes elementary-statistics/.Rhistory | 41 ++++++++++++++++++++++++++++++++ 2 files changed, 41 insertions(+) diff --git a/elementary-statistics/.RData b/elementary-statistics/.RData index 637e019f7f57de0e5a2f70e2524c5e7e37c14cfb..4c85a28629edad039adbeb560465aa554872bf34 100644 GIT binary patch literal 6411 zcmV+m8T95KiwFP!000001MNHqSW{WnFA0PYLJN!q8-g+xK%|KXCQ6a2GyxqfAw)!h zUL_kGHMNw2#>{uB^#0o>Ofdv@^1$%eF0xDRko4`Gfmj~|deE)v`?EXLRo9k`o zo_^1L?{G6-_Wq_!e&DbiMYuyR1$vRiH>!xlOMrTy1)za67@}nVGwjhgoU-lHDE(J z0l#7wxPU*v1wKQx8Cga;2|rOLvJVjbk}P9axQV{pl^zudJd*KHNHw{D{6wE2t|ihY z`wDU2lGjqZz)$pHm?!Qdph@&Ik{t4JEL1RG5Gspf8pwLGQKer-8e15e4#m5shNi|A zgsybftfOmYXhxisb_~rsy5@%F#93*_kkFNO+GgdrQsjs7B7rHK)mc2gSSXUVT1en5 zJ};C%gC7+(OC*>l1*DOMj1)$R_yUBFibgeOMTPUlA;Rz>A^~403W@}#^mL_9d*s!% z)r}O)8zR$&u7&KMz!+PTc4?$cV9g{#N(hs**@!^sglURxJ9$bg$tto*TBMBkwqe8FYUx5#biOcDC?cDiCK3bzK#U+XR2U6*2o?zh;V?BnL>MX% zLr*B;g$D~zPa!Zg3U5b*gwKUGKZX}h;z5Nk42uv(hR9Se?MhEI%u-rpr>#0-3Z0gC zUslU@rzV0^CBUm9cr_#x%&VYzII$qQ$zT-;cv+}cL-VSr&qiawgE9e+3V{y5s-wb0 ze4xIZ=o$pkjoY1-1~_CeG(t^|esF@)5MO|oN}@pv3JF83QMzD(A)OBAg$blSK-EIy zz;2t5nn1%G8Wzy7goYI~MxzFGqzT>{iMLGgmKokM$6FS7%Mx#m!dq74kbsz$3kf7w zLf)>>N&-_9^8!N!Sm*7aMYM-V5Qm&D)qjF`>IoLAIW`d_Dh9%&rBs>^!*h$ZZC=uw~VL^mQ z5E^&k8SA=8 zPfng7JQ58l`UoP$08aPig@;5%{y=(W5KqjL##1R5U3d?JKO+)x-eyZn?0^1Heo+46 zhZO0fL_B0}HQA>lmsKo#ZgQI1YcBI}V^!#{_FSr6>N5JEM_l&6>jepHAy-Kw(7o*A z5iT3S!Mawnwuh@ZtL@=5dw(st*JCAD-B+R4MsXfj1Ms(VgRiHw&*S4-?RYrf(`3&! zu4el<@P)&vpn1lsQLcptKj8e~{4BWLTz}e;tKlQ99QJb65IxP@ps9T`8C*@^_pt?M zam@xU^L=`@k(w`81L09a@?(0XuV#*0#c6&rMz)Zv)s7FBPYc0=+%3A7w`aWY;j-88oXX`hl|PUfy;h0LT6WgbO${|zw!KZDdV+VEwoNGZ%*v@ z2l||bOontI2IzA&QB7&b1IdL>`fg^2Z&^F(30D*8RpTg?<$QiRZYK=%jQU7VxSkYq+qL1{5^QDgbhz0nN9Gb{p8twYzDk3-yv`!1zPaW~e)|@TM(!BzHgeOrb z;6Gq5uphDu=o9>ajpS8B{NwNl4-M&0Gg`K6c!%9UZqOrI#|D30Ib4RAtA*rIoqsiF zw7&+IT`N=f7%ml!10BtFJ~)lQ7t#wA^bh+B?1lJN0RIKMgB`#=h>jZa=N9l2#6K16 z)6NGj2lxRUt=A;^zh*msxZi_)Fcddbk=`_rytp5t{h$T>BD~-?_#3j*gctS$ii5D9JN5(E5A6roM<_0L=nwQDf6m}|z#b}~C&VAvALIc0X^{L` zvprtm@lO-2$Muc)f^!4G|Vx|4k|TPPv4?C`td%a}W58Djp39xlRc0LkVi?FD=f}V%u)g zPB|{d4{}_8u_`*{vPj|o&nF~1&P4faB!hDmYkN4CT-zQ_N}22_=WLtW_HgoS+8)j= zqqc`roFjWqan|*3d;V-z@xNH(ofAN9sl)j^Spuj#5z?Iq=}v@nCqlXtA>E0P?nFp; zBIG|J5d!Zgq(lh(L36OQ$o^dDCoQsj8nSC5+ok0W)^^QAmK2eDH)3M=o0OTMxfS8X z%F57!@KR=BW@tf}wXia@B+Ocx8Cnu%Ev*bk5oSl38IB^%j(Re z07Ik;I1~x%m;{_u0$w^M??=ERF=e2P$=g|(BqM_at3-e!+k=70`xb?;4rl{U#Pm=b zKO~(1Uh;l`LMPNT0u7)~Tn9ApPfV=CKWHQvzy)?;66lcaOY|Q|eF9Ai!EQ>Vbjg2g zH2ky46g*ZEk|}UR^pci-(()7P%gQimv6dDCtnK1lr%!z54?gk#qZQUU0U&>b{P~oN zf-r(7BB=nsnUpL2QPvkAwv7jgEZ8o`ms!H!TK9~vbH6o^DI;4pTx2|dMe5fPzq5tB7u z7%3Kp>)MF~yf6TmB$mR1OUZ84gog5Ph)(CTu@^5qNEl`uDQLSPD*GvfbTMV4v>jA^ zIsTNpS&I73?PfjrVd(`go6{3+*p%-P`?{|G;L$7mKx|9zQ9tcG`fE-6w)ek34!D^3 zU`BraDU0nJFBdPD9MhW?!(C#u>RxopLCc+rpHltbAHALHW6qrNZ2yL8+ZPHw9M30j z2+q&48{6-zS9Mh5%kbULe{R%iSTb=mO&rktWU6`Kl#Dp{I}-C7D;)KF_m^62onAju zF-bGC)|gu#L+x*tzUK9tb*KA0JhEb#qe+@u|75=Usn`mKtz(m$Xv;0VSf;Kwiws|_ ztaN)C?iRY$Nyp9FwQBknh^^BM^GB(QbpjDE$N1xq0_QZ@SQMy`q z+4akH?Us>+M*jTlnzN>Ewa4%*?I3zGJm>GAH!lxXkx&`%M@;@#hT>>G|)o zB}%7%OIukIY;6;^?&BHe?5S3cbN#}1EAQwrc5CHiL;v?v){J=Ot8=DY)6;R&3&3Du^XrQPTQi4iBm)E6#6ZFHeiyvhj0wcbk~SsZ$G~h%vrPOL2F>i4vB3%7JVk@jrMex{MTD^Gcp?` zy{pq|oJJ4nLwQp1>?6zbd;LM$#LdT243=aL`nJ8SO53i;mUYrE=VEKaY3$Eup3L;S=Gjkt4SOA+^7wS%-JuCqlOD7dv)(**ZCF$F{>mROdQVyY z@(R^P|4}qM_DGZJjgT`FMA4^=`vnb3^6TUIYvn2BkXH`-td8Ee`8US;d&`nP7->yp zy}6j0Z6Tg8Mlrg4d2QHNm1hdRHrm4+Zyrvy;Q>&1*JT%HO)Pn;V(@J-E!(*C%l^ZA4`}EP+4gKMtM@?7 zJoD)%O-;TnEcmXIXf9Y+c(rh){rTa03)lZGdfmHIH(Y!MM+K%ZmTb`Vu|8Mq;pO#o zq(k+^0WZWu=ITtyEQwCZ(>`*v?zlm?N#maA{mEkc|p5& zem;H&-h%p`-wqH-qvgSrP;=x11YsF z)ec!Zioe?&Zu%p~y)JN6Qygcr^CzP#Wl7GPbFI^C1Rfs~6GMwzrfu3x9pcqwsOWjw7 z*i4S7-!y7t&-m=ZJ_Su~zBYwY(kKvq_W9zC7;W(?+Lj#l>EXr`$KU^&D+-hwOXOz}j&x z(q_t3zdDf$^+Vt!9s36x3jL2ZR9W}DSNS3T>GeG4&8galjcqRO-dQ|T@Nn(o1XD@r z(A#Nxn}lkI^jC7$c%<3qsj2Ck);1S%FFyK|^L%w*r+NF*&rea-(J&YGeK#+V=W{T# z5BufgE4z&<*~Jt6x6NF3bjwAPc&#BlH&QbDZGUC+@#7`Y`L`A(`i%ny`2|~8P4@kA z|8%+E`ZFGZP3NL=H{E@mIDT-J5mwrgW#b^4=8^S5y!XQv6{lmzTUot7K7P1OzsPF@ z_e-2)OoY#<7v9yUXD}Ps15%ZAo1A$kSrrtm6X$TlOyS(f9MUNS^#6IBjmm(o<8%pY{D_QdML# zW%iyuH})p6ZF*d9nzO5F=dRwl{Gk>5lk;n0#%5+2Cp5oS?=ztvY9nhpO!DW zC>Z}}r8A$IQ~!L3LjKeZaa3kPiQ<^VvYchv2X60Dnq|`L$yNPSQ5^RyM|<6!E7Ofq z)iW-YCmma|?SM#f#M?Ua(y9A?ZUaI=zdF+(5 zx~#Ng_b;8!^F1`dC_3kI)vady~pKDGWn5Xe5@APJt zq0hB5+OL)_z~2A%F>%POd+S%|3$CC1%4hv_;pGtBACiX4g8MRjLz1G*ti+Fi?_y~0TPs2jC3%5hsJ-C*-w`;6#&QID%^o+ui`Srvb-?y+^V zzrNvus#o6~0;#mO+=zMfFTI!B9a4FbqSxeC9yx4a@~Ii&&)>Z+`8d2qVaAqs2CDV8 zkCj`M_P*@#VMNdQ>oUAdaxbv8(|Zb&T;c~d%w~?*>=`jS%x>(~hxS3GwRMx~D~ewC zZQ8)mH|?R7^;A5{*|L)KuBVQEyYzqPHjYY%NZprlx-a8&U&iUajPw8ZG7bxZVfS5} ze=RXYhhGiR;3uk-f3Z-1P=4@BG5p~8XGQTJ6!NB0`Ui!S-u-KTsn&5?x9gkipYZcL zI@a+w48q?%{S$hw4BLzdfha^M%W1aX2=gw$WDnOB zYp=cH+UrTEKbec>(YP;Z+&PW}2lJ@*M)MO;?StsKU?e)2{5bICOj-~4Jh}4x0$$+L zn?xV*d7*XQsP=&MB>904Crp0c9nJfa*1419fIiRz{yacVSRW^k*Q-DtKj;(a;C%$= zNx}jS0G=5{()ccKip0Q@_2wQ&L1YfjvPP0&tRNPk8D?81n)wE1AYJx9*=-8 zv<~b?_5;{Ac$~xJ>G;LT%L((KSKQw*d3@yafgJxlN%PRh&$&2xI^?(wHSV`0Ie-s5 zexMrs4EzC)yK(Y;540Zl7mydmx$-q04^WNk8`b2vPWCI<9{}%w=D`o}c#i0S-9azV zNBolBQYZ_s_Wx&vsie+YcV@uqX`JsZ<*`27t0bxR_By3~tRbW$}MGaZ{cm{zn!UMR8FG67aa;G2)hrxF~TP5=fGZ z<3y6yE~xL0`qNO~3-!G@(%J`&`<6&+KLq!e!iiFY`4N19M5>y&(9x)zfENM?alD8K zek|%yLj^ou6o3|o@gsOb=4Ew(rmNvhH<~BlEfo76ct~*MaJ2$zOKJ*|O+_#jG)9)z zGBV^s!XlAsm%S)Rn-=#?UZ>hB-7WpkW1#38+CCZ;Z9ZV=WV` zWs0@Tu$DR2vcOuFSj&o_Hx()UP1$}@shda>9Knqt(olumpa@lYEmp}!yX^H6;*|K}#frBg7vs%_r}Fg&0~eW{A{o_=hQ z0I5CSM_Zxi|3`FbM8m!h=yzda1kZ`)hD8Z^l4VRz1I-F$G*kLp1pp2+T>^)hkB7qw zp@5{3P#@q7Qtyled}TC?C2hIBi|isC!CTCWATGk>$}}kJfF{x zAlRuW;Kv%_r!6>@HiawT2M32i*N!g`@}s!Wb>YYG#P<-;&do^2g)a!<@}gqU5Y?9# zBLs8>KW?sT=Cb>yh|iYtfx92F!_y)a~^b`G7R4*EVeXD@3?<1pT3Q2bPpo-FnGf?S;|kVhb&Lx%i;ctQM7T)>}@ z2P|Z-3eq3LM||Xv|I}k8WMg~d26lrV5giNibMdJ|whmC?mhAA$zerMDsxd^hJCjZ?O4*^wLCj!}_F&=po*6;4h>n6Zs3^ zSe%d?;G-&?H(0)?p&I5P%u^=tLHS8R{?|-^5#xm9kx~9(^B&d}|{J{>0pBf>b)urnNw*ILjdd%NQ zFSu_YeC$5P0zV-*7BA#?GRh})uuB>@b{EWVl((>cQ6L|nkNgPphz5BL_c6F{pc?#0 zM*af-W9uK>r(yk&^$SM@je~uF5B>vvHIN_ByzRAzu--#nXb}8KhWjnbXKekF-hTTB3et-7k zc@uFc1pc6t0;zAG^oLLGgD=>N_csxTj`I~B7ijS`5JLqVe`+7RKtJFGIfIWG(MAOV zf8x6zVvbP>HRYf1#^-Whex%}bB=R8>YGMKV@i~L1#mgq<3Vz-aX(@g1$LBD>@$(2| z;`5APhh&XWf*m64yJ^3UH!?Rc8I5&K3`~s7aa}Rgw6|+&V2X!|I|gRGT{8nSJXG8< zz;(r)Z_xkRJ{^N7W2+(Vm7zp^$$OX4I5!Ow7iV#?m4@`Yw?p)P-VXhXUGd#pAj0ww z4(azb*!TPTZ|{c|b0zzF>HgNIge18*t|V#gogl5Jq5gCZf}?Ri!nkt+0T1A)hS%^@ zQ4O!-T}T8uB-wG$%b7qA{Jc1_`T}3j(}y4*_+iHbsP+VUg8iTe96JEq9l`wwbZ{Io zozMq)pr0q$3G@lFe7#F#`GY?}4%SC_UIe~imoG<_FX)BYgT_5j-yi4`WNS|j!45R; z2KWR$AfDiV;E(Yo=nwV+U$1`TLf&EY1be0v>;eBd6Xe5jkvGthWc7f21AV|AknaR= z&>QIo`AN)U&QV19}5LM}mFWyiOp%O9*_x zPLeD=Hvbc3^#OZ8t_Oh*^n`d~cB4M{Iekzh{0bPk~4gLpxA^)&AmB{h|xtM+= zSvunS0eJ@FM0v!x`XPK50v_lCe6aNh^g?tHKVlxhyusEvlB^v61X())4t~Y*og~YT zcz+aet|yHm$<)$=M%#IR`MVQ&&BcxSJG#oHU&4P zNb22l08Ad&hW#IYe?!C3)6h7b)cYJw#q}vTKJrKhI!=Z>jvt&$({bYr+!*MKf2POt z>PrrtfD617a5CUL9`vB$aDbM98wdY^912d30*(h!AD|=pTM;Lp=p&*$@H@mo4u=mh zf-y2lHuhu!Kkx-!7Q_&fok03_$&tQ~FYMpwI2^oO;6cUFF>pL7IKB!b**pRr@q0W) zl5Ct62{zIRxHKFdF&=c1Y;KWpbRZja!tdw5=|k`d@FmU%Ci-c^B2GA?d3!u}T44Dr^>)WFONw-d86FvsoU%uNlSI# z!+BA{e&kbvLi=E<7#+qlis43l`@HDe7gg-y0cz66xp|2TZ#=04{SH=HZJ*sXo|>Yb(`>|Pi=zxP&07EJ z^~SS9YLBfR<7k}eHY_z*^-TOdhwYP6JLOhccr#60Z#65m8W%-Yj>Q;vMDdq^y%un(80b&r74ejGP@^s-padCEv|RYYS?aka?0Y~y1DIl zYr1{I&#fJ}er{pw^1j3DipuV6VcB8k-4Ta)Y>L;I2u{vh@&Dy3&5@tl$$q!xeZ1^-)PyR&iiAK+NGuY#K;X{IR9=5mtylc_e z(R;>?dGqllZ^8Pdk9vYCcZqBhNwMcbUTe;FDSoxRFgvG1G`KOd$!Wr=3bp1o&! zeQi4|=dtxfy8iNUL(BF&=t7(sVDwwYyySA@ycz5Nm7lUW4s=q?9(W{GP#UJZbz7ckA zsv!1^(a?~QDgHyeey=&B81~ZPfYtFEH~&H3^k8Lbi=l=G^L1%Pp1E-9L~3mHs^-Yg zO3&o|Y&6F>-aMLN#pxdREAx>>S8dYVFRiZ*+=_aUEZfbvsM$RJ=#=`h2PEI>4Mq6{&Ypud z#_5g>(RIq0cZ7L(m44vwqtD-7+S5#;s~P&feqGe~rn{hBhdjH=>C#ez(@7~G4uw8T z7Yw4#Ra86{vgVLG8Bjdc2-RjKWEo(CiGnpB>KU!f^n|)4w_r5M-=lkU3h>Gr6Teeb0d3V~lKV?>2uHYwb-22DMeTnzi7&l(d z9`kno@L4t;^PB{82IWO_(k_fl{@uySBT!MRc$KiqeNC9n^ys!NmYWAA=9LX8>2&k6 zDJ#0QDavn&?hE%UdQ#5S^((`Bv}u{k(nE?iBrNQx(hOHFAGLP!V(Slcu2pePOpb8S zbj{zQ&SG7jeE4aH)3u5UZ~9Zt>pQxRHie@OJZWd{Iv-;*W2S$rK#9^4G)>F?QCeBR z@%9Gmfe&h0il1IDa^9MudDO_JbnotpxxCs9%aTk)Rip1@>Tcny9MN0DUhkP{U!O8-waLfHy$y0vL zH6&Ga=h`?3W_jke2=}*aQ*t_SvWGeN{o~pldgb2ZIG++k6Qg}CU-&ehox^Bnm2`P3 zo}n4s8Sg4AIdLF8-}tw=j7XvakpZSfQ<(@m*;XqM#c7bnn^Sjc=lju4r9G#-jP;1XjpU=;ID=O!kuWEL4 zdOWDpXzz+va!&?HUSCNVvH2?fEOYIJ*Di)tMmzQ12AunKOUcPMw-*QhHCK1<1h+Ne zw{(`Ir6yW_Y;JT3o&WawlX#nran*vz!cWou!`6=sShm9I_Q<_E+%7M!%Gs=0l<(8N zrP%X&;>zV}B{3e&+uz+iLpB@Oep+Nd{m!f@^3UDn-DB4fmdj5XqsncJCW`<|4I5Trff!`P7hH{%3^Y`t$u|I`nGvIpXf;|np_Y5u! z9)0g%YH?HCq?}x%q^?)0L#7U;*Ba-oYw|Gquxe>3Z%W-7=U_&D+w)QK#WT|qD2${^ z>cr&R`784d-PuE%XWZq*QT}kRBH>xS=El2MW*cUxW?!mKIk9}lA%WWwTyFcD1kDB*j(`r55 z_0yk&nLiz?Jt1&e>r%2f;NwKBTI-bz0lK@>klOX>2`{0UEhag_h11HN>xR;R{eX z_$5MrUvLr&rJvHzH^A6e2LD;1{*yvHfu;SELfFmrdHVT(_SJFk-a_hc;#nqqSPdUp z!>bHb|LwEP|0Tn|+xKAU^7nUKD#&u#-xko><>)s7MTFlHz<3GzjR5?HfYATDzY+Mi z@Z9%DwlO@RFf1w*|GN~>nARW1kg(7&VN74Hj^&0)xXp>?3Bvf2E!>Y|U`hSs7+6~W zI0i=e39|b9I0ly0^T#nTq6fW5viyG>154{4$H21nk7Hoje&5Hy`t z6BEZ4)hRYz3MRHbZE)2m4}+&i0V0pD@<1xvYRfn#%GXiMJ3OalBY$x zv2S<=$1txiWH%iNTpi!QVn6(FDRAtSHc|5>o1{C(+}ItLdJ5D$zl!RX6pnQ1$z)&I zO-nW%I#6`8X2aEihqOfdjI2*Cpj;N6ev_Y=YZu6V^U^WjKHil5A@63YYT!^&cZ~C0 zy>VWmhoi49D9AHrSMQlb{#Ea(=+=tK^_)BlcI~b-{zlG8(Px9b(OJ=BM9qh)@5C!S z6kRQU#ky;9o?WZD-SCgbN>SscKSnD@PZM>|y7y(i-Fi{$c%S_Am*>PW>HZJ6EGdt~ GKL7wShC#sq diff --git a/elementary-statistics/.Rhistory b/elementary-statistics/.Rhistory index 5552d1a..f727142 100644 --- a/elementary-statistics/.Rhistory +++ b/elementary-statistics/.Rhistory @@ -129,3 +129,44 @@ waiting_period = faithful$waiting hist(waiting_period, right=FALSE, col=colors, main="Old Faithful Eruptions", xlab="Interval") hist(waiting_period, right=FALSE, col=colors, main="Old Faithful Eruptions", xlab="Interval in minutes") q() +duration = faithful$eruptions +breaks = seq(1.5, 5.5, by=0.5) +duration.cut = cut(duration, breaks, right=FALSE) +duration.freq = table(duration.cut) +duration.relfreq = duration.freq / nrow(faithful) +duration.relfreq +pie(duration.relfreq) +hist(duration.relfreq) +hist(duration.relfreq) +duration.freq +duration = faithful$eruptions +breaks = seq(1.5, 5.5, by=0.5) +breaks +typeof(breaks) +duration.cut = cut(duration, breaks, right=FALSE) +duration.freq = table(duration.cut) +duration.cumfreq = cumsum(duration.freq) +duration.cumfreq +hist(cbind(duration.cumfreq)) +interval = faithful$waiting +help(function) +help("function") +help("function") +calc_cumfreq <- function(records) + breaks = seq(1.5, 5.5, by=0.5) + records.cut = cut(duration, breaks, right=FALSE) + records.freq = table(duration.cut) + records.cumfreq = cumsum(records.freq) +return(records) +calc_cumfreq <- function(records) + breaks = seq(1.5, 5.5, by=0.5) + records.cut = cut(records, breaks, right=FALSE) +help("function") +duration.cumfreq +interval = faithful$eruptions +breaks +breaks.cut = cut(interval, breaks, right=FALSE) +interval.freq = table(interval.cut) +interval.cumfreq = cumsum(interval.freq) +hist(interval.cumfreq) +q() From 3477ee16efab8328d504c95c940776a6edceb49a Mon Sep 17 00:00:00 2001 From: Dan Buch Date: Tue, 12 Jul 2011 21:55:11 -0400 Subject: [PATCH 11/18] up to cum rel freq dist --- elementary-statistics/.RData | Bin 6411 -> 6923 bytes elementary-statistics/.Rhistory | 64 ++++++++++++++++++++++++++++++++ 2 files changed, 64 insertions(+) diff --git a/elementary-statistics/.RData b/elementary-statistics/.RData index 4c85a28629edad039adbeb560465aa554872bf34..59b3fc358445260c60d533f4460a452a726adc0d 100644 GIT binary patch literal 6923 zcmV+m8}#HKiwFP!000001MNHqSX0TmCkZ8l&{=yya9K-0qy_{N6;Ybf1az?k2#5l~ z5Jc97fOSJ1Xvqp>5d=Xe=vuP>3|UcyF8fE5B@J0p3l<9n(_>{NZCTRdI}^r zrs6O$Tj99S7w-c;RKw`2wm}Qz16mL>xX-9Ms!{0UI#FW)k4vhKZPCVKxh*@YVlqTOFj79x=_2pRTh)IY zY;MD`>`zuLIhN)&SXBnKYN=XrtZ=BT!m)0tT63&%sI0=ls_TJ^%>qC+GRqUe5NVTec^ z8Vf=h8_6!k%xmOi6f2z3Pi_q(8~MNB1SboHHZmcI1_~o}L`hbxLnvw(nC7HlPivxh zMGj=d%4KhEmM=Lp-d6%HvW?#fnv~emgA>SJkI7z*ZCFYzL=-6!Q{BxF3qt`RK^Pe+ ziU&W0i-p2y0L_dLMG7TQ6Nv@U;X+hX366{-%P|qr)1e%aAc&^Opcx{HiV?*|$W1S+ z%2qYPR+i+eu?`Z7jZ}cTJeQA7J%p!);cFp$ZKM>yH4z+EESTNoxT+XkHp;aTTnp9p zQ5(phfzi>#_yDdBN-QJ?sw=6ki>Yp|2v!ErkmE40oI3l#3d%ro0bM$U2O~5h3W-K* zLjVKev9H`yY+QB+ae-DT1QWb0M z!&Yu$g-nhSL_|x3@|lZafChpV8XWBne1OB?mcwDN<8YW1)DSlU)d9{Tl$TL7NiYD; zXgkR@V1TkPfzXCQVK@{X08SLhbdf@6)}5z6iXEwDR63yuwbgJ{FC#h|tp99s-( zYs0a_pmr7@dkkuC!LcWy%pdJ-ID;)L(48J-35^pA&^XeT z@5%Y>V)=EASFgzVto?Nrkv}{0=_Aq?sP%oo*Y9(sAX#6;SJw^pEPH=|uaEGcUz1hy z#n%gKzIYA3UrO$DTFlq+SLw1wlE>Et`p99>pQeD5?FI@uyl)xuYa?F|IlP|IUlYNZ zOYPhX_r4?LBjuTOqoL-63t!hymW|xO*GByGaziKd$YS#KK;DNoyg5~?`K-5@*=E}Q zd|gCG8|hCNm%f-XY$>nd(GYn@zJY=ssh7Y1b13jdN9`cv2!k&Cpgr|%886f}ZAUXB*rizakU4%FS{(Kt55BLlGhx`Ke zggDSg`f4NjNqj_yf$XOjFYh+6#c!ZD*b(*9hj?8)P)?X{fb`Ltc`3&}P?xV?EjRZN zJ{`3KA3cQ}ygHBz*@X`Fhw%meLUOA>{DR-X58xlfM;pa+Bg6@kpAP;}$U*7>aiE6! z>rvugPaz)}_uwA_%^O#0Ti;D8>yLFS;m)aR}p-4Rla^(viIlk)0c>R?7mh4_{vqAEbQ=)F1l6yb5-O zcnA3ylsHCsE%OS(*8};GeZbx@zv)u_g!s`={E_1x<`rZ=79NSJis_Y^Ky&*zz)jm3`qz4p$T?E@`3+B5AdHZC7$&Z^94Eo>7o9l zy^&n7ZXkSe9n%LpAvozTWOo{hCq2+h;Wu6bjBgaTFn`e@9-xlw2;)c{;u_X5ST|4( zcBCPDf&Iz(57udzKa}ml*GBE2AK-)iKwbl62Q+S5^r6i65Elj%d(vRNMe$6|UyAjY zdddLzC+6glnEW9}^Cm>TZwrzo`Hi(~t4S=9rQc*-*@|ZiN;htQ;b~y&BR)*0j%Ohq z&q6w$g>*a%`8PcaX>~~R7d`#><3k-1qD9Vz*da1Z@BJ||^^zr5S#naiwAJAuvz^1k zzt|M54hbpK|DQkUZCMkQk9nEAOGNXo^GMI0)%D2loiLCi``gpIX2i$ znT-|427}sgIkp(o){0|`L2bDlI}B=P#j(Snc3ch@gL17nTnx(Pa_p_zJTAdB$B#?o zcbTxwQbD*3Ofx#xra`o9VF9LsmEkx6-!7|T{nb%BlW5tNsbY0HMn?t7z{Gf{VD#X{ z7be!u!rDMye2a+FYKsq(f(x|NFdp#256Gd8;Xq#&)(-XqK6H$a8b*UE5A>tjTLa@y zwGovc*d6@9!0^FG&_*MaeNUs%16$y{z=tI7M56g(5Uu?S#{oekRIz?6j3ynU zt41it5y*%i8E6p7e%7Gq$fV$^V|Y}5FbU<@qGA1jH^_t^4>ij}u?f(njt59;SkAzB z0Drt6@F2ICL`!@yC^$e1{KCTcQ2mR?4;+00Pa5Vob;@zcf9!1dXAe`zxe_}}fhD4g zEcKM7?@(Qy2FQ|wESVC`ZzQ(b;;{Qh*tn~qa@)Gjrk6bi>0Q!o8rpxy&AmkU{ zolxXHiHdwIs>9b2@KuFBrQJ1=f(LMv`y%)#l=~rmZUlu7q1+B~xl;NAJ#W6Uyg(P^ z^ri3zdOoNhyjbG}{VDo`9HR+kxF>@9Q~G&Q^ng0>1Npo_Pw1bhOc%aR0s3H1;6v6C zo;QUq=;g;(rVDbB`k;3BN+tmMCo1Rg^$e*8YWDzqiX7lius_fz=~Cn;zs5mu_)3S$ z7vhfWPtj)_MIW%AD~119l>0zGLRk)oH;@PP0sf-_4ss*;AU>&a3~~V;@FC*}wfj=q z0UzXt@kRO*;X@q3cmV%{e?V@a=R(ns9M_2ycmahD=t(H|C&z!HvOJ&<@Et?x2XcZx zNxe}W>>Nl?=u-5AH~~HohY&~59>7`KNvp-hjuK2YaBZweghkIUk^$v^UDB^Ex%IV0-}nNCbyCAm?+$ z5Bv^xfjW}6y&FI32bTC9JM2tg_XT(6ki#7~zH?F~l<%?`M9WS9-zCFt1K-`?cj@X_ zU%=PI%I)ovaoU<#8@?-mof=Myj?vL1ly@mqnQbSf92|5&#EauuI1AahhP~ws!M4J&>Ea8>5~)unFZI7w%usR}-TP_Q5|} z0{Z}8kWYm|6OS7>nE)Js<8o6^5O7?`!JfFEaG4?gsWkCjGae@(zY3x3XWT|@jSE~a z2F4%n2R!f?1OI}K_z4MhmyFAek5B3@86Q7%%pcTUG8<_A&E9(dlbdMmmbnz$MY9ox z{PBhnq1a99p&p$H#itndsH~~LZMBoQ+aRhD6CpH@6+||FE!g~lBrpGz_v?kdPVvgolb_O^w^>dxyLcCV zdNS&e;cVV6lp{O}J93s99vLSL7K+6Q5LqLpVl~xaF)@+wJt=#*C{`khHX0!o3ZejE ztVD(n#*=>>6d5TXFMvBKsLUFE;{AnQz9BP)kiUPwCbX_cn4Ws_B> zkf_Xp=M9<3R~^f@OZ?qez4Pi4y=PuySG(`F9Q?T|Y2({p9|oOExi>jK|G3SjH5ZB( zN)H)NOyJKoTY4uxZLjSX)sN|cZx7zc^|NM;f3j?-7u+Uu<8=MtZH+9O#;1_ zRp#=SuU4Mue*eIt0WKC99=%dSbdJxvHFCqy)OyB3TOYQi`?Vs@i^aD+9!GmbZW!Io z!@<37?w9?61^!<>xjRfJhRhyTqW8G`_0|hXlM{C2^k#IjW7j*G5pzB}A6Y$pn(K@8 zH*fdX6O9w*%}hxS*rwm3G~}-7C)y#~E-|ch-?n*s!jKa6ONAHQKVLCy99(D? z7?NFe%F^S;xD>6ibwxeu4rMwP6&m_B)Ss#2T~<}s8t`aRQ+(Kho6+ywZ=5i2TKVXx z?X6`~YH!|d^qYQiY3Joraz9+zyv#L~7rA#>*4x)TM}0r$ht>Dh^514l)ldAAvA87M z!7*y(`;)Ax6SywZ1ERNSZ05=;eN}qUEDr3bZ;1|UpK*j;(852k{&rirRV%7y~pZ!iG~OcReHT0&l@b9-aRDi zZf))No8t!d-#Tc(>rXF))0WS^*A!f`S?ZKT#Ged(WjM(#|K*0<-C1?gu9X>8qwV{3 zr#-s$|&cV#h-GoPrgsH+iO}i&qFIwT> zMR!*|>sVI6W$&Jn%f!nd&4(v~fA62n9eb~-nEmRZd+qXyw-Y@5~IwuwR`^&$f|_ z8loCszOXv#i{=v*e@DXsF4y*_bNP*feq`UXZMdI2Y>8}?n03X2m~98W)%R`Z~A;?UdWefH-wBd>m)@6!7o zlTl{Bb!_>PDa*=joeYo8xc=Uzuids{(kLuYj=&j z_}Or)%8bvZo)a?+d%P?=7dEEkv8L(QIgD)c($Bm0@7SYj)NkXH>Fln3^zy7H9kaCf z`cuKTZYkEnm4%lI7dxLBxTA2@KjK%uIeyj6@B6smH0IpZMt%;bi@kh&9uFQ_d9L>} zNx$jcMrD=6r{x(QIQZePX|zS%_V`_?Lmr&kc3|;@OBIQ$#%%YUvxRlmuzK+R;m-^2 z5Psz=@^VhOdUaWuVB9yr5ZBpsz z^Rqd}l9znk6aFMk+(mVY?hI%4-Y!9pS6wR$PGd{<4f09xcwqB(PK|Yh<%IAZF>0%7 zoU@)!|J`fy?4S1B|7ubDIyLW>m4jc+s)FIWKNW6!WSW+@;j&3-w)v-ET6JUP$RnGJ zzd7!&|1HP!L$F4zrT)U3m&!^te^D(>lLa``m z<+fiIY)|@qu|?&D-2>iC?LE=4E^M@Ta+mBF{^~P*Q+^)J9TTL{Eq|e;)N^r!WB#if#x9Pz{dPX8Wp6$m>o|Tw zzz4A={ax_bZqD~s7X}`zt#Igk=k~k&$5--P*QFcoH+MX@ZA%3r>$*bS=~^`Klk8c&eLT*M$g!pd1kyuH(hH{k2f=d1%7+8y6ZoG zcyXKAZT;dgfg7hRIJo|tMUp|k&TD8{JvY5@eE-&fIH<}dr4B~%I zln#mUvwP-Sd15lFR==RZOXIjY=f+@nNx`9=X*m`@O>wzCX!(vU6;rMj4t&b9I=F9Z z^_$`w>^t>mf_i7y8C1QiephuNOY>}C#+u_l@iIM+^dGr1Z};v~elgW=&pjNlB1lm!pGZTf^A?j78?W0s#ufWJ-ZxM$%R(|6B5K4JJN|F0GmMULaA zZr^@&#}a+VPFL!uZLQd{wQFuj|699K^Q#huW*sq4Zg{EFeN<28eT(d6Rb$LQE}VT% zIQ+q4*AP}t&C`A=`4d(r(pkwRszXxBau#Ioxv^C}%%Z`Yul4a(apIF4!<9ELPBKf^ z*?qoz$)UL$_lTtjd>yjRAHTc(iGIPVbC3N@)m=4JGG?D!veqO0^6tAm&R6{Qbl&)k z4@WW%-93LI&wt-2v-q3~x0mHt8GVb{I4?Q8uluppE}kJv@Beg!wfR&x<}E?tsbYh9 zXO~$YQ`tN`s^8iGv#s;DFILkHd+}s+=s2~V=~f?{rJG`$0|OTp%&fetn_M`x;G&UR z&!@{Po_iS-nkC#eDLc46WK1d!pi9 z=~30;(K#hOyVtMVGxxxeUDGBUea}q3wfktn>~kg#(u%$tLmriVDPsRnb#%`R-3NIm z*0DK$mrokLm_Lhn`^)>3eqnc3Eiw^aIrb%l{oR54hs176-3n#~9`1kTUFN19y{ARq zytd`1!!LCX6SumZ9yI@BNp8@X9_3r&Rv5oE_;UMP0P%ACuag8$iv|v~?{CJ|x7jGE z+8M~$a`)`7b63O`E-_zw>Y=7_VXT_n)oKRquoFwoblvaHyW{V~J*;qiq-vVTE&f#5 zX~Vie6V9xP7vDw((;2V%F*DRYcU?GQpXRePI`Q(1%7dB@mCjTpM&zH?}4^@p)F zw~Ai&s9()9vFv1Utkw#9 zQ{xkUMM#ZMK9^VjZ^q}pNwHS(Muy9uk2GzhIrR&xBJ=}Td6XZ{g7yORgIMr`S(N&} z`wOf870b2$Rw`B~kwip?p z@q(2i?|8uq;U_A~)A53pvYZ_+SfTzP7okkQ;{_{4-tmH!a^CTRm2$o97p!Qr2*pot zT1r1S7)=RUHj($Ov3#E2rV44gvvar7?hewA-OWC7N0{+SpBTElyLnxD);x8|;PipK zdlR^2zvr)#9yT#p^1(NkcdMK6HPh#o()VvaW`OAv}j(1KJV_w^FaeI)<~<*J0{;a;K8dq-*igX>znk! ztlYkCO&Pq4ThvpmdUlpxyS?I4=RMt|+sz#gPorOu9($dWbYw&j@AV6p9OrpfypP$} zQgwoQN*iNcZ<-A9mfr1uY1*l53tsuwp|l@O9!sy!ANHJ|ZOgmAd9`RI|FHB6XIo5W z%m8Wip7I;>)b2_z6}{BIX?dD=UuT2aFO?(mj;r5^_S=A^wi RDf3C=e*v3nMVL_kGHMNw2#>{uB^#0o>Ofdv@^1$%eF0xDRko4`Gfmj~|deE)v`?EXLRo9k`o zo_^1L?{G6-_Wq_!e&DbiMYuyR1$vRiH>!xlOMrTy1)za67@}nVGwjhgoU-lHDE(J z0l#7wxPU*v1wKQx8Cga;2|rOLvJVjbk}P9axQV{pl^zudJd*KHNHw{D{6wE2t|ihY z`wDU2lGjqZz)$pHm?!Qdph@&Ik{t4JEL1RG5Gspf8pwLGQKer-8e15e4#m5shNi|A zgsybftfOmYXhxisb_~rsy5@%F#93*_kkFNO+GgdrQsjs7B7rHK)mc2gSSXUVT1en5 zJ};C%gC7+(OC*>l1*DOMj1)$R_yUBFibgeOMTPUlA;Rz>A^~403W@}#^mL_9d*s!% z)r}O)8zR$&u7&KMz!+PTc4?$cV9g{#N(hs**@!^sglURxJ9$bg$tto*TBMBkwqe8FYUx5#biOcDC?cDiCK3bzK#U+XR2U6*2o?zh;V?BnL>MX% zLr*B;g$D~zPa!Zg3U5b*gwKUGKZX}h;z5Nk42uv(hR9Se?MhEI%u-rpr>#0-3Z0gC zUslU@rzV0^CBUm9cr_#x%&VYzII$qQ$zT-;cv+}cL-VSr&qiawgE9e+3V{y5s-wb0 ze4xIZ=o$pkjoY1-1~_CeG(t^|esF@)5MO|oN}@pv3JF83QMzD(A)OBAg$blSK-EIy zz;2t5nn1%G8Wzy7goYI~MxzFGqzT>{iMLGgmKokM$6FS7%Mx#m!dq74kbsz$3kf7w zLf)>>N&-_9^8!N!Sm*7aMYM-V5Qm&D)qjF`>IoLAIW`d_Dh9%&rBs>^!*h$ZZC=uw~VL^mQ z5E^&k8SA=8 zPfng7JQ58l`UoP$08aPig@;5%{y=(W5KqjL##1R5U3d?JKO+)x-eyZn?0^1Heo+46 zhZO0fL_B0}HQA>lmsKo#ZgQI1YcBI}V^!#{_FSr6>N5JEM_l&6>jepHAy-Kw(7o*A z5iT3S!Mawnwuh@ZtL@=5dw(st*JCAD-B+R4MsXfj1Ms(VgRiHw&*S4-?RYrf(`3&! zu4el<@P)&vpn1lsQLcptKj8e~{4BWLTz}e;tKlQ99QJb65IxP@ps9T`8C*@^_pt?M zam@xU^L=`@k(w`81L09a@?(0XuV#*0#c6&rMz)Zv)s7FBPYc0=+%3A7w`aWY;j-88oXX`hl|PUfy;h0LT6WgbO${|zw!KZDdV+VEwoNGZ%*v@ z2l||bOontI2IzA&QB7&b1IdL>`fg^2Z&^F(30D*8RpTg?<$QiRZYK=%jQU7VxSkYq+qL1{5^QDgbhz0nN9Gb{p8twYzDk3-yv`!1zPaW~e)|@TM(!BzHgeOrb z;6Gq5uphDu=o9>ajpS8B{NwNl4-M&0Gg`K6c!%9UZqOrI#|D30Ib4RAtA*rIoqsiF zw7&+IT`N=f7%ml!10BtFJ~)lQ7t#wA^bh+B?1lJN0RIKMgB`#=h>jZa=N9l2#6K16 z)6NGj2lxRUt=A;^zh*msxZi_)Fcddbk=`_rytp5t{h$T>BD~-?_#3j*gctS$ii5D9JN5(E5A6roM<_0L=nwQDf6m}|z#b}~C&VAvALIc0X^{L` zvprtm@lO-2$Muc)f^!4G|Vx|4k|TPPv4?C`td%a}W58Djp39xlRc0LkVi?FD=f}V%u)g zPB|{d4{}_8u_`*{vPj|o&nF~1&P4faB!hDmYkN4CT-zQ_N}22_=WLtW_HgoS+8)j= zqqc`roFjWqan|*3d;V-z@xNH(ofAN9sl)j^Spuj#5z?Iq=}v@nCqlXtA>E0P?nFp; zBIG|J5d!Zgq(lh(L36OQ$o^dDCoQsj8nSC5+ok0W)^^QAmK2eDH)3M=o0OTMxfS8X z%F57!@KR=BW@tf}wXia@B+Ocx8Cnu%Ev*bk5oSl38IB^%j(Re z07Ik;I1~x%m;{_u0$w^M??=ERF=e2P$=g|(BqM_at3-e!+k=70`xb?;4rl{U#Pm=b zKO~(1Uh;l`LMPNT0u7)~Tn9ApPfV=CKWHQvzy)?;66lcaOY|Q|eF9Ai!EQ>Vbjg2g zH2ky46g*ZEk|}UR^pci-(()7P%gQimv6dDCtnK1lr%!z54?gk#qZQUU0U&>b{P~oN zf-r(7BB=nsnUpL2QPvkAwv7jgEZ8o`ms!H!TK9~vbH6o^DI;4pTx2|dMe5fPzq5tB7u z7%3Kp>)MF~yf6TmB$mR1OUZ84gog5Ph)(CTu@^5qNEl`uDQLSPD*GvfbTMV4v>jA^ zIsTNpS&I73?PfjrVd(`go6{3+*p%-P`?{|G;L$7mKx|9zQ9tcG`fE-6w)ek34!D^3 zU`BraDU0nJFBdPD9MhW?!(C#u>RxopLCc+rpHltbAHALHW6qrNZ2yL8+ZPHw9M30j z2+q&48{6-zS9Mh5%kbULe{R%iSTb=mO&rktWU6`Kl#Dp{I}-C7D;)KF_m^62onAju zF-bGC)|gu#L+x*tzUK9tb*KA0JhEb#qe+@u|75=Usn`mKtz(m$Xv;0VSf;Kwiws|_ ztaN)C?iRY$Nyp9FwQBknh^^BM^GB(QbpjDE$N1xq0_QZ@SQMy`q z+4akH?Us>+M*jTlnzN>Ewa4%*?I3zGJm>GAH!lxXkx&`%M@;@#hT>>G|)o zB}%7%OIukIY;6;^?&BHe?5S3cbN#}1EAQwrc5CHiL;v?v){J=Ot8=DY)6;R&3&3Du^XrQPTQi4iBm)E6#6ZFHeiyvhj0wcbk~SsZ$G~h%vrPOL2F>i4vB3%7JVk@jrMex{MTD^Gcp?` zy{pq|oJJ4nLwQp1>?6zbd;LM$#LdT243=aL`nJ8SO53i;mUYrE=VEKaY3$Eup3L;S=Gjkt4SOA+^7wS%-JuCqlOD7dv)(**ZCF$F{>mROdQVyY z@(R^P|4}qM_DGZJjgT`FMA4^=`vnb3^6TUIYvn2BkXH`-td8Ee`8US;d&`nP7->yp zy}6j0Z6Tg8Mlrg4d2QHNm1hdRHrm4+Zyrvy;Q>&1*JT%HO)Pn;V(@J-E!(*C%l^ZA4`}EP+4gKMtM@?7 zJoD)%O-;TnEcmXIXf9Y+c(rh){rTa03)lZGdfmHIH(Y!MM+K%ZmTb`Vu|8Mq;pO#o zq(k+^0WZWu=ITtyEQwCZ(>`*v?zlm?N#maA{mEkc|p5& zem;H&-h%p`-wqH-qvgSrP;=x11YsF z)ec!Zioe?&Zu%p~y)JN6Qygcr^CzP#Wl7GPbFI^C1Rfs~6GMwzrfu3x9pcqwsOWjw7 z*i4S7-!y7t&-m=ZJ_Su~zBYwY(kKvq_W9zC7;W(?+Lj#l>EXr`$KU^&D+-hwOXOz}j&x z(q_t3zdDf$^+Vt!9s36x3jL2ZR9W}DSNS3T>GeG4&8galjcqRO-dQ|T@Nn(o1XD@r z(A#Nxn}lkI^jC7$c%<3qsj2Ck);1S%FFyK|^L%w*r+NF*&rea-(J&YGeK#+V=W{T# z5BufgE4z&<*~Jt6x6NF3bjwAPc&#BlH&QbDZGUC+@#7`Y`L`A(`i%ny`2|~8P4@kA z|8%+E`ZFGZP3NL=H{E@mIDT-J5mwrgW#b^4=8^S5y!XQv6{lmzTUot7K7P1OzsPF@ z_e-2)OoY#<7v9yUXD}Ps15%ZAo1A$kSrrtm6X$TlOyS(f9MUNS^#6IBjmm(o<8%pY{D_QdML# zW%iyuH})p6ZF*d9nzO5F=dRwl{Gk>5lk;n0#%5+2Cp5oS?=ztvY9nhpO!DW zC>Z}}r8A$IQ~!L3LjKeZaa3kPiQ<^VvYchv2X60Dnq|`L$yNPSQ5^RyM|<6!E7Ofq z)iW-YCmma|?SM#f#M?Ua(y9A?ZUaI=zdF+(5 zx~#Ng_b;8!^F1`dC_3kI)vady~pKDGWn5Xe5@APJt zq0hB5+OL)_z~2A%F>%POd+S%|3$CC1%4hv_;pGtBACiX4g8MRjLz1G*ti+Fi?_y~0TPs2jC3%5hsJ-C*-w`;6#&QID%^o+ui`Srvb-?y+^V zzrNvus#o6~0;#mO+=zMfFTI!B9a4FbqSxeC9yx4a@~Ii&&)>Z+`8d2qVaAqs2CDV8 zkCj`M_P*@#VMNdQ>oUAdaxbv8(|Zb&T;c~d%w~?*>=`jS%x>(~hxS3GwRMx~D~ewC zZQ8)mH|?R7^;A5{*|L)KuBVQEyYzqPHjYY%NZprlx-a8&U&iUajPw8ZG7bxZVfS5} ze=RXYhhGiR;3uk-f3Z-1P=4@BG5p~8XGQTJ6!NB0`Ui!S-u-KTsn&5?x9gkipYZcL zI@a+w48q?%{S$hw4BLzdfha^M%W1aX2=gw$WDnOB zYp=cH+UrTEKbec>(YP;Z+&PW}2lJ@*M)MO;?StsKU?e)2{5bICOj-~4Jh}4x0$$+L zn?xV*d7*XQsP=&MB>904Crp0c9nJfa*1419fIiRz{yacVSRW^k*Q-DtKj;(a;C%$= zNx}jS0G=5{()ccKip0Q@_2wQ&L1YfjvPP0&tRNPk8D?81n)wE1AYJx9*=-8 zv<~b?_5;{Ac$~xJ>G;LT%L((KSKQw*d3@yafgJxlN%PRh&$&2xI^?(wHSV`0Ie-s5 zexMrs4EzC)yK(Y;540Zl7mydmx$-q04^WNk8`b2vPWCI<9{}%w=D`o}c#i0S-9azV zNBolBQYZ_s_Wx&vsie+YcV@uqX`JsZ<*`27t0bxR_By3~tR Date: Tue, 12 Jul 2011 22:04:59 -0400 Subject: [PATCH 12/18] up to cum rel freq graph --- elementary-statistics/.RData | Bin 6923 -> 6768 bytes elementary-statistics/.Rhistory | 48 ++++++++++++++++++++++++++++++++ 2 files changed, 48 insertions(+) diff --git a/elementary-statistics/.RData b/elementary-statistics/.RData index 59b3fc358445260c60d533f4460a452a726adc0d..5d7ee65313a586629c1b15303d1684d42decf21c 100644 GIT binary patch literal 6768 zcmV-$8js~4iwFP!000001MNHqSQFXSlY|;V3#{wX~VudBxupx_}Sh4$q1w^q@|AgE#Oa^@W_Wkes_U-#KAH%uj z+;dO6=gyp&iMMlrB{P7DVHh2wYfAnzBt<2<V`sFCh;UdV>69pCOMW z&rS6e^17vtrFTM~?8DGcUPmw|+0Q6)$j7m8{%n4@G>+*Y>q%Qxe;#6PV`@2os9Ks@ zn%j`7l3uI!s+Fk~xmQv#wQjFkn_825B^6UrRZ?l|mE%g87tW0VrU+I;xIB?SC@Hm2 z&{;fgIByy+HX=mGkCq@Zs6xgFVud_DqDM!qx*@TVJW-e+vcHhe69|K2fGHzG$svop zhE9et{OJBtZ5Y}}{{_W6S;(Z3Fo88wCQ?O|B*jLAqC)DXImxD{wNk7i?PSDAd2ef$ zZYea_Qpj!J*(T^g@x-Vn#Hf}|G^N55gbRdJb2EheU_glHhldN|zz(58K0gw=W`_yF z`68$ZgxttbKB_4Ng~t-*sIbUcQ0B#RBPl#+@B|T2f|xL=>Lpdlu7=r4PU&u|jhI5a zB~h0`>FU%)c$y@9O@yz7go1tz)DJrrL^mm}GKnq=K`qp;iRx_B20W;f=xC7U0bFf# zG7%rBE+@JUNpy3Wvoe5&6o)~A)aVC0CO4dZlhA7z*rJ+R0jv5jW({dq! z;!4Qdm0Bri$|7!1I3Me{9Q4Tc5c0#3N!rYgr+rTTZRg+_cy{#Vo|3-~^?XV@)OVqJ z4uYq0f2>iTHpv=B7W;`rXehkjVx(tcR%$#0`5NHCzE(fKKrfC0in0HKY5 z!bm8Lf`T&?T%h0zh0#zL^BwQ#us0HFRt7bXl2dcrZsjcG#)UV2)i;ek?^vqzch%1Sw5-vLN9yQ*y7{qy-Ep4&?`$7B8 z`4=A)xn&nbl7&o{`oAV%;dL^|u|d#1K?Z#|GU$)$lL}>U8mfmN7_mbJqY!?Sj36hP z%m?9tnppd~LYIIRrq<*uLdi9t1?h^=!qkR*foNlDOX{_?FtsK1+S-^7CG`%qFda(j z9cp80N9wh+FtsD~+S!=elX~qfOznwYwV&;6Oov!lpesGf78)z$qIIMty(j0eilxU5 zyh#Q*%ma;8;lDU@=%dmXtMsenu=`#sOkxW-syacQW$zDi*a#2CwOX|u9Nmz%18?^E zQgW}$GLE*NQnz)Ye2xy#M+SrOG+95o73;7yeA8mM1w`OvXN`|1e( z2!7_=YOX)&%F*$a0GC}HEi|8QUhw3e*=ihJ;P;UYKEGxyhxslu$4twQql4&ZA^9<* z(wEamEXSK450eh$=*j32^64Rbkh{h3;+CxEz8to*1o(VymlxqN5x)d|#1}hdh{>xt zw>g-+9ysjE!3Nt4;@am!^EaNIDq*~qqld<6=FeRC?SV1gkgX3j?iO@4-gHUz|Z$BdQi4QjU=$PIc#Ux-f@(ib&biQ)l4M_aaT z2!GK*5Y{2AQ^d=;am2nHw#+{W{bFc5jDxredIf(6{umTLMtJRU z1>x%ge@H)|Z-{R?R6C*hXvqJFbq{d`=?~VOHnIcQ4dmBFJZrii5D8+t&lw z53L7SM<_10>ksrGzt0eKz#bZ)C&VAvALIc0=}`PxR~9db_@|4;6Z%Gc!M=g;iG7R> zdP4n#y^!8%$e(mUE}7l%W?0|IZy|os!5^TG^a$%n75p0ZG1xZ{1U=G_zCiy({DXZO z;)lFmI9jM30;q zU-Z!Dk8@c>k0ucfNx5^_)drB%)LU}8Nlqu3Njv0B)xMK6{fkx6Ava11|9?Kg-F_(` zpWSZXGcSy7JMc8LXKqG&WWHnDf!{Q1JMiLM>2U&I-Mj7hvsvoDvBo>*f7(*fv$@iQ zqAdU8Q`n|V&RCgJIo=5}I3Cp}a!@~N_oKACB~b97A3-0~KN>+_G@m<0nFo_^2fo}W z(`AtIi^xI%dd`Uif&{|Gx3%F}^)3H~toan$$$eg^H-`KWgF zL-_6#Jm3fD5b+53LgT=GR6l@qL&P~ueja%6LyiBSSHj;hd3x0Sfg1lNQ2L=x>~jh7 z^HAe9K*Db+asVGh{6G-=4E%wJy9x4jFEpO;7myd)Ir5N*2M7}SMvxlUseT3P1Mpo? zKllL=&(VBfchC#e5xIQSe^biifOawcqAJhr#_@n+w zSZD0$06Ua)6bs?}AUUN^BBe^1DmkUkqZdlfT*+A@L6Ka*)3iHDPqDE7lIMwfWCh9R zwpe(i?0OqNenEO%#IMvzkN0>PYOg@>F1lW?L^-gR=(_#QQ|a*xuiYR$HsbG4z4P4H ze~nIAB%P8IXVUu(@(s82g#aZ4nWzt-I@X>%Qb%pdq%zQgqzBxHt7GkNiovN$!coWC zZ~W;bd<{|=Akc$1zsR&TNNo%fU3j~VOp8vUqe0@UGoHyblu5YiB&bRn%OthaQ61)C zkm#tAXaK)p1K^L$E7$_YD3Rt;qToOuB*Mt}WSXF7a-G@9oWM8m2t1JImX2YOaH;kM zc{NCMK|ka-5Cp-J`|Cf1%*QzP}0`6kP#PQe8T`Xt+l%rp2um8L4GPWBVv zUkQ`9Gg(KStqZbT4AT7MaWDtj$H2ZIqY8-@*$zxho^SH{B#)?6}$!|n| zK82?a1kiPyBHg4&H=(*B-GuNH#`kk`kUR!amt+>}#+-ocDwXuKpUR$d@mMU(x|4^|VZnmjg(VxHDW(dNANg4v} zseWfdmEf?@Fi}h=gp>qPTp>l*#3zp;AvZEc($9|+eTOhTD6|uz>QP~Q^B8V;+t<5o zA1vbqrzgBw()%=Cj$TPG-F=7Y6txGxIQQx3!}{~^JqRK^%5+4y8yOzU58?}j@gUf! z8Kj!>h^VM=_`aJpQV=5&L>i6~^0^U!FkU3V2P;TF)(a2k5*Qtl^XA^%$Y4Q)c?`ep z!*l5`tVjma)=A32)fW>_cv_`tZ`)$kg%^=o_@X&8>AGY2PLbc(HFaLyBKIzA=|1#_ zZHIoTN!Q-)1J8my7g$nw!ox z;#ZYbH3vSP+8P(K_;zI7*jp#{oK`rbrQltTSoP$u8OusS9ULQ8zdyyCG1<;_mVe|9^{rioZ@M#4y-4TW znZ7RW-;N)e%{S8PzDQrqY4pau^`loMIB(u_D%5vHj;s5p<{r)C*^QI^rfgKlMCsw9 zlzJ_C+Go7BmtYw8aJARFN%#={tRB4V`wb00ZjBu@VEf>KZ$7=`&s;h0L2FRSR)dJva%b+-K#Td#@P4oL3>>B^gV0BxB7jIaT^Y&nJmce_jOBImHw#9 zPORhpxrZ{h8t{)@=BM)SwPsDVUb@P!o6epB=J9O*s}p*Ou41nOH6EP|x;r4rZv2DR zV%FN_~p(C^{|&N zyX_8Lzwtk6Ywj&htuxab$9jD}J;z2gdYE!t`I6d*FB(sk{2cWMy52aDZpUdE{4?u; zZS%vV>0dv*+MOG5|6FB#+EL~>&5}!rT>I$s%&|+-D;ktDyEa`Ldm2AqHsXgsC8lXe zaUA`4T76~dl;L;E`yMDz3%~w#k!zm^YK$`b?c>W+rmrZsb<#f;ee?PC-6hu?K15Vc zcHX$jMKy0he&y>&-)<%T_^{!J^?O_{eb(Qu6#d!6b4rGO&sSyVL&lXn(J=WspOIr; z`gzZRU3+y5`)__ai`BiaZoc)@4ZK-xSy0!S5Ro zXZt1pGRAIPpt?c95>ct=vM|SqQT6MGuIrkZQ`Dod$-~dFDF5b~NWVEo&pk8MlCrO? zTs*6_r)tLhwBY#s`*Kl;?e=PGK|&>wDub>!&iD`IOl6=8C%vi7je#4e$0KgqUV_C z-I-@6sT=563wpkd4&wUm%kIH`@#xYHvpekKaRHmBFFv&KyhWm3|E}w3*}b;BbbSB* zg7EAc8w=ycKK=YdZR{rceZGIP+<(m}ub`$gv3cw7zDgeX<54rLwB@Lyi*Sn9(K^wt zx{VrR4j*Y{b$|cp;b!B@-h(-x6U4)!e1|^wsXjT4*}yJr_EJBgYI2Rjepc3L->BMm=N}DMGfd$a=7)wlcxCu}dFESOGQ(y`t;d*0-I~mIEc!reO~;f> zG(_R+uBe@4EkFC(-K^Ani}BllQ$MdSJo2V&Ht+Z8Mmy|1md(0pIA?8Y;?PgE)$XA) z-d=mW&~bHqxiBK{bCiGYmHh(dFS0A^w_~%%#o49V>-6(;eHzvmcwI|eyg;WgW?b#2 zcehW_th+WG7dub9HD#pIGfySYxMfVyIrDvLuFBpUlNVP`u<09eq)$-Gt~tKO{(d&8 z6Q74>%*tAHV)Dq-eqSxBE;~+|v2*A3T`6qGF4vl7Zm-(5y?Y*SK*gTaf|~f@*+ zSTs-IXnw3HPI#KDzxwv2sb=ZgSr^Jv4lmfeS13N{*J;iQZYM>7uJzi=|&Z~thsxZI0(Rut42ev8_?Fe$X(*yC$m zJ$cI?&OOT9dfGs(f?IUDSa0FE71qabIHqxa`Yi)=xFZ_D1Ve=AYcaGWETBO8@1eIoP{j-zWDExwmGiG5^}}FFe){2Ol05 zx-WMxoE>mvz_q%}Ej|0p48MJ2+uS3sw2xpF24@B@`dE?|IId^;w%Aoh@ASUhIq#3X zn)KULuG7*%gX{;GvDh}7MK!wv7~Afj`)$Fhn4%Q(^`{?c7!}2+482~zoyLFZNND<6~u$1iRu-)m=7i2rxFCQ}yzjOAwv$h7%R7^11txQTsKXrx`W*m&Xk3 zn|fkeT0O5P7@QJS{#t%+v6(7jFQY3+yc^%a+2^=w*;8(VhKJNiU4)Xnw|^<^aVlSuzX-=b->i=_A_ zOYu#X;+rhRH(CFGzsX`jFjRb!_0MIPRN%*m81Tz?w14uXf9L$p4^R;s#~+=_|KOx9 zD%F2*Qu57z?GIqJ@76MXQ~eWu)k_7FPw=b$i~jj<60Bo}k@)SZKkaE+NOJ0@f0xk@ z(&bZr$PU^I(GS$Y57<%af566nrsg_+#23RCiNYd7$-jg6uV;I;;<#Z_YSW_l!Z3j} zr>S^TO9~ZlYRRDDO)Z3n;x@xT`*Phat-mJBN1)RKpaH?`#JoxiC? zn}f+d1+)}@a4?)6xMB+at)+aS@0KcYy0f!EX%7eS#~x-M?M9j5rBC%;>u%o^pEFNQ z8InE-e=ymu>~6st@eyOaln*|6c!hz{4U-p^;`i@9W`<ogm-dp=d{DNb)$ZBaGUUT-t z!gQLGxbUe)^7tqZ{JIw}hIK6(uh}2CbYT@6zyI+<;Gj$O;@S(2Nw*Gq;EfkrPwRMn z6Iag3>*wB@fnVCDnrzjptN6y9Rad(1H4yJKcQ`VWeo=hW}RQGxiIm#(?a3$5^v zIX6EV%%;U51t^tKj6yD(>WG+`S#(opN*f0Z!Q|~f|Fy5Kis-ju$ps3{Ka%f zRA$sbaqZsnTMJe0i?3XM#lCHM27jo%$?Vta5^?pKUk7MLjTg5}srWi$)JpM(AwIcj SFHcEq((=E2P?08eWB>rn^{xH@ literal 6923 zcmV+m8}#HKiwFP!000001MNHqSX0TmCkZ8l&{=yya9K-0qy_{N6;Ybf1az?k2#5l~ z5Jc97fOSJ1Xvqp>5d=Xe=vuP>3|UcyF8fE5B@J0p3l<9n(_>{NZCTRdI}^r zrs6O$Tj99S7w-c;RKw`2wm}Qz16mL>xX-9Ms!{0UI#FW)k4vhKZPCVKxh*@YVlqTOFj79x=_2pRTh)IY zY;MD`>`zuLIhN)&SXBnKYN=XrtZ=BT!m)0tT63&%sI0=ls_TJ^%>qC+GRqUe5NVTec^ z8Vf=h8_6!k%xmOi6f2z3Pi_q(8~MNB1SboHHZmcI1_~o}L`hbxLnvw(nC7HlPivxh zMGj=d%4KhEmM=Lp-d6%HvW?#fnv~emgA>SJkI7z*ZCFYzL=-6!Q{BxF3qt`RK^Pe+ ziU&W0i-p2y0L_dLMG7TQ6Nv@U;X+hX366{-%P|qr)1e%aAc&^Opcx{HiV?*|$W1S+ z%2qYPR+i+eu?`Z7jZ}cTJeQA7J%p!);cFp$ZKM>yH4z+EESTNoxT+XkHp;aTTnp9p zQ5(phfzi>#_yDdBN-QJ?sw=6ki>Yp|2v!ErkmE40oI3l#3d%ro0bM$U2O~5h3W-K* zLjVKev9H`yY+QB+ae-DT1QWb0M z!&Yu$g-nhSL_|x3@|lZafChpV8XWBne1OB?mcwDN<8YW1)DSlU)d9{Tl$TL7NiYD; zXgkR@V1TkPfzXCQVK@{X08SLhbdf@6)}5z6iXEwDR63yuwbgJ{FC#h|tp99s-( zYs0a_pmr7@dkkuC!LcWy%pdJ-ID;)L(48J-35^pA&^XeT z@5%Y>V)=EASFgzVto?Nrkv}{0=_Aq?sP%oo*Y9(sAX#6;SJw^pEPH=|uaEGcUz1hy z#n%gKzIYA3UrO$DTFlq+SLw1wlE>Et`p99>pQeD5?FI@uyl)xuYa?F|IlP|IUlYNZ zOYPhX_r4?LBjuTOqoL-63t!hymW|xO*GByGaziKd$YS#KK;DNoyg5~?`K-5@*=E}Q zd|gCG8|hCNm%f-XY$>nd(GYn@zJY=ssh7Y1b13jdN9`cv2!k&Cpgr|%886f}ZAUXB*rizakU4%FS{(Kt55BLlGhx`Ke zggDSg`f4NjNqj_yf$XOjFYh+6#c!ZD*b(*9hj?8)P)?X{fb`Ltc`3&}P?xV?EjRZN zJ{`3KA3cQ}ygHBz*@X`Fhw%meLUOA>{DR-X58xlfM;pa+Bg6@kpAP;}$U*7>aiE6! z>rvugPaz)}_uwA_%^O#0Ti;D8>yLFS;m)aR}p-4Rla^(viIlk)0c>R?7mh4_{vqAEbQ=)F1l6yb5-O zcnA3ylsHCsE%OS(*8};GeZbx@zv)u_g!s`={E_1x<`rZ=79NSJis_Y^Ky&*zz)jm3`qz4p$T?E@`3+B5AdHZC7$&Z^94Eo>7o9l zy^&n7ZXkSe9n%LpAvozTWOo{hCq2+h;Wu6bjBgaTFn`e@9-xlw2;)c{;u_X5ST|4( zcBCPDf&Iz(57udzKa}ml*GBE2AK-)iKwbl62Q+S5^r6i65Elj%d(vRNMe$6|UyAjY zdddLzC+6glnEW9}^Cm>TZwrzo`Hi(~t4S=9rQc*-*@|ZiN;htQ;b~y&BR)*0j%Ohq z&q6w$g>*a%`8PcaX>~~R7d`#><3k-1qD9Vz*da1Z@BJ||^^zr5S#naiwAJAuvz^1k zzt|M54hbpK|DQkUZCMkQk9nEAOGNXo^GMI0)%D2loiLCi``gpIX2i$ znT-|427}sgIkp(o){0|`L2bDlI}B=P#j(Snc3ch@gL17nTnx(Pa_p_zJTAdB$B#?o zcbTxwQbD*3Ofx#xra`o9VF9LsmEkx6-!7|T{nb%BlW5tNsbY0HMn?t7z{Gf{VD#X{ z7be!u!rDMye2a+FYKsq(f(x|NFdp#256Gd8;Xq#&)(-XqK6H$a8b*UE5A>tjTLa@y zwGovc*d6@9!0^FG&_*MaeNUs%16$y{z=tI7M56g(5Uu?S#{oekRIz?6j3ynU zt41it5y*%i8E6p7e%7Gq$fV$^V|Y}5FbU<@qGA1jH^_t^4>ij}u?f(njt59;SkAzB z0Drt6@F2ICL`!@yC^$e1{KCTcQ2mR?4;+00Pa5Vob;@zcf9!1dXAe`zxe_}}fhD4g zEcKM7?@(Qy2FQ|wESVC`ZzQ(b;;{Qh*tn~qa@)Gjrk6bi>0Q!o8rpxy&AmkU{ zolxXHiHdwIs>9b2@KuFBrQJ1=f(LMv`y%)#l=~rmZUlu7q1+B~xl;NAJ#W6Uyg(P^ z^ri3zdOoNhyjbG}{VDo`9HR+kxF>@9Q~G&Q^ng0>1Npo_Pw1bhOc%aR0s3H1;6v6C zo;QUq=;g;(rVDbB`k;3BN+tmMCo1Rg^$e*8YWDzqiX7lius_fz=~Cn;zs5mu_)3S$ z7vhfWPtj)_MIW%AD~119l>0zGLRk)oH;@PP0sf-_4ss*;AU>&a3~~V;@FC*}wfj=q z0UzXt@kRO*;X@q3cmV%{e?V@a=R(ns9M_2ycmahD=t(H|C&z!HvOJ&<@Et?x2XcZx zNxe}W>>Nl?=u-5AH~~HohY&~59>7`KNvp-hjuK2YaBZweghkIUk^$v^UDB^Ex%IV0-}nNCbyCAm?+$ z5Bv^xfjW}6y&FI32bTC9JM2tg_XT(6ki#7~zH?F~l<%?`M9WS9-zCFt1K-`?cj@X_ zU%=PI%I)ovaoU<#8@?-mof=Myj?vL1ly@mqnQbSf92|5&#EauuI1AahhP~ws!M4J&>Ea8>5~)unFZI7w%usR}-TP_Q5|} z0{Z}8kWYm|6OS7>nE)Js<8o6^5O7?`!JfFEaG4?gsWkCjGae@(zY3x3XWT|@jSE~a z2F4%n2R!f?1OI}K_z4MhmyFAek5B3@86Q7%%pcTUG8<_A&E9(dlbdMmmbnz$MY9ox z{PBhnq1a99p&p$H#itndsH~~LZMBoQ+aRhD6CpH@6+||FE!g~lBrpGz_v?kdPVvgolb_O^w^>dxyLcCV zdNS&e;cVV6lp{O}J93s99vLSL7K+6Q5LqLpVl~xaF)@+wJt=#*C{`khHX0!o3ZejE ztVD(n#*=>>6d5TXFMvBKsLUFE;{AnQz9BP)kiUPwCbX_cn4Ws_B> zkf_Xp=M9<3R~^f@OZ?qez4Pi4y=PuySG(`F9Q?T|Y2({p9|oOExi>jK|G3SjH5ZB( zN)H)NOyJKoTY4uxZLjSX)sN|cZx7zc^|NM;f3j?-7u+Uu<8=MtZH+9O#;1_ zRp#=SuU4Mue*eIt0WKC99=%dSbdJxvHFCqy)OyB3TOYQi`?Vs@i^aD+9!GmbZW!Io z!@<37?w9?61^!<>xjRfJhRhyTqW8G`_0|hXlM{C2^k#IjW7j*G5pzB}A6Y$pn(K@8 zH*fdX6O9w*%}hxS*rwm3G~}-7C)y#~E-|ch-?n*s!jKa6ONAHQKVLCy99(D? z7?NFe%F^S;xD>6ibwxeu4rMwP6&m_B)Ss#2T~<}s8t`aRQ+(Kho6+ywZ=5i2TKVXx z?X6`~YH!|d^qYQiY3Joraz9+zyv#L~7rA#>*4x)TM}0r$ht>Dh^514l)ldAAvA87M z!7*y(`;)Ax6SywZ1ERNSZ05=;eN}qUEDr3bZ;1|UpK*j;(852k{&rirRV%7y~pZ!iG~OcReHT0&l@b9-aRDi zZf))No8t!d-#Tc(>rXF))0WS^*A!f`S?ZKT#Ged(WjM(#|K*0<-C1?gu9X>8qwV{3 zr#-s$|&cV#h-GoPrgsH+iO}i&qFIwT> zMR!*|>sVI6W$&Jn%f!nd&4(v~fA62n9eb~-nEmRZd+qXyw-Y@5~IwuwR`^&$f|_ z8loCszOXv#i{=v*e@DXsF4y*_bNP*feq`UXZMdI2Y>8}?n03X2m~98W)%R`Z~A;?UdWefH-wBd>m)@6!7o zlTl{Bb!_>PDa*=joeYo8xc=Uzuids{(kLuYj=&j z_}Or)%8bvZo)a?+d%P?=7dEEkv8L(QIgD)c($Bm0@7SYj)NkXH>Fln3^zy7H9kaCf z`cuKTZYkEnm4%lI7dxLBxTA2@KjK%uIeyj6@B6smH0IpZMt%;bi@kh&9uFQ_d9L>} zNx$jcMrD=6r{x(QIQZePX|zS%_V`_?Lmr&kc3|;@OBIQ$#%%YUvxRlmuzK+R;m-^2 z5Psz=@^VhOdUaWuVB9yr5ZBpsz z^Rqd}l9znk6aFMk+(mVY?hI%4-Y!9pS6wR$PGd{<4f09xcwqB(PK|Yh<%IAZF>0%7 zoU@)!|J`fy?4S1B|7ubDIyLW>m4jc+s)FIWKNW6!WSW+@;j&3-w)v-ET6JUP$RnGJ zzd7!&|1HP!L$F4zrT)U3m&!^te^D(>lLa``m z<+fiIY)|@qu|?&D-2>iC?LE=4E^M@Ta+mBF{^~P*Q+^)J9TTL{Eq|e;)N^r!WB#if#x9Pz{dPX8Wp6$m>o|Tw zzz4A={ax_bZqD~s7X}`zt#Igk=k~k&$5--P*QFcoH+MX@ZA%3r>$*bS=~^`Klk8c&eLT*M$g!pd1kyuH(hH{k2f=d1%7+8y6ZoG zcyXKAZT;dgfg7hRIJo|tMUp|k&TD8{JvY5@eE-&fIH<}dr4B~%I zln#mUvwP-Sd15lFR==RZOXIjY=f+@nNx`9=X*m`@O>wzCX!(vU6;rMj4t&b9I=F9Z z^_$`w>^t>mf_i7y8C1QiephuNOY>}C#+u_l@iIM+^dGr1Z};v~elgW=&pjNlB1lm!pGZTf^A?j78?W0s#ufWJ-ZxM$%R(|6B5K4JJN|F0GmMULaA zZr^@&#}a+VPFL!uZLQd{wQFuj|699K^Q#huW*sq4Zg{EFeN<28eT(d6Rb$LQE}VT% zIQ+q4*AP}t&C`A=`4d(r(pkwRszXxBau#Ioxv^C}%%Z`Yul4a(apIF4!<9ELPBKf^ z*?qoz$)UL$_lTtjd>yjRAHTc(iGIPVbC3N@)m=4JGG?D!veqO0^6tAm&R6{Qbl&)k z4@WW%-93LI&wt-2v-q3~x0mHt8GVb{I4?Q8uluppE}kJv@Beg!wfR&x<}E?tsbYh9 zXO~$YQ`tN`s^8iGv#s;DFILkHd+}s+=s2~V=~f?{rJG`$0|OTp%&fetn_M`x;G&UR z&!@{Po_iS-nkC#eDLc46WK1d!pi9 z=~30;(K#hOyVtMVGxxxeUDGBUea}q3wfktn>~kg#(u%$tLmriVDPsRnb#%`R-3NIm z*0DK$mrokLm_Lhn`^)>3eqnc3Eiw^aIrb%l{oR54hs176-3n#~9`1kTUFN19y{ARq zytd`1!!LCX6SumZ9yI@BNp8@X9_3r&Rv5oE_;UMP0P%ACuag8$iv|v~?{CJ|x7jGE z+8M~$a`)`7b63O`E-_zw>Y=7_VXT_n)oKRquoFwoblvaHyW{V~J*;qiq-vVTE&f#5 zX~Vie6V9xP7vDw((;2V%F*DRYcU?GQpXRePI`Q(1%7dB@mCjTpM&zH?}4^@p)F zw~Ai&s9()9vFv1Utkw#9 zQ{xkUMM#ZMK9^VjZ^q}pNwHS(Muy9uk2GzhIrR&xBJ=}Td6XZ{g7yORgIMr`S(N&} z`wOf870b2$Rw`B~kwip?p z@q(2i?|8uq;U_A~)A53pvYZ_+SfTzP7okkQ;{_{4-tmH!a^CTRm2$o97p!Qr2*pot zT1r1S7)=RUHj($Ov3#E2rV44gvvar7?hewA-OWC7N0{+SpBTElyLnxD);x8|;PipK zdlR^2zvr)#9yT#p^1(NkcdMK6HPh#o()VvaW`OAv}j(1KJV_w^FaeI)<~<*J0{;a;K8dq-*igX>znk! ztlYkCO&Pq4ThvpmdUlpxyS?I4=RMt|+sz#gPorOu9($dWbYw&j@AV6p9OrpfypP$} zQgwoQN*iNcZ<-A9mfr1uY1*l53tsuwp|l@O9!sy!ANHJ|ZOgmAd9`RI|FHB6XIo5W z%m8Wip7I;>)b2_z6}{BIX?dD=UuT2aFO?(mj;r5^_S=A^wi RDf3C=e*v3nMV Date: Wed, 13 Jul 2011 22:25:42 -0400 Subject: [PATCH 13/18] up to Stem-and-Leaf Plot --- elementary-statistics/.RData | Bin 6768 -> 7834 bytes elementary-statistics/.Rhistory | 34 ++++++++++++++++++++++++++++++++ 2 files changed, 34 insertions(+) diff --git a/elementary-statistics/.RData b/elementary-statistics/.RData index 5d7ee65313a586629c1b15303d1684d42decf21c..c541a3f3e53f76281034b79c0aef2716614c2be6 100644 GIT binary patch literal 7834 zcmV;L9%bPliwFP!000001MNKrTvJ!~F9Qe=HdX6Hpw>-XdReBN=+ zJ@>48?|bLIT*3mQyIMqB5Cp*{*jD8K95TyglmD^E+nl^jW0Vq6l8Ve(Yik7W3Ed?m zP|8Iq52bvR+M?7RrH&|Vf*R6$vC#M8Ax=>f1czjVrEPD5Ft|GY2*QlKIVc5~DN0SS zycxoWJdOwSxJKvz4Y;{jJ(Hdpqd!Qw7`_>nni;`0VbEe5!2@1!TBbyO9(Wks#E2{$ zjE)IL&lF3U{W5vP@f(sKr_ID+Gw1_Pri5{wG=$GGLKo!4_07cLVYSZW;xq0DGvf$RuQ0(T`4Tq8iH>^k&bWj>sCSs{b1x!(_#)-sgxsuG)GSK;AkyJcJ zoRS=;l#C}4IZPo{@)V_5g6OePtzBG-Osr0n%i1d?V!1L_1xz_Rk(Ykvb@F#oNyfL= zYQxD}`(I4Dzo%Xrk_qAyqa!m!iOg0b6jKb$^4E9Is$*D13*@M@yz8p9O9~5?6uhp1 zWr7`(PPMv6wW>9uDO0grDpxYi%~48X0U=!?mC94W4)IEfL=JBC_HG7%D*9l7HC~p-@rC?e+`4$G6kz|!+K`25RXxa5@l+McIM(Zpn+h821i2! zAK);!wQv~hI2g_f1nMB`TEx-85XBAeT!S zwlP=AQ$6sp32HR!BT~x6;zTG0$dzijOa#RNa+QQ!D1f^V52pd-$|;h_RH(`%LZVUw zx@n|HmYAYyKzfTdq+4sF210(Z_PQXb(WgR- zoz+jI-vtWU0n4YFy51Jrw>?)l-CiyD4ZwJ;H-_bzZtlXcwou1fRm+UA)m` zw$LV$+ia;iUuX;Tkqbe4mL5*kJLu^MK4fXH)j~UDiyB6IO9bc5?LM$*dnLsm#ZTJh zPgMtlgtif6(sz^48ue#)G=zL{NWcD!N(jPS&zSAsgkpCjrY>5<~g2Kf;m=pi}m zkiBg6`V^WVJX_Sx0ol(6@o8_Dpxozl3jBzQpRvGyz+PZKWEapU_<=o=*BbFp;UhX6 zq(8e}WyMf%GN7T+9{B?FGEn%SplE-SonYG`Al9_&M) zdBY0n%@)Z^`5_t)4!|#>3w}e52gH{nk{jkHN7Nqd%>jKOKKV#r%y=rA4=6e|`f)?~ zi!DlF9Ktw-_^dthPd3swiq8sa%NLW5*j8w-_YX?H1ZofMU|t2ig1-ZQ9EKkwJj1+# z@a=#55jmhj0dnE z8V@jz(7bHWALxO;&QNr~9+sdd#2?rnjuK7)-ij~ z6M|FrLV9N*f3gF)^mY?`g7J;~7UnND_yd%Y9$_4rfnUQq2I~e&L60n?FVH_V|G_#9 z^9NloLTgkH@&P{R5BPOJdO+jWAP-}{2fuJ&=#vHOE%Ik-{?f0%%s2=V&Kf6*pYz3ADWv@P}9(KZTVMa_m-bRSl=4w#x+lXozA`|C|wFRIIH zAgcQ(tD;`?mNEVR@esV>QGgzQH>{Z_2I?-s60~NnMr&lgpY9U;?5?{6#d+H6fM8*3 z-StP~=zn32*HbDxNJi4(FjN2=pC}UC-w>i3@5fgkc%_bOfE<;Z66X*y0 z5c~-0ql9!iAP>k3{KL4V{2%&7_256CSFkhC2fjlX{0;^A8T^8OGwlrX5H+7cyFz*j z`Uif&|0p{Z(&<3I6n_N09drHwKZAN^e@weZBK!diJm3fDQ1cP+h1!Arn0^4`hMMOH zdOuMabU6VIdZqlGpwnZn56t;*C<6{ zITW?0`~~ENdLccf<^z;c`bH^pUT69hj1R!?i{Rh~)O?Qm1G|G>pp5usJfGOW^T`<6 zC;3*wK-3I|E2taH4c)_Z0A`}tL2ytfuoH#g!wF;T*aAC@&^908d`8~d52dt98BN~W zuWu%kcOH3{lPKi-49mtysGCnvFN>aT-SBru@@>%*dw2A7^TuB#z1@5;sE?w!Ugc)InVpuDepc)NA+^fVSQcEA-xkCXES zGX1-|VE+m2by9GqQhU7;Ttf9%QF?O6nU{ID^5m@$Izf7QwI4@U4UU@HBG zL#VCm^pSH$P*%bzc<1OkwrY7=}|}g z?iglgCeD8-YU!!XGa{8;>TT2fozSFj9okrfXKHP1--*1N5&EA9X$dqX^j~`SKzU0; zXS8h}egoS+f92_}{+<#2`S6eL(wPGR^m^481#XN2qjF;u7~yBo`Du&-)A?+S0;Bf8 z7eS}r7zNg+jZt8F+870-?lk&X)LB8(4JWX9h$}_#wS9sg#KNaTp?02bWH`J)Jl;|MZzUA zbpwRiG4V!-nt6ow2~U<|9O_an3i?%$uH2h2M0p5Co_SOa77e1|HOwy!#F7)g8Q^Q6 zTt)qsj0vY%Dn=?2C;gi$nbAcn!ngt&WJ*f_zPu$c37BQwsWHM9HFND<`!5!@sNJ{h z>*sK225A4c@@ymZ@R$TkenSG7DCH@#*xyn$4N2%~97!dYCK{upQ-z>%=<}Ja4~Ge! z`71VGv+zS{FTu_G{q{J1b06^FN2k<}A|XXTb~HlYiZF!oL3}P&#_MrBEgcSgqs%lB z)laDQH-0;{KV4)F7H+*3^{+qT2ET_MZf3pfG&L=ncBai*q2s36>$1N79%u;)h_jNA z6~_e?j=gwMAJPQJw{M=DL(CJr5PBZS+LcMr76AIlO(q%`nGC^LQ*G^DEOV{}eUal-nBtxM@;39LT~=H{>~@*l|==CZn<{IB82iSL-Tc z)aj5FOVUu5M`k@lX^HR^zL~Zx6~*A-WD#{Biw>+xiJ=JTj!)5J%B6HdWEm$!7HNdY zGEPVdCx~$*N;qtWd=^Pglmgf6I7*bbL@Wy=xp8tC5HZ*0advpR3IjiS1dJg)0>+U6 zm&^hgu2dp}GttbX2@>>$y>9Z6j+0Z=Or^<*YNdoCU{Jj@720#i-VIqLm8EQBk{oBy zFDIE2pR89>XR&dT;}ujkDFL!F356g}78$a!hAh>&LQFL?9KFL)NI^2TLPb>?1W_f+ zsjR_xYH^YwOYxqf0`a(MqBI4TS7CXINSXrJQ{= zup}Q4JYpqrq7M;-L~rbw{M>PK6T`9M-KUf>QLW`Vw+E z@mFjSocu<+qD&NQK`FvxbV|L>^^vAXVo0wC)tUw*U?r2@3I!zxzmHs{mdl(1loC-g zAPi9_NI<_<+7pqaQW1qw@0%cxFp(@)p6sELNYL+2*kohYQZgS~c5>Q*L0(I2)~)es zB2LaOeDo=M`gy<7jq1pOiz-8#$+k_d{k;2U>vn%vK5g~Ozug&me8w+h3JMN*uUUGs zc&28L^Qd&;B=@;DQkQJ^S!eQQdGyQOmybqtvlxDV%i=QshukJXM=}@37wik@)#_bX zSxWUI*@g#SRyY4RX>bpYdgQ0OBf7;5-rAoDfyr0Bi`8EFT#J6t)_bpBu z7yNkTm1`aBj%@h_Fw^%1mk4S&MHPABGsl2E6q#VE9 zD+f*)`pEZ6f~e(-!t;@R%)NrM_oRh1RgCL0IVEVj@0{?^78}-XO#kYl*_on~1K*x= ztnE_d9xcu-KioCs@~|0JL#j`=tlpFDce=O|Yqb$chvqh&KlbSBb8F`XX9}d-d*{4--m2dhgTGvS%e3HSuEy-( z_gS+q#`p9~Uij*eMZyT*prk0-2J^K|dab%P%)H3<*pF@d4*0Nt_XLTv!{<{RdH(%Y zZma6IAR}<~mP7Fo^Kyd*{Q9ZIry=&$BO*twG$+){r2*VlQ|`AJViPL=O0=ge^yP3t z7fDhJan8+;AHP_e(y7Dx&K;ls`dBh<{={GEVlJ-L_)jBJ55+!n96g}m>8hh!bE-9; zmt~dr@6o;m>+aS2ulPehRBh)BUa@CMyGc2&@7G*<;uvt+pT9pUZ+G_E=8_*yOEM)l z>b8#VHfup-Gutf%7W;Fe&JJy*K1)0uX?f>h%=He_eTV!~SImEQXW+;APhOt->EY+Y zXFfW`_H((NYCm~bjn(V99Dq?XRCNPcH|pBw4t*fHqB&gH(s+Rk6|fARTrYx>ytub*ztOTKyR zcGZ%77K5!Wo|-1=F@AaWz?sXhel*E$T61pTVZrfBy+0etwQ!3oPG#?3QgypzRIh8L zZFd&%r03sH32O5Tk8`QV`XQxr#?CAC@pt@T{Lc^1Z@zf0=j-IM5rHdL^))*>DgXAf zJ0C7j`{LHe&z5cJd+M#@dhYnQ?FNm?a%}nZ(($;#7w=iNd;cvb*Q4a^mYtin**djf zeLso+d0V^uZlm{i^?d(L;fLlkx=9umohh0fc%;*&qDB9gy70w;^8+HjNQqg(o3z*| zqUVprpIJ)Ge7`-9Efw*X$8zo@6W< zyfOUSbr#1QE4u9L^Qh;BTMVZsd0ze!MiXu7cp% zx<@>FmS6U~_V7n1*65P{Cnmb>pFZc!w)p!?l+8@W+Kvz8Z*Mm8-l7YaVwUjLJ35EW z2)XV3^4qFziCss;Z&H{pstU|`lyp6G%*1cD-Fol&@p)$cRj-~ARf`JyZ2h%p!`*gE z@>iX8DarNtHHKADTh@2q+Tss>J8OQ*8}vG+drgL5MerN%TE&eYQ_v{ zaqXyOE7;}@SSmQP!_;rpo@r(K`zS$1-3#}^50M)_68^;eE*ma7mhKH@s# zyZ*j|N18V;n5ixqG&|96n4)S~_oYpzt1&E0#O% z^zb{rVO{Z9$*l$7PVcHI>2NvAd70dLhs$ii{Lrkxd~0i$t`(n(gvW2c$$K!bW&iP; zvyTinZ*JR7-txux7*WLboEG+v?ws1-e$BpkaP;c2Q+KaC?m5k&ebc3^oK|Zd`@MQ~ zLV4u5x2H>W8`r3KZ{J~&Z*LwfjaqalG^Xaql%vb8Kb_I%i+%1yN$ozrzRFRd`zqC& zDpy+e-?O)l|M{ysw^qBH4(lv@o1yti5z+l&c-g@*79Z^kKZTkfFmt=yWuUrn&*mk0 zp5KfO`nmJ`P3xYFJzv!6fxv6`j`bBUiZAnT)EpVvCb!z5yt1OQ{A7;hvFNO&2fh(x z58BtE@8;$+l26 zxMJ1ID+gHJntt4`2^@BLR3GkxLEJ&9vn|xeJhtFY+CP74`O5!;G?WYqS9Pby1(FzF-9yV$Bl&5CW4cJ13TZp06-c+;QG>k;=6D z`3eqeufK(9yA{_1x2E1mx%0&Du1UKL-{N1(nygw8?c$d9KCrp<=x0+s|hP z?67>e#JMJ_RMoL<=7BM?2QQvpeATIzJ7(pJc2-sXcg*X|Ha%)m*}3V2gQ-QENyY0SRaZ|xZCSHe;L^2;!@hg!?!i9Sn7@HQ z=T83*9j9Yy5UKH4nfiP;9xFq~XBnZ}c&rRvSB=NY{8f*Y;lpIuc&g0r+d(sh6Q4Qo z=LMJ%`i5?H19tVN#xK$7d^UcGj@koX z1f724m+1Pm@k?}i+V~|py-fQOo%&&JSIz65PGd*T8zuNqTRJ&n%@fV?z`*7uEqZF+ zv~Yjp8{jS|x$hWMdF5x#F^|kSU6ywe{4&D#()EHxn!PR#b6$rZ6uZ;LnxCiiek9EG5!_n4SiVrWSM$zogCbkeQB$$4^zvlWo0>DHpW0vP`lH~M%_{fr s%Pwll7Jc8rN-;!JJL>BDgn;>)*ImN%mOMU0+NAdX0j=M%7}0eA01sQB8vp{wX~VudBxupx_}Sh4$q1w^q@|AgE#Oa^@W_Wkes_U-#KAH%uj z+;dO6=gyp&iMMlrB{P7DVHh2wYfAnzBt<2<V`sFCh;UdV>69pCOMW z&rS6e^17vtrFTM~?8DGcUPmw|+0Q6)$j7m8{%n4@G>+*Y>q%Qxe;#6PV`@2os9Ks@ zn%j`7l3uI!s+Fk~xmQv#wQjFkn_825B^6UrRZ?l|mE%g87tW0VrU+I;xIB?SC@Hm2 z&{;fgIByy+HX=mGkCq@Zs6xgFVud_DqDM!qx*@TVJW-e+vcHhe69|K2fGHzG$svop zhE9et{OJBtZ5Y}}{{_W6S;(Z3Fo88wCQ?O|B*jLAqC)DXImxD{wNk7i?PSDAd2ef$ zZYea_Qpj!J*(T^g@x-Vn#Hf}|G^N55gbRdJb2EheU_glHhldN|zz(58K0gw=W`_yF z`68$ZgxttbKB_4Ng~t-*sIbUcQ0B#RBPl#+@B|T2f|xL=>Lpdlu7=r4PU&u|jhI5a zB~h0`>FU%)c$y@9O@yz7go1tz)DJrrL^mm}GKnq=K`qp;iRx_B20W;f=xC7U0bFf# zG7%rBE+@JUNpy3Wvoe5&6o)~A)aVC0CO4dZlhA7z*rJ+R0jv5jW({dq! z;!4Qdm0Bri$|7!1I3Me{9Q4Tc5c0#3N!rYgr+rTTZRg+_cy{#Vo|3-~^?XV@)OVqJ z4uYq0f2>iTHpv=B7W;`rXehkjVx(tcR%$#0`5NHCzE(fKKrfC0in0HKY5 z!bm8Lf`T&?T%h0zh0#zL^BwQ#us0HFRt7bXl2dcrZsjcG#)UV2)i;ek?^vqzch%1Sw5-vLN9yQ*y7{qy-Ep4&?`$7B8 z`4=A)xn&nbl7&o{`oAV%;dL^|u|d#1K?Z#|GU$)$lL}>U8mfmN7_mbJqY!?Sj36hP z%m?9tnppd~LYIIRrq<*uLdi9t1?h^=!qkR*foNlDOX{_?FtsK1+S-^7CG`%qFda(j z9cp80N9wh+FtsD~+S!=elX~qfOznwYwV&;6Oov!lpesGf78)z$qIIMty(j0eilxU5 zyh#Q*%ma;8;lDU@=%dmXtMsenu=`#sOkxW-syacQW$zDi*a#2CwOX|u9Nmz%18?^E zQgW}$GLE*NQnz)Ye2xy#M+SrOG+95o73;7yeA8mM1w`OvXN`|1e( z2!7_=YOX)&%F*$a0GC}HEi|8QUhw3e*=ihJ;P;UYKEGxyhxslu$4twQql4&ZA^9<* z(wEamEXSK450eh$=*j32^64Rbkh{h3;+CxEz8to*1o(VymlxqN5x)d|#1}hdh{>xt zw>g-+9ysjE!3Nt4;@am!^EaNIDq*~qqld<6=FeRC?SV1gkgX3j?iO@4-gHUz|Z$BdQi4QjU=$PIc#Ux-f@(ib&biQ)l4M_aaT z2!GK*5Y{2AQ^d=;am2nHw#+{W{bFc5jDxredIf(6{umTLMtJRU z1>x%ge@H)|Z-{R?R6C*hXvqJFbq{d`=?~VOHnIcQ4dmBFJZrii5D8+t&lw z53L7SM<_10>ksrGzt0eKz#bZ)C&VAvALIc0=}`PxR~9db_@|4;6Z%Gc!M=g;iG7R> zdP4n#y^!8%$e(mUE}7l%W?0|IZy|os!5^TG^a$%n75p0ZG1xZ{1U=G_zCiy({DXZO z;)lFmI9jM30;q zU-Z!Dk8@c>k0ucfNx5^_)drB%)LU}8Nlqu3Njv0B)xMK6{fkx6Ava11|9?Kg-F_(` zpWSZXGcSy7JMc8LXKqG&WWHnDf!{Q1JMiLM>2U&I-Mj7hvsvoDvBo>*f7(*fv$@iQ zqAdU8Q`n|V&RCgJIo=5}I3Cp}a!@~N_oKACB~b97A3-0~KN>+_G@m<0nFo_^2fo}W z(`AtIi^xI%dd`Uif&{|Gx3%F}^)3H~toan$$$eg^H-`KWgF zL-_6#Jm3fD5b+53LgT=GR6l@qL&P~ueja%6LyiBSSHj;hd3x0Sfg1lNQ2L=x>~jh7 z^HAe9K*Db+asVGh{6G-=4E%wJy9x4jFEpO;7myd)Ir5N*2M7}SMvxlUseT3P1Mpo? zKllL=&(VBfchC#e5xIQSe^biifOawcqAJhr#_@n+w zSZD0$06Ua)6bs?}AUUN^BBe^1DmkUkqZdlfT*+A@L6Ka*)3iHDPqDE7lIMwfWCh9R zwpe(i?0OqNenEO%#IMvzkN0>PYOg@>F1lW?L^-gR=(_#QQ|a*xuiYR$HsbG4z4P4H ze~nIAB%P8IXVUu(@(s82g#aZ4nWzt-I@X>%Qb%pdq%zQgqzBxHt7GkNiovN$!coWC zZ~W;bd<{|=Akc$1zsR&TNNo%fU3j~VOp8vUqe0@UGoHyblu5YiB&bRn%OthaQ61)C zkm#tAXaK)p1K^L$E7$_YD3Rt;qToOuB*Mt}WSXF7a-G@9oWM8m2t1JImX2YOaH;kM zc{NCMK|ka-5Cp-J`|Cf1%*QzP}0`6kP#PQe8T`Xt+l%rp2um8L4GPWBVv zUkQ`9Gg(KStqZbT4AT7MaWDtj$H2ZIqY8-@*$zxho^SH{B#)?6}$!|n| zK82?a1kiPyBHg4&H=(*B-GuNH#`kk`kUR!amt+>}#+-ocDwXuKpUR$d@mMU(x|4^|VZnmjg(VxHDW(dNANg4v} zseWfdmEf?@Fi}h=gp>qPTp>l*#3zp;AvZEc($9|+eTOhTD6|uz>QP~Q^B8V;+t<5o zA1vbqrzgBw()%=Cj$TPG-F=7Y6txGxIQQx3!}{~^JqRK^%5+4y8yOzU58?}j@gUf! z8Kj!>h^VM=_`aJpQV=5&L>i6~^0^U!FkU3V2P;TF)(a2k5*Qtl^XA^%$Y4Q)c?`ep z!*l5`tVjma)=A32)fW>_cv_`tZ`)$kg%^=o_@X&8>AGY2PLbc(HFaLyBKIzA=|1#_ zZHIoTN!Q-)1J8my7g$nw!ox z;#ZYbH3vSP+8P(K_;zI7*jp#{oK`rbrQltTSoP$u8OusS9ULQ8zdyyCG1<;_mVe|9^{rioZ@M#4y-4TW znZ7RW-;N)e%{S8PzDQrqY4pau^`loMIB(u_D%5vHj;s5p<{r)C*^QI^rfgKlMCsw9 zlzJ_C+Go7BmtYw8aJARFN%#={tRB4V`wb00ZjBu@VEf>KZ$7=`&s;h0L2FRSR)dJva%b+-K#Td#@P4oL3>>B^gV0BxB7jIaT^Y&nJmce_jOBImHw#9 zPORhpxrZ{h8t{)@=BM)SwPsDVUb@P!o6epB=J9O*s}p*Ou41nOH6EP|x;r4rZv2DR zV%FN_~p(C^{|&N zyX_8Lzwtk6Ywj&htuxab$9jD}J;z2gdYE!t`I6d*FB(sk{2cWMy52aDZpUdE{4?u; zZS%vV>0dv*+MOG5|6FB#+EL~>&5}!rT>I$s%&|+-D;ktDyEa`Ldm2AqHsXgsC8lXe zaUA`4T76~dl;L;E`yMDz3%~w#k!zm^YK$`b?c>W+rmrZsb<#f;ee?PC-6hu?K15Vc zcHX$jMKy0he&y>&-)<%T_^{!J^?O_{eb(Qu6#d!6b4rGO&sSyVL&lXn(J=WspOIr; z`gzZRU3+y5`)__ai`BiaZoc)@4ZK-xSy0!S5Ro zXZt1pGRAIPpt?c95>ct=vM|SqQT6MGuIrkZQ`Dod$-~dFDF5b~NWVEo&pk8MlCrO? zTs*6_r)tLhwBY#s`*Kl;?e=PGK|&>wDub>!&iD`IOl6=8C%vi7je#4e$0KgqUV_C z-I-@6sT=563wpkd4&wUm%kIH`@#xYHvpekKaRHmBFFv&KyhWm3|E}w3*}b;BbbSB* zg7EAc8w=ycKK=YdZR{rceZGIP+<(m}ub`$gv3cw7zDgeX<54rLwB@Lyi*Sn9(K^wt zx{VrR4j*Y{b$|cp;b!B@-h(-x6U4)!e1|^wsXjT4*}yJr_EJBgYI2Rjepc3L->BMm=N}DMGfd$a=7)wlcxCu}dFESOGQ(y`t;d*0-I~mIEc!reO~;f> zG(_R+uBe@4EkFC(-K^Ani}BllQ$MdSJo2V&Ht+Z8Mmy|1md(0pIA?8Y;?PgE)$XA) z-d=mW&~bHqxiBK{bCiGYmHh(dFS0A^w_~%%#o49V>-6(;eHzvmcwI|eyg;WgW?b#2 zcehW_th+WG7dub9HD#pIGfySYxMfVyIrDvLuFBpUlNVP`u<09eq)$-Gt~tKO{(d&8 z6Q74>%*tAHV)Dq-eqSxBE;~+|v2*A3T`6qGF4vl7Zm-(5y?Y*SK*gTaf|~f@*+ zSTs-IXnw3HPI#KDzxwv2sb=ZgSr^Jv4lmfeS13N{*J;iQZYM>7uJzi=|&Z~thsxZI0(Rut42ev8_?Fe$X(*yC$m zJ$cI?&OOT9dfGs(f?IUDSa0FE71qabIHqxa`Yi)=xFZ_D1Ve=AYcaGWETBO8@1eIoP{j-zWDExwmGiG5^}}FFe){2Ol05 zx-WMxoE>mvz_q%}Ej|0p48MJ2+uS3sw2xpF24@B@`dE?|IId^;w%Aoh@ASUhIq#3X zn)KULuG7*%gX{;GvDh}7MK!wv7~Afj`)$Fhn4%Q(^`{?c7!}2+482~zoyLFZNND<6~u$1iRu-)m=7i2rxFCQ}yzjOAwv$h7%R7^11txQTsKXrx`W*m&Xk3 zn|fkeT0O5P7@QJS{#t%+v6(7jFQY3+yc^%a+2^=w*;8(VhKJNiU4)Xnw|^<^aVlSuzX-=b->i=_A_ zOYu#X;+rhRH(CFGzsX`jFjRb!_0MIPRN%*m81Tz?w14uXf9L$p4^R;s#~+=_|KOx9 zD%F2*Qu57z?GIqJ@76MXQ~eWu)k_7FPw=b$i~jj<60Bo}k@)SZKkaE+NOJ0@f0xk@ z(&bZr$PU^I(GS$Y57<%af566nrsg_+#23RCiNYd7$-jg6uV;I;;<#Z_YSW_l!Z3j} zr>S^TO9~ZlYRRDDO)Z3n;x@xT`*Phat-mJBN1)RKpaH?`#JoxiC? zn}f+d1+)}@a4?)6xMB+at)+aS@0KcYy0f!EX%7eS#~x-M?M9j5rBC%;>u%o^pEFNQ z8InE-e=ymu>~6st@eyOaln*|6c!hz{4U-p^;`i@9W`<ogm-dp=d{DNb)$ZBaGUUT-t z!gQLGxbUe)^7tqZ{JIw}hIK6(uh}2CbYT@6zyI+<;Gj$O;@S(2Nw*Gq;EfkrPwRMn z6Iag3>*wB@fnVCDnrzjptN6y9Rad(1H4yJKcQ`VWeo=hW}RQGxiIm#(?a3$5^v zIX6EV%%;U51t^tKj6yD(>WG+`S#(opN*f0Z!Q|~f|Fy5Kis-ju$ps3{Ka%f zRA$sbaqZsnTMJe0i?3XM#lCHM27jo%$?Vta5^?pKUk7MLjTg5}srWi$)JpM(AwIcj SFHcEq((=E2P?08eWB>rn^{xH@ diff --git a/elementary-statistics/.Rhistory b/elementary-statistics/.Rhistory index 7ab0e04..9c3e176 100644 --- a/elementary-statistics/.Rhistory +++ b/elementary-statistics/.Rhistory @@ -282,3 +282,37 @@ interval.cumrelfreq = interval.cumfreq / nrow(faithful) interval.cumrelfreq cbind(interval.cumfreq, interval.cumrelfreq) q() +c(duration.freq) +duration.freq) +duration.freq +c(0, duration.freq) +cumfreq0 +cumfreq0 = c(0, cumsum(duration.freq)) +cumfreq0 +cumrelfreq0 = cumfreq0 / nrow(faithful) +cumrelfreq0 +breaks +plot(breaks, cumrelfreq0, main="Old Faithful Eruptions", xlab="Duration minutes", ylab="Cumulative Eruptions Proportion") +lines(breaks, cumrelfreq0) +library(actuar) +help("library") +library(actuar) +help(ogive) +Fn = ogive(breaks, duration.freq) +plot(Fn, main="Old Faithful Eruptions", xlab="Duration minutes", ylab="Cumulative Relative Frequency") +library(PBSModelling) +library(PBSModeling) +library(PBSmodelling) +plotCsum(duration) +intervals +intervals.cut +interval_breaks +interval +intervals +interval.cut +interval.freq +intervalFn = ogive(breaks, interval.freq) +intervalFn = ogive(interval_breaks, interval.freq) +plot(intervalFn, main="Old Faithful Eruptions", xlab="Intervals in minutes", ylab="Cumulative Relative Frequency") +plotCsum(interval) +q() From 99d8fa810e27bbd66918d178ffcef4fb2a2b138b Mon Sep 17 00:00:00 2001 From: Dan Buch Date: Wed, 13 Jul 2011 22:29:16 -0400 Subject: [PATCH 14/18] up to Scatter Plot --- elementary-statistics/.RData | Bin 7834 -> 7839 bytes elementary-statistics/.Rhistory | 7 +++++++ 2 files changed, 7 insertions(+) diff --git a/elementary-statistics/.RData b/elementary-statistics/.RData index c541a3f3e53f76281034b79c0aef2716614c2be6..2197e7dfee1a509af0c97b067bfa906ebe8517c4 100644 GIT binary patch literal 7839 zcmV;Q9$?`giwFP!000001MNKrSQA;dlL7_RPXT}&0QZ5E>hNWgkU`-gf*hb)h795u;QJ)4L)^1{i z7Y>HU1jA>FrOa`eG~)0L@sHzX!mt_mfhJSJxJ(*?XBoi@{NnOv!tgLz;jqvb?*lqC z#qgUL!3FdIF0dI~XG|VV8TfIYm^OghC6h;ExN%!HCPx#DMkXE>BW2#eKW;O4Uwmw) zt>E*P*_UkuKW@X&j?W_)6Sp%4ABKKRBAy_YX#AKh(w?T)?AtCL-fmqx(8aE9T|K<9 zBGu}pFM7Fo;jL7`t((5s&8-{WN)_C&B300~8c<~-k_eSR6isTpP^6M6s9Y@roG%he zM59G1$?*#DcnXliWKtCjISt{ruK_M1Pp=m;rOd?i6Nv04= z6U3;*jg_R(d3lm_9OOmmLMej=OOY&DE>k9HL{Al|RgLIQ-I~?b1`&l;OS-H{HM7$W z!C7JORtVl2F$L|Gs2x@;@NODd6AUjOrPiq33YG0q9nfHo;jzTV0azP!TOc}6*?@Ih zjCBv4v2p;128M&BOz#IPCVaIXje0_+ z8)Up8(;YHCkm-ps>@J>kt_z*(O6R=jTsJ!BP3OAPxgK=Rhv^a!(FQJoVM@r_xpfRM z6O}MlA|~oj2M1gq3b6#KM5}gk$=ezK*w{Id%o%^WCH1dfIiFDv`V76S*fj{;h;Y%{{au0M(euz3bv{HdnnYF$yj|I)>D&(XtZ3IBvpwuo{QsvCV~~3 z91Tr;XotzIX@|*q=s%rV@5(Zgdsom*18BY$3xeew)S zuWZ#^+sLbzG*>BkJxzO&cV}y^Ib_*z?M1#s<;uSe`@Famg%HhjYfaQZz%SNZ7swi2 zDzMmD{Y3IZfPn44e5$GIZGnB;bA{9GWdbwX*nyW`?Go4{IOtdBrM(1p@!E_06!Grj zjV7}NHc{MWOI7&-TfmP@2>P>h?R33^4iEVuOLMIj*dbliF#21fcHZ0`Aw}COY5Hh- z(k_3hIv6Ohjii!(n*`QqJiDWD!&~O?1a?609dGjc^2Gv+m)W`Q)=>gmgvT23PdJx6 z9@A$o`RVRAnvMbo9X^^r2Lum%*E*eCv-M%5z&?OVBHruyMQ|2~UK&55%YIImc2Co; z2na(t2<&fnZoa-CRX-jYzxv21itq}71L|j$KX&qm-(1L#IXtQ&9mW^fp_HY=197E# z^8REmUAbWJU4b2vtL<(!Kj_FPT2BPX8I_ToXgNc?3dOI;Iz*o%8Xw7#rppG|5g+g& zKJ1XbY<2P!m>@V?)XxFw&j!(HZoAJzu6I(NDu8 zJRBrHyHriLPI|oo-ylcS&mQb`b|(#Dfdk^lYQmYko-wup`wES?zY(xeJ&a?gql2sl zx{zGhAb*%&pf5x>7wi}G4tfCnpmD5`J=cPrAo|&$9~~VuA7BTjsJ|V<{_S-1(RL5| zA&}p&LUOZ3{L*%a=7R&!i|~To(DMP&<%swO|Ky1JgT6T+FGMFF$%`3JMgD-sW22il zw7uA(6y_n!Q;5&nBl~0{d87C&SzErCGQ_q5d!2pI@+DAz=m&lk-t}`?q(1#_+3DF1o2R=Z5whVi=)A(@CWc9KcLqE$pOtnyosTwz_{zIEo^`d8g(YDkdN89KYE7}`k(S2CeI$&aIP2EA%?Wa>|y{Im) zfvE0ZEQ)&3TZa4p{1CkUQNS?%u3s}xglI2v30gB(qct+$S9_7ax@#}8I8SpOAQ!gQ zUY{FB{~JrZo>19=QVI`;Ap+R=G?67FO@Q4x9_)fLP;f;;i3FRI1|6|I%ocTe8VK~& z3-JM^^oUB8Pz8Zq)2<#}ygWP^lh8G&*2YJFcbQ!@7Vc-S6A_azc zfi9XKR6hunVJnH27fQnf3_ehOD8Mu50DXe|0Y8nGK|k;dc!xAFF4!I2pTW;i20tLb zAjbHEQ5p{Y2tzu+-hdw92gV-&?Lar85A2g^$3Pdr!8o)Xq523$J-`F~Fu!PhB6zSP zm=B2^aDCUpETd7404Vk7RQ;d z2A)qw8+@K`B?v&>V7h|1LESJsxC2lVO%7@YaRNEfsC^h=j2v4ahY{xHBbYC!Tl3MB zMku4GTk|E(Wa`eN?s5u*dbeTO7zumx3Hrs+)2$o+9!b49dSdU9o^IawYo)hacdWI$ zr(1WdwY#@l53IF^r&|xKwTHKx57z4A>E?sA`gptb#9DiLy7i=6dEfT*cI)ElX)Ji` zfD6blX3i(2y7zc;{|U`?k~~wXxn7Z%Q2kYuUPp0&+vr8@F^UH~zpuF-kQFO5*Glpw zDjScf|G$wbACoB_kk`B*xzU#$tu`xWB7+uC_#&MWnu;y55hV`|;>e;9a z<8UxMW*82j7jyvh;k1G-pbr-ti_3t4HVCle@HkG8GhVhZGA7UsGy)Cy*qT0k43?>1 z;MWqv3-ZCg#RmDnxIiD5ffKhI3ql{P=V9$Q-8hft3|L4(p17WHn!)~=IL)v!ZYMxL zmoU^bE+b>}0_Tf^jgR+(F>o6L{Q{4s7%p577K9<)`258Cvk1fa!^ZSs#t6v&U7h7; zM)NJemHx}&)Yf%6&9p%g8!w0((HjP|x7MwF%us6EIvpZsJXCF^tJ8+R{(|QlS9)Bi z{oh%uzrtmJ!djY;+2=$|zpe-W&ts(RKLbBAG^z~&ViD1fSkSN&8Z&xqLy9iZQuNpFr`l&+HiyCYfa4GiMpE+x}Oed5Huxp zUx4>Sc}x9Z2HQdW2DXF#&aSWiUXtOn;^*()nF9j!s?`_~Zj1<{a$`go!DkrK(-;vp zq_Z(1jQRszgdzUMh_Ehgj0hX1jS*qPvhj#8{eHzfM5Qqt)))?J42Ly_!y3b3#Geg^ zS?hf%_H}FH%eHaB)_d7zE=8aJw#|`A;xGw;^voI<&@?V7Aqj#dhTn+E))LT#!6LBAH#mirL;C=bENGmo&rqCp054byAT z#F7zz802f9Tt)xJjM;9WsaT0nH12<>k{MmJB8&^5L83GW;EP-W@3W*JXYC zBj6$nh_m9*701a6$KJf?4{7A_?VBg(5c9|v0?z|kyD|xb1;B9TCKC+>98+*mp*mC{)y zoWP~?)!NEfRXSuv;xv@yQCSaRS`vJnZ>A|rgt2&YvXDNgMcb@QiKP)~k5$n@$|Qz} zs4|X-DjFc7$~YngoGiu>E8q|s>RBW?Ndi=}<7rmnldvqHxDv4x&Pp?rB#L!k-Rqo>WUP$FW-3WeQYpkV0=?)ZsnDN8jjqos z=q#-pljL~4d^yQ9`&7MxKBJA3oFJ#O;}Rh&71IE+WT8GAr_a)Z%SCiI{gFHzxdb?4 z%awGco)KlTjLzznrxK0RXKC6~l)xT0O_(Of@=7dEBT173ncQ>?JRJj1*MT#SJA&5| zo=h&5#wSTY1D4bSf=8SH#>7?ggU>nlkS$5K`gqBZqT#7ZW8sKNw-a|{j$dw>vsQ8K5g~Of7}^ye8z91 z3knW+uUUGsc&2)f^T>3;B=@;DQkQJ+zRu*$@|c&qFCUHUW-;vkmc?a$54lYOk7O=R zDA?!UyVbk!vXtsa(hU#3u5SKu(x9Fk)re1bhj)t|wl!nm6?M1svjUx?wv_m+8dcTB zWR6`Rjo!#0id;ZgB3lFxqwQE+#K+mku)|n!k1Cy`zTh%+WhBLE!IKOMih0|`2 zXI~4wCk>UX8qhqnS4j1wcROPWquvkn+0<^NXkwp>cK1r3uRl3$bo!>eHk>9s_%(j+ z#P@Fl_AMSaHt6xnE7v;M$%cyaC(M{0y}`a^iRfm#-&uRQH~ zr}AFjlX84_uMC+oEjFy(nEuU0 zvol2}L*AZqtnE_d9wW*vKioC+^3WMpgR4)stlpFDd%DOm;#19$YVxd!nN`QTqv}%Q zr(Tg(hFm`A;J5JZPu;K18}sqXwc5yWhvqh&Kj!G`b8F`XWs;KZeR5ttZ`J>+L0>Pv zWm@nuS8aCi$E?{G6MFe3FMM^#B5}A+;J9e%2J^K|dat@R)V#>{*w1bI1%KGTdxF^6 z;mawGJiq=cw^j9DkP)zY%b|qGdAWhXzkh1+X|R3u@Tie1%?Z_Vi9fg1l>2Q4+l0x! z5$-7qdpV5kA|BU5lymdr$FJ6=bn39abI0euKNgRjKk>J^*o$k`e$$B5Lvha>M+Fx= zU3GM8PPO{WvaIp}J=?cn-MxDM6@SQws_mRXEA}jDHz~*U{hCWp9Q{xG@%KmP?ap4? zT>R5%ai;i2-PTdvW-W+nX1k@pVt-Eb*&(e|XNjjHEbknQz20HE&*0zciuup(gnXR; zzwEoLw>k+z&z=3zs)|o&tLd2 z-l7{*Gb`O42JxRAU!Lo&>i>;NYU#|1AO&|0A z_0!FH$v2PPu3ECsVvyCvQ`3Y!$1l$gnYsMxN0aQPHRnPOlgBUh`Cm<^Tl($UMH6g4_LXX zpV`q#`M00l`EYsKSGPWXv207fQ*RyDbH~4JH*jQ@W6P(Pj>iwWc+axk`|mlq9wl$L z?A)}?)~WsK`{VduwzbReHfn!Y&-dRIerP_Un|NW-nWEVNM>=gPTJ&G33tt>K9~}8r zO6(Heq{U8=y?!nZ3lG27rC-_cHV;+p$2IStb1`*EzT>XlulKf-dRA{t-IDpu?ZX>( z%^rT{Nyef<8za77XK~E2qRY;{kBV*(k);dr^9~1vHCveO>>B4hV0ruw{`Q&eM*Ps> z=SvgoDhQsfd*ric`DM>*4}WxGjVc*%Vxrsr>2uy}OSr#8(adCw?f3xx_GTmQExK?i zb_rj#qjUI-(A(ZGzpv_+)OC2mCb{XNs(_qFeVZ%Bz<3SlV=2Zc&TEn$RfUqWoVMNu$!79}djs zP0u+qf9klpmS$PsFNw=vkTJfx#BrR}>GpH`Oz8Dy^w|=@o<5R(jv;x=?CkAN_St@~ zdcfJ@;&9$Q!L!TGfxbuEZ@&AHzxHRP@37&~uN9W;%Gklp1Abdv6tnx|lU_}4T&pa& zcP>9@#d61;9=^vntScTPzO~@{>0Q+&9WG}%FOymCaG6cc56cS3x3+faTJfn!aQyb0 zya)4I4j8{V`^Yf!=C<8rEnkd}6-I8)X<`59&Z!OV*X)Z2#jGAPb@$5Sp3@xKH(kog zX|?9D@2giQ6i1$Wd%9G&ag9#!_8A)W_U6IT=tYOZVrza*IlAon(;0og+UHJ`)b8`` zrx+QwuTr(Ca;4>fJ$vi;U%t9?YqiVi@Xms_8R~E3kv$$plpP#x@zK8UQ<(VyGq=lK zLR5u&HZRHZ{BBI(ubt;_TK8nk`Jzq_NUz;H)>phJzRbT-b7VxD+-isN%8JVJlR1{h zVzQPV_>RmTxUWOM&G}om9*&e(ygYuVH_vH~z$rf=p;uT|#JdNP#TOI3XI6v`xYMl0 zW5bl!th(g{x1FU*vh)n^Ab;+WXTk0z9&21)#2or|S>fL2mnMjQ8RNX6XXxy4zdEHY z&Yafc_lmOMgv1x;?oReym|m(#KKfQ3-Fm)j%=c4#F1c=49eQ#?NzPKo{Je;d%L>BI zO`AH&woo~!V%5tl2Uy*je%!AP7+xWe0 zVrw_0MY=>sd1nrNn2y!h-`yP&Z@A>4k@36#;8_#c=WAEGKT+P_^Pu8vf@~Ei8 z)h(F?<>|e1_IXVI^wg$B|5m(Pp1JeN2YI}iIq|r-@9o(^B8$AL2kp59!xv|;Ev8>I z`DVtYys5d{F0VI>_xvdDg+TtoIR4jd?&d+WP>7HbbT=Uo*R9WHj5d~9B~{oJ*EliM$gc3(eb<7`vg z_{aAL#0@pwyxi+`fO?HQASPyJ;e@iAw$qCe3r{%(w|X%D$)hlbBKP!bE|+$%ly_{| z`t%pU$t`{)bF0S9ZM}Z_x)G++LW3*fTJevJ+eOty3 z|LGNP`qiyJ6;3?v(o6lsb+zd3rFW zHx|uu5ue-tPQ?FW*R4H@;JLwt6JqvuI9Hjyre&M4k}DV1eYf|i&0gYa^Pf9Ud2{jT zh(Rq&*QG3Qe(CV;+VN=O>9Bu{68g>R)Tw6&cfP&%YE}8>7|yzz$Nn*CfwE|h$FjqB zES-y#rajJAa9Df&EKJ+2xE`=I^+w8_C%$)0+GY3@|6bN))ruGwx3njZKlF=bbDj(2 z<4xawIn#fK<-;Y;HPNNYj%_m!jFvul@$}-WPPN?8D_^v;s`9&IUT3!HQIpEfO(!he z8t!@Yn7w0mQ`wy0X>C6yT6A79MBX#mzxS$J0dXZ2uLoCMJ^i$0&0^A}YZHfk_f$QC zx?f}d9s-?5{r~8g9ZNk+jmOQ@r@QgE8AEuM5xkAZ%^1q6@wl14>v1!DaE6Vi&HT9? zG*dVUngf4!fEl50=w>%?H*oqly>R@|ZSqfU=A<(FCpTk1{jWWJT)$fD|eCc{}5yKcTnkr!#~^7tP$tTQ;klezXp)c_$vZXUx@xX0Q~g;M)?oO_`fN+ z`sau!#VS>jGy(r36#x2ewsop7NrP>)T&zfvq3yrMFVP#nL`UVuFVPWvh9NzTU!oh* z+4vJM}ghWH!5MAxN_U!ohPjbEZ0mJPl{r+=i|RsFh`)0h$SMv@8A${P1U!S{{Gf(2v7Y^GG5$t^DF_&`D*u| z9bc=THUGJ^=2Miqiy62rtR||K|X&Rm=`eFi+q!NA=73=D|M|h=!#3{A?lkQ&Wt^r z>q(Zb@6Gzw<(~T2DSaLZa=Vka)-IMU6zo;MbK4-#mUmQFY%9Gy+4QFR%;~50SGxX8 x-m+Qc{$trib=jgHJ6OpFt7}JIeV^z*U;VmEMBb9ehbW!Y{x{`JYx3!J0074}td9Ty literal 7834 zcmV;L9%bPliwFP!000001MNKrTvJ!~F9Qe=HdX6Hpw>-XdReBN=+ zJ@>48?|bLIT*3mQyIMqB5Cp*{*jD8K95TyglmD^E+nl^jW0Vq6l8Ve(Yik7W3Ed?m zP|8Iq52bvR+M?7RrH&|Vf*R6$vC#M8Ax=>f1czjVrEPD5Ft|GY2*QlKIVc5~DN0SS zycxoWJdOwSxJKvz4Y;{jJ(Hdpqd!Qw7`_>nni;`0VbEe5!2@1!TBbyO9(Wks#E2{$ zjE)IL&lF3U{W5vP@f(sKr_ID+Gw1_Pri5{wG=$GGLKo!4_07cLVYSZW;xq0DGvf$RuQ0(T`4Tq8iH>^k&bWj>sCSs{b1x!(_#)-sgxsuG)GSK;AkyJcJ zoRS=;l#C}4IZPo{@)V_5g6OePtzBG-Osr0n%i1d?V!1L_1xz_Rk(Ykvb@F#oNyfL= zYQxD}`(I4Dzo%Xrk_qAyqa!m!iOg0b6jKb$^4E9Is$*D13*@M@yz8p9O9~5?6uhp1 zWr7`(PPMv6wW>9uDO0grDpxYi%~48X0U=!?mC94W4)IEfL=JBC_HG7%D*9l7HC~p-@rC?e+`4$G6kz|!+K`25RXxa5@l+McIM(Zpn+h821i2! zAK);!wQv~hI2g_f1nMB`TEx-85XBAeT!S zwlP=AQ$6sp32HR!BT~x6;zTG0$dzijOa#RNa+QQ!D1f^V52pd-$|;h_RH(`%LZVUw zx@n|HmYAYyKzfTdq+4sF210(Z_PQXb(WgR- zoz+jI-vtWU0n4YFy51Jrw>?)l-CiyD4ZwJ;H-_bzZtlXcwou1fRm+UA)m` zw$LV$+ia;iUuX;Tkqbe4mL5*kJLu^MK4fXH)j~UDiyB6IO9bc5?LM$*dnLsm#ZTJh zPgMtlgtif6(sz^48ue#)G=zL{NWcD!N(jPS&zSAsgkpCjrY>5<~g2Kf;m=pi}m zkiBg6`V^WVJX_Sx0ol(6@o8_Dpxozl3jBzQpRvGyz+PZKWEapU_<=o=*BbFp;UhX6 zq(8e}WyMf%GN7T+9{B?FGEn%SplE-SonYG`Al9_&M) zdBY0n%@)Z^`5_t)4!|#>3w}e52gH{nk{jkHN7Nqd%>jKOKKV#r%y=rA4=6e|`f)?~ zi!DlF9Ktw-_^dthPd3swiq8sa%NLW5*j8w-_YX?H1ZofMU|t2ig1-ZQ9EKkwJj1+# z@a=#55jmhj0dnE z8V@jz(7bHWALxO;&QNr~9+sdd#2?rnjuK7)-ij~ z6M|FrLV9N*f3gF)^mY?`g7J;~7UnND_yd%Y9$_4rfnUQq2I~e&L60n?FVH_V|G_#9 z^9NloLTgkH@&P{R5BPOJdO+jWAP-}{2fuJ&=#vHOE%Ik-{?f0%%s2=V&Kf6*pYz3ADWv@P}9(KZTVMa_m-bRSl=4w#x+lXozA`|C|wFRIIH zAgcQ(tD;`?mNEVR@esV>QGgzQH>{Z_2I?-s60~NnMr&lgpY9U;?5?{6#d+H6fM8*3 z-StP~=zn32*HbDxNJi4(FjN2=pC}UC-w>i3@5fgkc%_bOfE<;Z66X*y0 z5c~-0ql9!iAP>k3{KL4V{2%&7_256CSFkhC2fjlX{0;^A8T^8OGwlrX5H+7cyFz*j z`Uif&|0p{Z(&<3I6n_N09drHwKZAN^e@weZBK!diJm3fDQ1cP+h1!Arn0^4`hMMOH zdOuMabU6VIdZqlGpwnZn56t;*C<6{ zITW?0`~~ENdLccf<^z;c`bH^pUT69hj1R!?i{Rh~)O?Qm1G|G>pp5usJfGOW^T`<6 zC;3*wK-3I|E2taH4c)_Z0A`}tL2ytfuoH#g!wF;T*aAC@&^908d`8~d52dt98BN~W zuWu%kcOH3{lPKi-49mtysGCnvFN>aT-SBru@@>%*dw2A7^TuB#z1@5;sE?w!Ugc)InVpuDepc)NA+^fVSQcEA-xkCXES zGX1-|VE+m2by9GqQhU7;Ttf9%QF?O6nU{ID^5m@$Izf7QwI4@U4UU@HBG zL#VCm^pSH$P*%bzc<1OkwrY7=}|}g z?iglgCeD8-YU!!XGa{8;>TT2fozSFj9okrfXKHP1--*1N5&EA9X$dqX^j~`SKzU0; zXS8h}egoS+f92_}{+<#2`S6eL(wPGR^m^481#XN2qjF;u7~yBo`Du&-)A?+S0;Bf8 z7eS}r7zNg+jZt8F+870-?lk&X)LB8(4JWX9h$}_#wS9sg#KNaTp?02bWH`J)Jl;|MZzUA zbpwRiG4V!-nt6ow2~U<|9O_an3i?%$uH2h2M0p5Co_SOa77e1|HOwy!#F7)g8Q^Q6 zTt)qsj0vY%Dn=?2C;gi$nbAcn!ngt&WJ*f_zPu$c37BQwsWHM9HFND<`!5!@sNJ{h z>*sK225A4c@@ymZ@R$TkenSG7DCH@#*xyn$4N2%~97!dYCK{upQ-z>%=<}Ja4~Ge! z`71VGv+zS{FTu_G{q{J1b06^FN2k<}A|XXTb~HlYiZF!oL3}P&#_MrBEgcSgqs%lB z)laDQH-0;{KV4)F7H+*3^{+qT2ET_MZf3pfG&L=ncBai*q2s36>$1N79%u;)h_jNA z6~_e?j=gwMAJPQJw{M=DL(CJr5PBZS+LcMr76AIlO(q%`nGC^LQ*G^DEOV{}eUal-nBtxM@;39LT~=H{>~@*l|==CZn<{IB82iSL-Tc z)aj5FOVUu5M`k@lX^HR^zL~Zx6~*A-WD#{Biw>+xiJ=JTj!)5J%B6HdWEm$!7HNdY zGEPVdCx~$*N;qtWd=^Pglmgf6I7*bbL@Wy=xp8tC5HZ*0advpR3IjiS1dJg)0>+U6 zm&^hgu2dp}GttbX2@>>$y>9Z6j+0Z=Or^<*YNdoCU{Jj@720#i-VIqLm8EQBk{oBy zFDIE2pR89>XR&dT;}ujkDFL!F356g}78$a!hAh>&LQFL?9KFL)NI^2TLPb>?1W_f+ zsjR_xYH^YwOYxqf0`a(MqBI4TS7CXINSXrJQ{= zup}Q4JYpqrq7M;-L~rbw{M>PK6T`9M-KUf>QLW`Vw+E z@mFjSocu<+qD&NQK`FvxbV|L>^^vAXVo0wC)tUw*U?r2@3I!zxzmHs{mdl(1loC-g zAPi9_NI<_<+7pqaQW1qw@0%cxFp(@)p6sELNYL+2*kohYQZgS~c5>Q*L0(I2)~)es zB2LaOeDo=M`gy<7jq1pOiz-8#$+k_d{k;2U>vn%vK5g~Ozug&me8w+h3JMN*uUUGs zc&28L^Qd&;B=@;DQkQJ^S!eQQdGyQOmybqtvlxDV%i=QshukJXM=}@37wik@)#_bX zSxWUI*@g#SRyY4RX>bpYdgQ0OBf7;5-rAoDfyr0Bi`8EFT#J6t)_bpBu z7yNkTm1`aBj%@h_Fw^%1mk4S&MHPABGsl2E6q#VE9 zD+f*)`pEZ6f~e(-!t;@R%)NrM_oRh1RgCL0IVEVj@0{?^78}-XO#kYl*_on~1K*x= ztnE_d9xcu-KioCs@~|0JL#j`=tlpFDce=O|Yqb$chvqh&KlbSBb8F`XX9}d-d*{4--m2dhgTGvS%e3HSuEy-( z_gS+q#`p9~Uij*eMZyT*prk0-2J^K|dab%P%)H3<*pF@d4*0Nt_XLTv!{<{RdH(%Y zZma6IAR}<~mP7Fo^Kyd*{Q9ZIry=&$BO*twG$+){r2*VlQ|`AJViPL=O0=ge^yP3t z7fDhJan8+;AHP_e(y7Dx&K;ls`dBh<{={GEVlJ-L_)jBJ55+!n96g}m>8hh!bE-9; zmt~dr@6o;m>+aS2ulPehRBh)BUa@CMyGc2&@7G*<;uvt+pT9pUZ+G_E=8_*yOEM)l z>b8#VHfup-Gutf%7W;Fe&JJy*K1)0uX?f>h%=He_eTV!~SImEQXW+;APhOt->EY+Y zXFfW`_H((NYCm~bjn(V99Dq?XRCNPcH|pBw4t*fHqB&gH(s+Rk6|fARTrYx>ytub*ztOTKyR zcGZ%77K5!Wo|-1=F@AaWz?sXhel*E$T61pTVZrfBy+0etwQ!3oPG#?3QgypzRIh8L zZFd&%r03sH32O5Tk8`QV`XQxr#?CAC@pt@T{Lc^1Z@zf0=j-IM5rHdL^))*>DgXAf zJ0C7j`{LHe&z5cJd+M#@dhYnQ?FNm?a%}nZ(($;#7w=iNd;cvb*Q4a^mYtin**djf zeLso+d0V^uZlm{i^?d(L;fLlkx=9umohh0fc%;*&qDB9gy70w;^8+HjNQqg(o3z*| zqUVprpIJ)Ge7`-9Efw*X$8zo@6W< zyfOUSbr#1QE4u9L^Qh;BTMVZsd0ze!MiXu7cp% zx<@>FmS6U~_V7n1*65P{Cnmb>pFZc!w)p!?l+8@W+Kvz8Z*Mm8-l7YaVwUjLJ35EW z2)XV3^4qFziCss;Z&H{pstU|`lyp6G%*1cD-Fol&@p)$cRj-~ARf`JyZ2h%p!`*gE z@>iX8DarNtHHKADTh@2q+Tss>J8OQ*8}vG+drgL5MerN%TE&eYQ_v{ zaqXyOE7;}@SSmQP!_;rpo@r(K`zS$1-3#}^50M)_68^;eE*ma7mhKH@s# zyZ*j|N18V;n5ixqG&|96n4)S~_oYpzt1&E0#O% z^zb{rVO{Z9$*l$7PVcHI>2NvAd70dLhs$ii{Lrkxd~0i$t`(n(gvW2c$$K!bW&iP; zvyTinZ*JR7-txux7*WLboEG+v?ws1-e$BpkaP;c2Q+KaC?m5k&ebc3^oK|Zd`@MQ~ zLV4u5x2H>W8`r3KZ{J~&Z*LwfjaqalG^Xaql%vb8Kb_I%i+%1yN$ozrzRFRd`zqC& zDpy+e-?O)l|M{ysw^qBH4(lv@o1yti5z+l&c-g@*79Z^kKZTkfFmt=yWuUrn&*mk0 zp5KfO`nmJ`P3xYFJzv!6fxv6`j`bBUiZAnT)EpVvCb!z5yt1OQ{A7;hvFNO&2fh(x z58BtE@8;$+l26 zxMJ1ID+gHJntt4`2^@BLR3GkxLEJ&9vn|xeJhtFY+CP74`O5!;G?WYqS9Pby1(FzF-9yV$Bl&5CW4cJ13TZp06-c+;QG>k;=6D z`3eqeufK(9yA{_1x2E1mx%0&Du1UKL-{N1(nygw8?c$d9KCrp<=x0+s|hP z?67>e#JMJ_RMoL<=7BM?2QQvpeATIzJ7(pJc2-sXcg*X|Ha%)m*}3V2gQ-QENyY0SRaZ|xZCSHe;L^2;!@hg!?!i9Sn7@HQ z=T83*9j9Yy5UKH4nfiP;9xFq~XBnZ}c&rRvSB=NY{8f*Y;lpIuc&g0r+d(sh6Q4Qo z=LMJ%`i5?H19tVN#xK$7d^UcGj@koX z1f724m+1Pm@k?}i+V~|py-fQOo%&&JSIz65PGd*T8zuNqTRJ&n%@fV?z`*7uEqZF+ zv~Yjp8{jS|x$hWMdF5x#F^|kSU6ywe{4&D#()EHxn!PR#b6$rZ6uZ;LnxCiiek9EG5!_n4SiVrWSM$zogCbkeQB$$4^zvlWo0>DHpW0vP`lH~M%_{fr s%Pwll7Jc8rN-;!JJL>BDgn;>)*ImN%mOMU0+NAdX0j=M%7}0eA01sQB8vp Date: Wed, 13 Jul 2011 22:38:38 -0400 Subject: [PATCH 15/18] up to Numerical Measures --- elementary-statistics/.RData | Bin 7839 -> 7893 bytes elementary-statistics/.Rhistory | 13 +++++++++++++ 2 files changed, 13 insertions(+) diff --git a/elementary-statistics/.RData b/elementary-statistics/.RData index 2197e7dfee1a509af0c97b067bfa906ebe8517c4..571f78bdcdcba542dcc417f89031d550c8d32215 100644 GIT binary patch literal 7893 zcmV;`9xCAZ> zx14+KY4_flb0?SZpqTbHF*XE2a0#v*^*@hF^10N19O|~FZp&DeR6IsarR;SjIe*|Gg-8=-L&JsZj zENzAGA&uh!J-!J#Km%?*R?enp#p(|rAH%o8pp^++3l=S|2|VBhr)5dh=0SkfTbPiA zhtaXX=viWr-7lL*9KSC4aoTJgE{i_!WJ#FTNnQ9H6LdjdT;FUQ0j4V)7uw=&z=oC> zeG3z`fIpxGK7-qgEu$riJ}wj62XMb+%V>%=?#rh1Xo2y_ro&-D_6_pmK7+T#`)2zJ zK5p4gv+up0aj~|w$ zYC9OS9lSc=wN%EdqcPjjt0P`ZWxTK~mC@HSxU!JQ#A;xQW;I?c(I`|@s+xr^l!#@L zk&=|;c$IW4g~($IsaB+@BvM3=i%Om1Q{)m&l0x26C6y>tacW@7-Ho~oGp}2qn_4=y zrA`}ee!Bl+(*u1C(ojqgpI9APAxc!T5}{aP)to>>_naD*Rdkg+wT^dvv2ID>z>@a*ggl~_8f_ht24=WbTZaQ2GjIIztdsJ_S^3JFXc(BIk*kb(vt^>Ml5FaSd5Zw_I z-N)dpJfNY&;bD+H`@sszLwo^UE~^h-Tv9S(jbnlZ0aYy*Crc?G;JTo4U{~*>zL4k$ z2|q}5f`mULx}XHNoiCkgN2l7;sSb3iBc1Z2Q=RBkXFBE2o)Qq#j46TTO32&!H7qm> zjW|{&C29``7u+5ysSKG!Z+3Fg+iCw;-!_rV8GEuZ^{-YwpH&X|4JerRgKn7iTL+-GKwY%9@O(p-#Q6+AS_HEobHh50g0ZF2!cc} zNCZQoHzfMh;T^TsMq14lpyr+oHS1TaAeA^ZNuB^SdQxjciVAezD^01As?|nx%LqxL zLLp<>##*IF^})v`sL`s2Sf!9ik|5htq0%ViV#xMYsHN0G0o;Z9xb>x0PO((3Mnx8p zQnd!qEu+Npq!e`>(%Zy|HDYQ$rMNKRJp#!{HR4=v%TC0$LLlnQkVokot5$Gcqg7zFkJzef%phJGh(p@V>PRJHjtoF93UNF0JzoM-#X#Qw^ z(k^~_y+2sw7)gO%8$|Y~Kc~ZSLmTG^L{7l(EkE-6@`WOs=h?a5_E927M8_V#n z9Myd``RVpIx`rYb13g+k7laRTSGyfwwfTOe$T^4t5$}!iB0L+!FHIluY@;JAazXOgjXRasCB{+YT%l9&#=W6g1#6K78W8j091N^`ewRd9qzmtJK+V8;+qWOTP<6sy! zw7)na2;&gODa2=;k$-ZLzEOOZtS(v%x=T{Sv4>w1asS^a}nC{P9?RjPQ)} z3c_~+{*Zn^-!Q*9vh9TW;~@W|$34s|NPjTy9FQHrZXmxCYR?6IAi6Lf&^!p^**G4+ zerPu0ejejo)CXve~<(0=g9JBC&PR}&woy+J*{uV7pxlypI*nD zK~JcjwinVn2l`g{xZn?vM|y;DWCeZ=>lmyX2!b9tNME3Tdj5lT z8s-nCUPSh&9OMIh&>!&Yg7kpKtx+DOZteRV#Y-7i~-ZakP!Dv7={0EV>V?S}ROVO{qJCx&sX+trgW3 z)DhMFi&ar8ddr&rKR*O-d=y~D-;HbLv3~lCT!hxlm1vF3571xauipBLEY8zi`^foC z_1EXd(f`I8uccIOu$-d9W2pc(J}ndpN#kI*P5`^0EE0T)SSG{9B%>j=huNsc$OD1C zdLcd_NcX7Lh&2${wQTRxu7i&+t3M9x1)>6GWg786`=Jd7HcfpOY9pzuwQQp!d_XD~Q z>_-^3I!yVQRap0){kr$=#Zo;zL{UFJrf3WFn{eaAG6Let5rulE5cM-ShbTP500*M{ zU=gZEpdP^pRNouHNYr0ng4GYfEC;?qSnYw{AQ6*apbLCPu=)pj;iz2% zf??2}B|q@dhhWzCNA*#xcKum$Kpy%7{=z^`XrIBP8(zqy5Bh|D=sdz3#G(swMT(eo zfiGGfR6YRZVJnH&7lL6TmK>-&6!2MmfIUI~K%b_|;veJ%x`XQI7yOQH&yr^_OCHc) z2&?~r2!=yDg2@N?8}I}2K>vN99{5K5fq%0782AD_=!fI+$PKu&_$o*w@hOnyKf=yw3C9q;|KLkI5@@Ns04#)%Y0{<{>Y5#|QQ91Yz=oRb?^nveC7Qcf)eipyr-)uX>JVeiD z(5{dPLI1!n_#bVjLM9#Pm*$UPwqws9;Ac?I?vHKPD1_gag$Miq9eO?jzEC@`AKMRL z+|ctJ!R#kGgDEG}gI;NWCz$lu>jQiK8^o%IJiX3kF#BQ8+W=|5Wyt}2(DMg^;Ah|u z^t_wF%!i@&w7-D7P%dIZdOkpq);EIed7bT7Fg^gk7pez8pyzYcAJ`rA0(rzQ>-oe1 zo=-+HKF_xk1)*jzTtVGnZs;DS127ZK4yp%r0z1*Deh6WT9YdvF?ateidx8XRL2zv_&`o+=Lt0Vp%NxeDxV(*c@UViv%rJq+PthSS{ zS0}8tlb=^-thTeSS7)rYv!9ngR_pKU<&V|+`+0T2YPt2xYK%VaXfRCUJssm_E7=zN*sLTRO11$)qLV(YjFn%Kow-ttC zO&9};Tnyh9O9KRY@Xaeu+ZHS1VRYfUUYr&eqhpKlWr}BI@*_*h?j77o-wfE~xjX@Z{dyp4%Ifp6duc)tZ2N+| zwisQ|5B@DS=m+`*{`f4KxZl_i#$dewtH=4qWwd7D0t9{HcEWiE|7X**!t%JE0RMb~ zX=hwVrp5&>7Z2+nZwGzgJ_hy$87(ndxE*W=Cg1q@#M^TS=J?@a_ON0Fm&2(|YYdiYh9Wi{AZ|o&7|^q|VeMmwQk&Np2)W~-YCA)jKK%6;Jl}ZI{X*&g z&RYEyt^*X-(uK@ECt~__E&P8TBW?K^^x2_NeFzYXh_=RphHW7I$Kg+i_WjvtCqx1enEaR{!c0ER z5nRtF=1oV0>Gv!4Au8r@m^mC~4u_e;Vdiic@n^$f_Qtss z`?}TqvTa(iwO+Q_OVQ`QZSxeeI7~yJJ*zr8w2VtiNP=Jq^BXaRQmkU>nhru~RARZB zs+Y<&br9ypCYT^<v`v@B>8pOb>n_os1M?w5y zkgtyXYx*~4?0SZ!Vr62Fs*<(nbHw}FLDV?0(M@1nvAGX)of?aJ_|*S zs`o7U_9+~u0owngG}lBqJSM@CUzY$DDn*Js?vGT>KoWVHMp7$eNv0_2RYATO^mKaD zgW=?pK;_0OHUS8BBd_1>z038xyMPBjMx}o&2@w4V(gb}w!Wh;E@%dODFURq8ba?RX zGTTISKViDx{%zO&q>(*X__bQpzCOnd{tP|b%m&w~Z&@_uRI}A0*9|k*WPST1&>{(iOB^YOt{)2F<4UpH~ z`IiLevCH9uaW-Qrc7bkwWt-*SqQ;nVyQ2zznoI!)weZu8X`VQ4G@X>o>7*J?;4;kB z`odUEIwU31G?WxjNgr`q5`3L+rOV62v3PZ|m_DdQU#(7wr3vYeRWV>HWK2R-9w$U) z8HA`jPDlkOi}9o?IE03J7D-N$0oUAkT9o)CED0p}@d`N*vDT$=b_DtYBR>WNj3EO8 z#*q=1N&*?aOe%-7(yU~OQo~pGhRH`ZT0v8@lqDx=R8pFNQT4J^XwRd1HzrkdlD3US za=cN$ykuH@s$4~%(Z)+oP}0dUiI9{_X#_>G*qDqnCh5+V61ti3NFJV229j}=YP!%U zh&ow8CymC_NX8hGH18>D5RacGPE%rOHI}A{q$z<-emaJpj-jU;(Amcw!E1>?p_Izw zlVo54Tj~M9Cr%nKPLY{vMt|V$qfqL0Z%sWkSu2yIK5DT{e{`Duv^cWhpngRmOVO|G zOQ_`}P`Qab{+(_`8BcCP5aF>prC;ZI$Wo-Sl-Gl5Eqf+nIg9Q}B`t@rheEAU$lZFX zq~c^i7^q2bVj82?_d!14VtJe**+(svqTi!%sm7eeR64Hg_>_J9J1lZo zv#LWqNpg1KgHPF0&jysP*F^PO@FJ{%e9Oe@FFSv+X6Fy(Q&v9z$E{&Ur~NjvpkSZh zs>R2Pr)zh)4^J0O@Sc4wbdC5jtAD?A(3!@5IA_O7(h`pVJmCZ+^$^`8|H)@a@8_37W7w>njH zyx-e1uGQ^|ykjJ}Ee4X{`dfirB8EjqTc;x5iz50IGyK|h>-Q~+k zu7bec%eTDlJuf3@<)#A(k#ll``~Lo^(WimVl|!S3FSjN%OJzOzO(xxKHqaqV@r`&_ zS=jR-WIO4YMv|QCA3uJzI;BmkwQXBJ{r#bI^xW~k)x@4(tqq()q#lTS;yR*l!Q&N& zH|JDpzbwlt@6)AaBhKy1cV7wzeR#c195VgE32uPL%~a=!JF4u?CLQRlO5NwvB+heIbfZB(T-j%x^sv`P|D9*g{g+_D zwaJ+;yj=zepB!D9>!<1cjYVqd^orznws-ka0j{ls&uw4oFRE_)t?;)_pKeSY_5Ri4 zjd{t}kKBB{XphYRyYnZeh`Wqkn%!^u(#sz$vg=o!>35JkdZGIl!}vB{@x`g!y^CJo zEE(SIN@?@$1p?XG_mhH~{U+dD=(2WT>8w$6N;?I*{xtU2`)49^V8iu}mDEk8Ye1C4G*K_u4yk)|)K}cNeJ|Sd4NU8zkJ?VA!1n=Ptx9 z5^A=!4WAZz)9?BBuRA8SADXa1X}REaP|kxfSHnh*|8C2T_r4#WX69e+&^7Y)g2En~ ze=k~hyTzjX6{kH)a(#Y}E5w`F)$K>s_!;^W1NDf8F;IC=e)t22Gej&E-LEV0?}fXetjs*w$H zm7;}*Jg5E8$A7>u>xKo>H6{ILCIt*uzFyLKas4T|MU4upLZbqT@_$_*k4kgD-#=S0 zHRsga$zy67TV;K}C@z0q#@Nad*D-b{Th8u2uIrnTr%Ob;y32aG_RCx1RSKWl@|qf z&g6$ITk5*qC*bJ1HN~T(H|BjmwY|2a)x|9LB?|j(9y7_gVOc@>_Vym_D?Sy8j^2Ee zcW+MPK4Uj#9~xra(6OVU@w2h9;>fKzjhr9cId;d^UysUWp3w<@{)405Uf*9Dz2HDtY}L;xhnHM^Jgvu9d%TH~>OBFy zRKvseywGfTvD~)LuH7}lFJIoevC`vYcw5oi4DC0{$jd>%exs@*EFDhP?AJ4Hp z5|g!f-*;qo|2?gGZOq@i`Cz27;`z~A-2`s4L~i*B30=doBHrDLEIyy;H@zaX&#eYk zKI&cEQe*M`Evz!C!ov9kV_R*TPUmljU zy1Xf~pgg@>&K{qspB_6j>fJnT$`!q zExws{A#ZZ-mWykx;(b3264|}ET%2(?&vpK#6C=ErI&3~xI&0U2m0MKW9T8n~j_td? z{;qT3f}?jLTUdqI^0UStowX!%>FLea8y|c0%e{$1vR>`U+I9Wd{`{zIy}eWOj$fHm zQ113YxpLyv1kZkZ7Y6s2%)as69-Gw%8wxIqiw+jMOgu8D<6i#i9?312M0>BDw0@?g zWBkLrec}dNZd}^oRgiX-GAJfydf~XT>yA^45(`hb^=)!*?xP1`E=AtyS3EB4T&`^0 zxar9+`X)E}k<5KPW_HuHQ`Zc$oD$l%BCd(>(D1GMAH68~$)blm?|hR+Rm-+a*s*8R z=%GKo6imIm`KQA1M?Jb~A9=2n+`jPcr10zVpSFy3yqUj$nb0fp^a0n0lhTOiKfavS zGXC0v86MIzd*4ZfU+lQCOVxLF-@i`=WCOVzELXYLy*zxV9%`Il{~`6HJOuB77Cz}J^gK5ksKko0I@&t=aY zP3MqKSJ=OYK<82aKRRZ|)+mzsxS85~n~$4e;&V*UH6J&_)Rp2ue|CT!p|9)a)^XQy`Zv9B{LyXkPj2?0vic`CYd`(3J$>A`S{wAu_D?uc z-I8E_z+m++`saU0u-ZGQ^ughu?P>N%a`vf4C(&O6$Y=c(0Vpp-e;ok+dH^f`2WE05J2bPW5Ty_t5{vu{lnd18&#v<^+`YtLPo zcdGuDhT8Q$U3ZV>9@p-Dnm1)n&tc@#hrxM46FZP^a?fQt3~QpTR)<{jXgf%Iz16AF z2XlSN(zV?<-+J89{yM4q15s`#^2X|giut15+IL>-l-bJG+KMfu7bjX?*Pc50*!fcX zpUE2zE4+U!JFhKU@M9}G_RPXT}&0QZ5E>hNWgkU`-gf*hb)h795u;QJ)4L)^1{i z7Y>HU1jA>FrOa`eG~)0L@sHzX!mt_mfhJSJxJ(*?XBoi@{NnOv!tgLz;jqvb?*lqC z#qgUL!3FdIF0dI~XG|VV8TfIYm^OghC6h;ExN%!HCPx#DMkXE>BW2#eKW;O4Uwmw) zt>E*P*_UkuKW@X&j?W_)6Sp%4ABKKRBAy_YX#AKh(w?T)?AtCL-fmqx(8aE9T|K<9 zBGu}pFM7Fo;jL7`t((5s&8-{WN)_C&B300~8c<~-k_eSR6isTpP^6M6s9Y@roG%he zM59G1$?*#DcnXliWKtCjISt{ruK_M1Pp=m;rOd?i6Nv04= z6U3;*jg_R(d3lm_9OOmmLMej=OOY&DE>k9HL{Al|RgLIQ-I~?b1`&l;OS-H{HM7$W z!C7JORtVl2F$L|Gs2x@;@NODd6AUjOrPiq33YG0q9nfHo;jzTV0azP!TOc}6*?@Ih zjCBv4v2p;128M&BOz#IPCVaIXje0_+ z8)Up8(;YHCkm-ps>@J>kt_z*(O6R=jTsJ!BP3OAPxgK=Rhv^a!(FQJoVM@r_xpfRM z6O}MlA|~oj2M1gq3b6#KM5}gk$=ezK*w{Id%o%^WCH1dfIiFDv`V76S*fj{;h;Y%{{au0M(euz3bv{HdnnYF$yj|I)>D&(XtZ3IBvpwuo{QsvCV~~3 z91Tr;XotzIX@|*q=s%rV@5(Zgdsom*18BY$3xeew)S zuWZ#^+sLbzG*>BkJxzO&cV}y^Ib_*z?M1#s<;uSe`@Famg%HhjYfaQZz%SNZ7swi2 zDzMmD{Y3IZfPn44e5$GIZGnB;bA{9GWdbwX*nyW`?Go4{IOtdBrM(1p@!E_06!Grj zjV7}NHc{MWOI7&-TfmP@2>P>h?R33^4iEVuOLMIj*dbliF#21fcHZ0`Aw}COY5Hh- z(k_3hIv6Ohjii!(n*`QqJiDWD!&~O?1a?609dGjc^2Gv+m)W`Q)=>gmgvT23PdJx6 z9@A$o`RVRAnvMbo9X^^r2Lum%*E*eCv-M%5z&?OVBHruyMQ|2~UK&55%YIImc2Co; z2na(t2<&fnZoa-CRX-jYzxv21itq}71L|j$KX&qm-(1L#IXtQ&9mW^fp_HY=197E# z^8REmUAbWJU4b2vtL<(!Kj_FPT2BPX8I_ToXgNc?3dOI;Iz*o%8Xw7#rppG|5g+g& zKJ1XbY<2P!m>@V?)XxFw&j!(HZoAJzu6I(NDu8 zJRBrHyHriLPI|oo-ylcS&mQb`b|(#Dfdk^lYQmYko-wup`wES?zY(xeJ&a?gql2sl zx{zGhAb*%&pf5x>7wi}G4tfCnpmD5`J=cPrAo|&$9~~VuA7BTjsJ|V<{_S-1(RL5| zA&}p&LUOZ3{L*%a=7R&!i|~To(DMP&<%swO|Ky1JgT6T+FGMFF$%`3JMgD-sW22il zw7uA(6y_n!Q;5&nBl~0{d87C&SzErCGQ_q5d!2pI@+DAz=m&lk-t}`?q(1#_+3DF1o2R=Z5whVi=)A(@CWc9KcLqE$pOtnyosTwz_{zIEo^`d8g(YDkdN89KYE7}`k(S2CeI$&aIP2EA%?Wa>|y{Im) zfvE0ZEQ)&3TZa4p{1CkUQNS?%u3s}xglI2v30gB(qct+$S9_7ax@#}8I8SpOAQ!gQ zUY{FB{~JrZo>19=QVI`;Ap+R=G?67FO@Q4x9_)fLP;f;;i3FRI1|6|I%ocTe8VK~& z3-JM^^oUB8Pz8Zq)2<#}ygWP^lh8G&*2YJFcbQ!@7Vc-S6A_azc zfi9XKR6hunVJnH27fQnf3_ehOD8Mu50DXe|0Y8nGK|k;dc!xAFF4!I2pTW;i20tLb zAjbHEQ5p{Y2tzu+-hdw92gV-&?Lar85A2g^$3Pdr!8o)Xq523$J-`F~Fu!PhB6zSP zm=B2^aDCUpETd7404Vk7RQ;d z2A)qw8+@K`B?v&>V7h|1LESJsxC2lVO%7@YaRNEfsC^h=j2v4ahY{xHBbYC!Tl3MB zMku4GTk|E(Wa`eN?s5u*dbeTO7zumx3Hrs+)2$o+9!b49dSdU9o^IawYo)hacdWI$ zr(1WdwY#@l53IF^r&|xKwTHKx57z4A>E?sA`gptb#9DiLy7i=6dEfT*cI)ElX)Ji` zfD6blX3i(2y7zc;{|U`?k~~wXxn7Z%Q2kYuUPp0&+vr8@F^UH~zpuF-kQFO5*Glpw zDjScf|G$wbACoB_kk`B*xzU#$tu`xWB7+uC_#&MWnu;y55hV`|;>e;9a z<8UxMW*82j7jyvh;k1G-pbr-ti_3t4HVCle@HkG8GhVhZGA7UsGy)Cy*qT0k43?>1 z;MWqv3-ZCg#RmDnxIiD5ffKhI3ql{P=V9$Q-8hft3|L4(p17WHn!)~=IL)v!ZYMxL zmoU^bE+b>}0_Tf^jgR+(F>o6L{Q{4s7%p577K9<)`258Cvk1fa!^ZSs#t6v&U7h7; zM)NJemHx}&)Yf%6&9p%g8!w0((HjP|x7MwF%us6EIvpZsJXCF^tJ8+R{(|QlS9)Bi z{oh%uzrtmJ!djY;+2=$|zpe-W&ts(RKLbBAG^z~&ViD1fSkSN&8Z&xqLy9iZQuNpFr`l&+HiyCYfa4GiMpE+x}Oed5Huxp zUx4>Sc}x9Z2HQdW2DXF#&aSWiUXtOn;^*()nF9j!s?`_~Zj1<{a$`go!DkrK(-;vp zq_Z(1jQRszgdzUMh_Ehgj0hX1jS*qPvhj#8{eHzfM5Qqt)))?J42Ly_!y3b3#Geg^ zS?hf%_H}FH%eHaB)_d7zE=8aJw#|`A;xGw;^voI<&@?V7Aqj#dhTn+E))LT#!6LBAH#mirL;C=bENGmo&rqCp054byAT z#F7zz802f9Tt)xJjM;9WsaT0nH12<>k{MmJB8&^5L83GW;EP-W@3W*JXYC zBj6$nh_m9*701a6$KJf?4{7A_?VBg(5c9|v0?z|kyD|xb1;B9TCKC+>98+*mp*mC{)y zoWP~?)!NEfRXSuv;xv@yQCSaRS`vJnZ>A|rgt2&YvXDNgMcb@QiKP)~k5$n@$|Qz} zs4|X-DjFc7$~YngoGiu>E8q|s>RBW?Ndi=}<7rmnldvqHxDv4x&Pp?rB#L!k-Rqo>WUP$FW-3WeQYpkV0=?)ZsnDN8jjqos z=q#-pljL~4d^yQ9`&7MxKBJA3oFJ#O;}Rh&71IE+WT8GAr_a)Z%SCiI{gFHzxdb?4 z%awGco)KlTjLzznrxK0RXKC6~l)xT0O_(Of@=7dEBT173ncQ>?JRJj1*MT#SJA&5| zo=h&5#wSTY1D4bSf=8SH#>7?ggU>nlkS$5K`gqBZqT#7ZW8sKNw-a|{j$dw>vsQ8K5g~Of7}^ye8z91 z3knW+uUUGsc&2)f^T>3;B=@;DQkQJ+zRu*$@|c&qFCUHUW-;vkmc?a$54lYOk7O=R zDA?!UyVbk!vXtsa(hU#3u5SKu(x9Fk)re1bhj)t|wl!nm6?M1svjUx?wv_m+8dcTB zWR6`Rjo!#0id;ZgB3lFxqwQE+#K+mku)|n!k1Cy`zTh%+WhBLE!IKOMih0|`2 zXI~4wCk>UX8qhqnS4j1wcROPWquvkn+0<^NXkwp>cK1r3uRl3$bo!>eHk>9s_%(j+ z#P@Fl_AMSaHt6xnE7v;M$%cyaC(M{0y}`a^iRfm#-&uRQH~ zr}AFjlX84_uMC+oEjFy(nEuU0 zvol2}L*AZqtnE_d9wW*vKioC+^3WMpgR4)stlpFDd%DOm;#19$YVxd!nN`QTqv}%Q zr(Tg(hFm`A;J5JZPu;K18}sqXwc5yWhvqh&Kj!G`b8F`XWs;KZeR5ttZ`J>+L0>Pv zWm@nuS8aCi$E?{G6MFe3FMM^#B5}A+;J9e%2J^K|dat@R)V#>{*w1bI1%KGTdxF^6 z;mawGJiq=cw^j9DkP)zY%b|qGdAWhXzkh1+X|R3u@Tie1%?Z_Vi9fg1l>2Q4+l0x! z5$-7qdpV5kA|BU5lymdr$FJ6=bn39abI0euKNgRjKk>J^*o$k`e$$B5Lvha>M+Fx= zU3GM8PPO{WvaIp}J=?cn-MxDM6@SQws_mRXEA}jDHz~*U{hCWp9Q{xG@%KmP?ap4? zT>R5%ai;i2-PTdvW-W+nX1k@pVt-Eb*&(e|XNjjHEbknQz20HE&*0zciuup(gnXR; zzwEoLw>k+z&z=3zs)|o&tLd2 z-l7{*Gb`O42JxRAU!Lo&>i>;NYU#|1AO&|0A z_0!FH$v2PPu3ECsVvyCvQ`3Y!$1l$gnYsMxN0aQPHRnPOlgBUh`Cm<^Tl($UMH6g4_LXX zpV`q#`M00l`EYsKSGPWXv207fQ*RyDbH~4JH*jQ@W6P(Pj>iwWc+axk`|mlq9wl$L z?A)}?)~WsK`{VduwzbReHfn!Y&-dRIerP_Un|NW-nWEVNM>=gPTJ&G33tt>K9~}8r zO6(Heq{U8=y?!nZ3lG27rC-_cHV;+p$2IStb1`*EzT>XlulKf-dRA{t-IDpu?ZX>( z%^rT{Nyef<8za77XK~E2qRY;{kBV*(k);dr^9~1vHCveO>>B4hV0ruw{`Q&eM*Ps> z=SvgoDhQsfd*ric`DM>*4}WxGjVc*%Vxrsr>2uy}OSr#8(adCw?f3xx_GTmQExK?i zb_rj#qjUI-(A(ZGzpv_+)OC2mCb{XNs(_qFeVZ%Bz<3SlV=2Zc&TEn$RfUqWoVMNu$!79}djs zP0u+qf9klpmS$PsFNw=vkTJfx#BrR}>GpH`Oz8Dy^w|=@o<5R(jv;x=?CkAN_St@~ zdcfJ@;&9$Q!L!TGfxbuEZ@&AHzxHRP@37&~uN9W;%Gklp1Abdv6tnx|lU_}4T&pa& zcP>9@#d61;9=^vntScTPzO~@{>0Q+&9WG}%FOymCaG6cc56cS3x3+faTJfn!aQyb0 zya)4I4j8{V`^Yf!=C<8rEnkd}6-I8)X<`59&Z!OV*X)Z2#jGAPb@$5Sp3@xKH(kog zX|?9D@2giQ6i1$Wd%9G&ag9#!_8A)W_U6IT=tYOZVrza*IlAon(;0og+UHJ`)b8`` zrx+QwuTr(Ca;4>fJ$vi;U%t9?YqiVi@Xms_8R~E3kv$$plpP#x@zK8UQ<(VyGq=lK zLR5u&HZRHZ{BBI(ubt;_TK8nk`Jzq_NUz;H)>phJzRbT-b7VxD+-isN%8JVJlR1{h zVzQPV_>RmTxUWOM&G}om9*&e(ygYuVH_vH~z$rf=p;uT|#JdNP#TOI3XI6v`xYMl0 zW5bl!th(g{x1FU*vh)n^Ab;+WXTk0z9&21)#2or|S>fL2mnMjQ8RNX6XXxy4zdEHY z&Yafc_lmOMgv1x;?oReym|m(#KKfQ3-Fm)j%=c4#F1c=49eQ#?NzPKo{Je;d%L>BI zO`AH&woo~!V%5tl2Uy*je%!AP7+xWe0 zVrw_0MY=>sd1nrNn2y!h-`yP&Z@A>4k@36#;8_#c=WAEGKT+P_^Pu8vf@~Ei8 z)h(F?<>|e1_IXVI^wg$B|5m(Pp1JeN2YI}iIq|r-@9o(^B8$AL2kp59!xv|;Ev8>I z`DVtYys5d{F0VI>_xvdDg+TtoIR4jd?&d+WP>7HbbT=Uo*R9WHj5d~9B~{oJ*EliM$gc3(eb<7`vg z_{aAL#0@pwyxi+`fO?HQASPyJ;e@iAw$qCe3r{%(w|X%D$)hlbBKP!bE|+$%ly_{| z`t%pU$t`{)bF0S9ZM}Z_x)G++LW3*fTJevJ+eOty3 z|LGNP`qiyJ6;3?v(o6lsb+zd3rFW zHx|uu5ue-tPQ?FW*R4H@;JLwt6JqvuI9Hjyre&M4k}DV1eYf|i&0gYa^Pf9Ud2{jT zh(Rq&*QG3Qe(CV;+VN=O>9Bu{68g>R)Tw6&cfP&%YE}8>7|yzz$Nn*CfwE|h$FjqB zES-y#rajJAa9Df&EKJ+2xE`=I^+w8_C%$)0+GY3@|6bN))ruGwx3njZKlF=bbDj(2 z<4xawIn#fK<-;Y;HPNNYj%_m!jFvul@$}-WPPN?8D_^v;s`9&IUT3!HQIpEfO(!he z8t!@Yn7w0mQ`wy0X>C6yT6A79MBX#mzxS$J0dXZ2uLoCMJ^i$0&0^A}YZHfk_f$QC zx?f}d9s-?5{r~8g9ZNk+jmOQ@r@QgE8AEuM5xkAZ%^1q6@wl14>v1!DaE6Vi&HT9? zG*dVUngf4!fEl50=w>%?H*oqly>R@|ZSqfU=A<(FCpTk1{jWWJT)$fD|eCc{}5yKcTnkr!#~^7tP$tTQ;klezXp)c_$vZXUx@xX0Q~g;M)?oO_`fN+ z`sau!#VS>jGy(r36#x2ewsop7NrP>)T&zfvq3yrMFVP#nL`UVuFVPWvh9NzTU!oh* z+4vJM}ghWH!5MAxN_U!ohPjbEZ0mJPl{r+=i|RsFh`)0h$SMv@8A${P1U!S{{Gf(2v7Y^GG5$t^DF_&`D*u| z9bc=THUGJ^=2Miqiy62rtR||K|X&Rm=`eFi+q!NA=73=D|M|h=!#3{A?lkQ&Wt^r z>q(Zb@6Gzw<(~T2DSaLZa=Vka)-IMU6zo;MbK4-#mUmQFY%9Gy+4QFR%;~50SGxX8 x-m+Qc{$trib=jgHJ6OpFt7}JIeV^z*U;VmEMBb9ehbW!Y{x{`JYx3!J0074}td9Ty diff --git a/elementary-statistics/.Rhistory b/elementary-statistics/.Rhistory index 742bd3f..34d3dbb 100644 --- a/elementary-statistics/.Rhistory +++ b/elementary-statistics/.Rhistory @@ -323,3 +323,16 @@ stem(interval) interval help(stem) q() +waiting = faithful$waiting +head(cbind(duration, waiting)) +plot(duration, waiting, xlab="Eruption duration", ylab="Time waited") +par() +plot(1:10, 1:10, type="n") +help("font") +??font +# the above was a brief excursion into font settings and such +abline(lm(waiting - duration)) +plot(duration, waiting, xlab="Eruption duration", ylab="Time waited") +abline(lm(waiting - duration)) +abline(lm(waiting ~ duration)) +q() From 1c279e1fc7820f8d2b893476554b13a17a98cc85 Mon Sep 17 00:00:00 2001 From: Dan Buch Date: Wed, 13 Jul 2011 22:43:58 -0400 Subject: [PATCH 16/18] up to Range in numerical measures --- elementary-statistics/.Rhistory | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/elementary-statistics/.Rhistory b/elementary-statistics/.Rhistory index 34d3dbb..4ef74fe 100644 --- a/elementary-statistics/.Rhistory +++ b/elementary-statistics/.Rhistory @@ -336,3 +336,14 @@ plot(duration, waiting, xlab="Eruption duration", ylab="Time waited") abline(lm(waiting - duration)) abline(lm(waiting ~ duration)) q() +mean(duration) +mean(interval) +??points +median(duration) +median(interval) +quantile(duration) +quantile(interval) +quantile(duration, c(.32, .57, .98)) +quantile(interval, c(.17, .43, .67, .85)) +q() +q() From e6ed0c05ea5be54ae55a0dd89f514c660ae9d921 Mon Sep 17 00:00:00 2001 From: Dan Buch Date: Thu, 14 Jul 2011 23:04:37 -0400 Subject: [PATCH 17/18] up to Variance --- elementary-statistics/.Rhistory | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/elementary-statistics/.Rhistory b/elementary-statistics/.Rhistory index 4ef74fe..275a17c 100644 --- a/elementary-statistics/.Rhistory +++ b/elementary-statistics/.Rhistory @@ -347,3 +347,12 @@ quantile(duration, c(.32, .57, .98)) quantile(interval, c(.17, .43, .67, .85)) q() q() +max(duration) +min(duration) +max(interval) - min(interval) +IQR(duration) +IQR(interval) +boxplot(duration, horizontal=TRUE) +boxplot(interval, horizontal=TRUE) +q +q() From 9a28b7082730777e5179b3d1c5a774a8d3057267 Mon Sep 17 00:00:00 2001 From: Dan Buch Date: Fri, 15 Jul 2011 07:36:50 -0400 Subject: [PATCH 18/18] up to Correlation Coefficient --- elementary-statistics/.Rhistory | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/elementary-statistics/.Rhistory b/elementary-statistics/.Rhistory index 275a17c..f80727a 100644 --- a/elementary-statistics/.Rhistory +++ b/elementary-statistics/.Rhistory @@ -356,3 +356,12 @@ boxplot(duration, horizontal=TRUE) boxplot(interval, horizontal=TRUE) q q() +var(duration) +var(interval) +max(interval) - min(interval) +sd(duration) +sd(interval) +waiting +interval == waiting +cov(duration, waiting) +q()