library(ggplot2)
Grades <- c(69, 72, 76, 76, 78, 78, 79, 81, 83, 86, 88, 89, 89, 89, 89, 90,
90, 91, 94, 94, 95, 99)
summary(Grades)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 69.0 78.2 88.5 85.2 90.0 99.0
c <- qplot(Grades, main = "Midterm 4 Grade Distribution", binwidth = 5)
c + geom_histogram(fill = "darkgray", color = "black", binwidth = 5)
| Problem | Average | % Perfect | Concept |
|---|---|---|---|
| 1 | 87.73% | 59.09% | Jacobians |
| 2 | 95.45% | 72.73% | Double integral |
| 3 | 73.64% | 27.27% | Polar integral |
| 4 | 96.67% | 72.73% | Triple integral |
| 5 | 75.45% | 18.18% | Riemann sum |
| 6 | 80.61% | 36.36% | Triple integral |
| 7 | 87.88% | 54.55% | Volume by integration |