Upgrade to Pro
— share decks privately, control downloads, hide ads and more …
Speaker Deck
Features
Speaker Deck
PRO
Sign in
Sign up for free
Search
Search
R を用いた検定(補講) (1) — Welch 検定 / Other Tests Using...
Search
Kenji Saito
PRO
January 18, 2024
Business
0
130
R を用いた検定(補講) (1) — Welch 検定 / Other Tests Using R (1) - Welch Test
早稲田大学大学院経営管理研究科「企業データ分析」2023 冬のオンデマンド教材 第9回で使用したスライドです。
Kenji Saito
PRO
January 18, 2024
Tweet
Share
More Decks by Kenji Saito
See All by Kenji Saito
We Never Took the Kobayashi Maru Test Until Now. What Do You Think of Our Solutions? — Journeys of the Mind Through a No-Win Game
ks91
PRO
0
12
思いつきが武器になる:研究というゲームを始めよう / Ideas Are Your Equipments : Let the Game of Research Begin!
ks91
PRO
0
65
ロボットを雰囲気(ヴァイブ)でプログラミングするこどもたち / Children Vibe-Programming Robots
ks91
PRO
0
21
アカデミーキャンプ 2025 SuuuuuuMMeR「燃えろ!!ロボコン」 / Academy Camp 2025 SuuuuuuMMeR "Burn the Spirit, Robocon!!" DAY 3
ks91
PRO
0
30
アカデミーキャンプ 2025 SuuuuuuMMeR「燃えろ!!ロボコン」 / Academy Camp 2025 SuuuuuuMMeR "Burn the Spirit, Robocon!!" DAY 2
ks91
PRO
0
32
アカデミーキャンプ 2025 SuuuuuuMMeR「燃えろ!!ロボコン」 / Academy Camp 2025 SuuuuuuMMeR "Burn the Spirit, Robocon!!" DAY 1
ks91
PRO
0
160
未来へのフォワードキャスト / Forward Cast to the Future
ks91
PRO
0
86
発表と総括 / Presentations and Summary
ks91
PRO
0
61
サイバーフィジカル社会、金融の未来とアイデアソン / Cyber Physical Society, Future of Finance, and Ideathon
ks91
PRO
0
78
Other Decks in Business
See All in Business
コミューン株式会社_採用候補者様向け資料
commune
PRO
1
1.9k
成功に役立つ行動経済学のインサイト
masayamoriofficial
0
180
【Progmat】Monthly-ST-Market-Report-2025-Aug.
progmat
0
570
ヘルスベイシス_会社説明資料_v3.4
yasudashoyo
1
62k
採用ピッチ資料/エアモビリティ株式会社
airmobility_jinji
0
2.2k
広報もすなるVibe Codingといふもの /
kai_pn
0
130
株式会社 PM Agent 採用資料
kiichitakeda
0
130
sample
mamiko
0
330
株式会社CINC 会社案内/Company introduction
cinchr
6
64k
GeminiのCanvas機能で脳を悦ばせてみた
o2mami
1
250
家族アルバム みてね 事業紹介 / Our Business
familyalbum
6
46k
20250901_UPDATER_companysummary
updater_pr
0
88k
Featured
See All Featured
Why Our Code Smells
bkeepers
PRO
339
57k
How To Stay Up To Date on Web Technology
chriscoyier
790
250k
The Cult of Friendly URLs
andyhume
79
6.6k
The Illustrated Children's Guide to Kubernetes
chrisshort
48
50k
Building Adaptive Systems
keathley
43
2.7k
Designing Experiences People Love
moore
142
24k
10 Git Anti Patterns You Should be Aware of
lemiorhan
PRO
656
61k
The Art of Programming - Codeland 2020
erikaheidi
55
13k
StorybookのUI Testing Handbookを読んだ
zakiyama
30
6.1k
How to Create Impact in a Changing Tech Landscape [PerfNow 2023]
tammyeverts
53
2.9k
jQuery: Nuts, Bolts and Bling
dougneiner
64
7.9k
Save Time (by Creating Custom Rails Generators)
garrettdimon
PRO
32
1.5k
Transcript
generated by Stable Diffusion XL v1.0 2023 9 R (
) (1) — Welch (WBS) 2023 9 R ( ) (1) — Welch — 2024-01 – p.1/10
https://speakerdeck.com/ks91/collections/corporate-data-analysis-2023-winter 2023 9 R ( ) (1) — Welch —
2024-01 – p.2/10
( 20 ) 1 • 2 R • 3 •
4 • 5 • 6 ( ) • 7 (1) • 8 (2) • 9 R ( ) (1) — Welch • 10 R ( ) (2) — χ2 11 R ( ) (1) — 12 R ( ) (2) — 13 GPT-4 14 GPT-4 15 ( ) LaTeX Overleaf 8 (12/21 ) / (2 ) OK / 2023 9 R ( ) (1) — Welch — 2024-01 – p.3/10
t Welch R t.test() Welch Welch 2023 9 R (
) (1) — Welch — 2024-01 – p.4/10
2 t ( ) (1/2) 2 ( ) xA −
xB (1) : (2) : σ ( ) σ sp sp = s2 A (nA − 1) + s2 B (nB − 1) nA + nB − 2 (R var() ) nA + nB − 2 t Welch A B (µA = µB ) A B (µA = µB ) 2023 9 R ( ) (1) — Welch — 2024-01 – p.5/10
2 t ( ) (2/2) xA − xB Student µA
= µB t = (xA − xB ) − (µA − µB ) sp 1 nA + 1 nB = xA − xB sp 1 nA + 1 nB (t ) t dfp = nA + nB − 2 t ( ) t0.05 (dfp ) t0.05 (dfp ) < |t| (P < 0.05) 2023 9 R ( ) (1) — Welch — 2024-01 – p.6/10
Welch t t = xA − xB s2 A nA
+ s2 B nB ( ) v . . . v ≈ ( s2 A nA + s2 B nB )2 s4 A n2 A (nA−1) + s4 B n2 B (nB−1) R 2023 9 R ( ) (1) — Welch — 2024-01 – p.7/10
( ) - (Shapiro-Wilk test) - (Anderson-Darling test for normality)
- (Kolmogorov-Smirnov test for normality) ( ) ( ) (Bartlett’s test for homogeneity of variances) 2023 9 R ( ) (1) — Welch — 2024-01 – p.8/10
.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) 2023 9 R ( ) (1) — Welch — 2024-01 – p.9/10
2023 9 R ( ) (1) — Welch — 2024-01
– p.10/10