``` r
Statistic <-c(68,85,74,88,63,78,90,80,58,65)
Math <- c(85,91,74,100,82,84,78,100,51,70)


plot(Statistic, Math, pch=18)

hist(Statistic)