library(ggplot2)
Grades <- c(51, 54, 61, 63, 64, 67, 68, 69, 69, 70, 75, 76, 79, 79, 80, 80,
81, 82, 83, 83, 83, 83, 85, 85, 86, 86, 86, 87, 87, 87, 87, 87, 88, 88,
88, 89, 90, 90, 90, 91, 92, 93, 95, 95, 97, 97, 98, 98, 99)
summary(Grades)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 51.0 79.0 86.0 82.5 90.0 99.0
c <- qplot(Grades, main = "Midterm 1 Grade Distribution", binwidth = 5)
c + geom_histogram(fill = "darkgray", color = "black", binwidth = 5)
| Problem | Concept | Class Average |
|---|---|---|
| 1 | Individuals and variables; observational studies versus experiments | 80.61% |
| 2 | Means versus medians | 57.14% |
| 3 | Histograms | 86.39% |
| 4 | Summary statistics | 93.88% |
| 5 | Correlation vs. causation | 79.08% |
| 6 | Coefficient of determination | 73.47% |
| 7 | Normal distribution percentiles | 86.56% |
| 8 | Correlation | 89.80% |
| 9 | 68-95-99.7 rule | 87.24% |
| 10 | Two-way tables | 80.78% |
| 11 | Sample bias vs. random error | 67.35% |
| 12 | Experiments vs. observational studies | 83.67% |
| 13 | Regression | 79.76% |