diff --git a/elementary-statistics/.RData b/elementary-statistics/.RData
new file mode 100644
index 0000000..cdfd547
Binary files /dev/null and b/elementary-statistics/.RData differ
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()