> # To print out values either enter variable name after calculating and
> # hit return, e.g., > data
> # or use the print function, e.g., print(data)
> data <- c(5, 7, 4, 6, 4, 6, 5, 7, 5, 6)
> confLev <- 0.95
> xbar <- mean(data)
> S <- sd(data)
> N <- length(data)
> ESE <- S/sqrt(N)
> StdT <- qt(1 - 0.5*(1-confLev), N - 1)
> lambda = StdT*ESE