x <- read.csv("Table231.csv")
x
attach(x)
hist(Score)

mean(Score)

sd(Score)