Reference no: EM132333610

You just have to write the method how can we calculate it.

Group assignment - cooperation is permitted.
# Reference all sources.
# Interpret the result of the test of null hypothesis
# Ho: "mean of population of x is less than 0.4"
# using these data and t.test():
set.seed (22)

x <-runif(15)

ttest(x,mu=0.4,altemative = 'greater')
# Output
# One Sample t-test
# data: x
# t = 3.9187, df = 14, p-value = 0.0007719
# alternative hypothesis: true mean is greater than 0.4

# 95 percent confidence interval:
# 0.5228421 Int
# sample estimates:
# mean of x
# 0.6231297
# Erik Korolenko