From ad72881793caca24ee135e29433559d9ef63b2f9 Mon Sep 17 00:00:00 2001 From: Dan Buch Date: Tue, 12 Jul 2011 21:32:36 -0400 Subject: [PATCH] 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()