Some bus lines urban transport during rush hour average speed of 8 km / h. Consideration was given to whether the route change would lead to a change in the average speed. The new route was therefore passed with ten randomly selected days and showed that the average speed: 7.8 7.9 9.0 7.8 8.0 7.8 8.5 8.2 8.2 9.3. Decide whether the route change leads to changes in average speed. We assume a normal distribution, and ? = 0.05.
data = {7.8, 7.9, 9, 7.8, 8, 7.8, 8.5, 8.2, 8.2, 9.3};
zaklad = 8;
n = Length[data];
hladina = 0.05 (*Signifiti level*)
Needs["HypothesisTesting`"]
mi = Mean[data];
sigma2 = Variance[data];
sigma = Sqrt[sigma2];
Kriterium = (Abs[zaklad - mi]*N[Sqrt[n]])/sigma
But I do not know how to make a t-test. Thank you for the advice :)