This is an R Markdown document. Markdown is a simple formatting syntax for authoring web pages (click the MD toolbar button for help on Markdown).
When you click the Knit HTML button a web page will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
dat = read.csv("H:\\Consulting\\Jillian\\kids2.csv", header = TRUE)
dat[1:10, 1:10]
## Students ATotal Campers BTotal CTotal AQ1 AQ2 AQ3 AQ4 AQ5
## 1 DH1204A 11 0 NA 13 2 4 4 1 4
## 2 WP0724A 13 0 NA NA 2 4 4 1 4
## 3 IC1107A 7 0 NA 12 3 2 4 0 0
## 4 QC0917A 13 0 NA 9 2 4 4 1 2
## 5 LG08268 14 0 NA NA 2 4 4 1 4
## 6 DO0310A 12 0 NA 10 2 0 4 1 4
## 7 JH0611A 8 0 NA 10 3 4 4 1 2
## 8 DH0419A 14 0 NA 12 2 4 4 1 4
## 9 BK0615A 14 1 15 13 2 4 4 1 4
## 10 MS0415A 13 1 15 13 2 4 4 1 4
a = tapply(dat$ATotal, dat$Campers, mean, na.rm = TRUE)
par(mfrow = c(1, 1))
boxplot(dat$ATotal ~ dat$Campers, col = "wheat", main = "Campers vs. Non-Campers on Test A")
points(as.numeric(a), pch = 17)
a = tapply(dat$CTotal, dat$Campers, mean, na.rm = TRUE)
par(mfrow = c(1, 1))
boxplot(dat$CTotal ~ dat$Campers, col = "wheat", main = "Campers vs. Non-Campers on Test C")
points(as.numeric(a), pch = 17)
