> mdata <-read.table("ransu.csv", header=T, sep=",")
> x <-mdata[,1]
> hist(x, freq=FALSE)

> t.test(x, mu=40, alternative = c("two.sided"))

        One Sample t-test

data:  x
t = 2.8811, df = 19, p-value = 0.009568
alternative hypothesis: true mean is not equal to 40
95 percent confidence interval:
 42.65047 56.72953
sample estimates:
mean of x 
    49.69 

> t.test(x, mu=40, alternative = c("less"))

        One Sample t-test

data:  x
t = 2.8811, df = 19, p-value = 0.9952
alternative hypothesis: true mean is less than 40
95 percent confidence interval:
     -Inf 55.50565
sample estimates:
mean of x 
    49.69 

> t.test(x, mu=40, alternative = c("greater"))

        One Sample t-test


data:  x
t = 2.8811, df = 19, p-value = 0.004784
alternative hypothesis: true mean is greater than 40
95 percent confidence interval:
 43.87435      Inf
sample estimates:
mean of x 
    49.69