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
FinTech 3-4 : Internet Technology and Governance
ks91
PRO
0
19
民主主義と博愛(Humanitarianism) / Democracy and Humanitarianism
ks91
PRO
0
1
ブロックチェーン概論 / Introduction to Blockchain
ks91
PRO
0
6
ブロックチェーンと分散ファイナンス概論 / Introduction to Blockchain and Decentralized Finance
ks91
PRO
0
47
Proof of Authenticity of General IoT Information with Tamper-Evident Sensors and Blockchain
ks91
PRO
0
5
FinTech 1-2 : Overview of FinTech
ks91
PRO
0
14
デジタルトランスフォーメーションと民主主義 / Digital Transformation and Democracy
ks91
PRO
0
19
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
24
思いつきが武器になる:研究というゲームを始めよう / Ideas Are Your Equipments : Let the Game of Research Begin!
ks91
PRO
0
79
Other Decks in Business
See All in Business
中期経営計画・成長可能性資料
kuradashi
0
640
FY2025.6 Impact Report EN
mercari_inc
0
3.8k
c-slide_0次提案資料テンプレート
coneinc
0
190
ソニックガーデン経営組織論(2025/10版)
kuranuki
0
670
エンジニア採用を引き継いだあなたへ〜EMが採用に向き合うとき、まず知っておきたいこと〜
kkun_22
PRO
1
690
アッテル会社紹介資料/culture deck
attelu
10
15k
NewGrads(新卒)向け_株式会社プレイド_会社説明資料_27卒
plaid
PRO
0
300
freeeを軸に変えていく記帳代行の概念
yuki_yano
PRO
0
110
株式会社LANY / Company Deck
lany
2
82k
No Company - Company Deck 2025
nocompany
1
680
ログラス会社紹介資料 新卒採用 ビジネス職[経営幹部候補]/ Loglass Company Deck
loglass2019
1
10k
メルカリグループ行動規範
mercari_inc
0
220
Featured
See All Featured
Thoughts on Productivity
jonyablonski
70
4.9k
Fireside Chat
paigeccino
40
3.7k
Agile that works and the tools we love
rasmusluckow
331
21k
Fashionably flexible responsive web design (full day workshop)
malarkey
407
66k
Measuring & Analyzing Core Web Vitals
bluesmoon
9
610
The Myth of the Modular Monolith - Day 2 Keynote - Rails World 2024
eileencodes
26
3.1k
The Psychology of Web Performance [Beyond Tellerrand 2023]
tammyeverts
49
3.1k
CSS Pre-Processors: Stylus, Less & Sass
bermonpainter
358
30k
Principles of Awesome APIs and How to Build Them.
keavy
127
17k
Statistics for Hackers
jakevdp
799
220k
ピンチをチャンスに:未来をつくるプロダクトロードマップ #pmconf2020
aki_iinuma
127
53k
It's Worth the Effort
3n
187
28k
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