``` 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)