library(ggplot2)
Grades <- c(66, 75, 76, 77, 78, 78, 81, 82, 82, 83, 84, 85, 87, 87, 87, 90,
91, 91, 99)
summary(Grades)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 66.0 78.0 83.0 83.1 87.0 99.0
c <- qplot(Grades, main = "Midterm 3 Grade Distribution", binwidth = 10)
c + geom_histogram(fill = "darkgray", color = "black", binwidth = 10)
| Problem | Concept | Class Average |
|---|---|---|
| 1 | Correlation and causation | 83.33% |
| 2 | Regression lines | 85.65% |
| 3 | Log-scale | 80.56% |
| 4 | Coefficient of determination ( r2 ) | 100.00% |
| 5 | Correlation | 72.22% |
| 6 | Identifying correct inference procedure | 52.78% |
| 7 | Hypothesis testing with proportions | 63.89% |
| 8 | Plus-4 confidence interval for proportions | 89.35% |
| 9 | Identifying correct inference procedure | 88.19% |
| 10 | Logarithms | 96.30% |
| 11 | Regression lines | 92.13% |
| 12 | Statistical significance | 61.11% |
| 13 | Logarithms | 94.44% |
| 14 | Scatter-plot | 100.00% |