From 4ebd4f9222669c04ca00e97f20ee92dc3f24f952 Mon Sep 17 00:00:00 2001
From: Dan Buch <daniel.buch@gmail.com>
Date: Mon, 11 Jul 2011 04:54:45 -0400
Subject: [PATCH] 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`<lg*4wg-&8wxQ<&8rsPk1EMsc40K7!79~NWvK=
zEx&+<n$%PbGc+(mN1H#AHf5ZXwR@aS76UUBiN~w^_Hn0gZ}(1LxA#`OJx|j#Lo=HE
zX>w>8{GoHHb8!MjS)6b*#l;1y8IvvsoDoXdH_+@}Oh|;TLC7dcQDd<m^$2LzK0Ouq
zIE;=E2WNhyaA*Xqf6S6F4OzA{=c%>1WV9!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<o>=(pQr1pZiMJZ-Y$$(Jx;?_SQ*hH{}
zU>m^>g3k!PAlR+wFXzAyQWlTd{YJj~^5vD0@uU<zNXL2}OMU8A^yxb%R_ZU&JeXMJ
z(JE!$g3OCIgWGw66Me7T1ZaPR6OK24qQCWo{}Ve`+8j3_X&Od7`KyAAYgH?D!(Nys
OxZ+=;aiG$@2mk<sR1uN@

literal 0
HcmV?d00001

diff --git a/elementary-statistics/.Rhistory b/elementary-statistics/.Rhistory
new file mode 100644
index 0000000..5f9350c
--- /dev/null
+++ b/elementary-statistics/.Rhistory
@@ -0,0 +1,57 @@
+library(MASS)
+painters
+painters$School
+school = painters$School
+school.freq = table(school)
+school.freq
+cbind(school.freq)
+head(painters)
+composition = painters$Composition
+composition.freq = table(composition)
+cbind(composition.freq)
+school
+school.freq
+school.freq[1]
+help(max)
+school[,][1]
+school[1,][1]
+school[1][1]
+school[1]
+school.freq[1,]
+school.freq[1]
+school.freq[1][1]
+school.freq[1]
+help(typeof)
+typeof(school.freq[1])
+max(school.freq)
+max(school)
+max(school.freq)
+school.relfreq = school.freq / nrow(painters)
+school.relfreq
+settings = options(digits=1)
+school.relfreq
+options(settings)
+cbind(school.relfreq)
+composition.freq
+composition.relfreq = composition.freq / nrow(composition)
+composition.relfreq = composition.freq / nrow(painters)
+composition.relfreq
+cbind(composition.relfreq)
+# bar graph exercise
+library(MASS)
+school = painters$School
+school.freq = table(school)
+barplot(school.freq)
+colors = c("red", "yellow", "green", "violet", "orange", "blue", "pink", "cyan")
+barplot(schools.freq, col=colors)
+barplot(school.freq, col=colors)
+composition = painters$Composition
+composition.freq = table(composition)
+count.fields(composition.freq)
+ncol(composition.freq)
+composition.freq
+nrow(composition.freq)
+nrow(school.freq)
+colors
+barplot(composition.freq, col=colors)
+q()