Slide 36
Slide 36 text
µ 95% (4/4)
“ .txt” µ 95%
( 100 )
> g <- read.table(" .txt", header=T)
> mean(g$ ) - abs(qt(0.025, 99)) * sd(g$ ) / sqrt(100) #
> mean(g$ ) + abs(qt(0.025, 99)) * sd(g$ ) / sqrt(100) #
qt(0.025, length(g$ ) - 1) sqrt(length(g$ ))
95% CI [55.3, 62.9]
“ L.R” sample
t.test(g$ )
95% CI [47.9, 55.6]
2024 5-6 t — 2024-12-16 – p.36/39