From d2b9d1cd133381dc0f242ec35c565cdee908d23b Mon Sep 17 00:00:00 2001 From: Dan Buch Date: Wed, 13 Jul 2011 22:25:42 -0400 Subject: [PATCH] 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()