Slide 9
Slide 9 text
.txt
A /B
g <- read.table(" .txt", header=T)
colnames(g) <- c(" ", " ")
sampleA <- g$
sampleB <- g$
# ( )
shapiro.test(x=sampleA)
shapiro.test(x=sampleB)
# ( )
samples <- c(sampleA, sampleB)
group_factor <- factor(rep(c("A", "B"), c(length(sampleA), length(sampleB))))
bartlett.test(formula=samples~group_factor)
# Welch (t.test() ) ( Welch )
t.test(sampleA, sampleB)
2024 9 R ( ) (1) — Welch — 2024-11 – p.9/10