From 6e61c43762f972e3605a8e702c2aecdef844033b Mon Sep 17 00:00:00 2001 From: Dan Buch Date: Mon, 11 Jul 2011 06:12:54 -0400 Subject: [PATCH] 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()