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)

hist(Statistic)