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
110
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
ゼミ紹介 : 公共の利益のためのデジタルトランスフォーメーション / Zemi Introduction : Digital Transformation for Public Good
ks91
PRO
0
37
逆襲のインクルーシブ社会 / An Inclusive Society Strikes Back
ks91
PRO
0
37
続・インクルーシブな社会へ / Continuing Towards an Inclusive Society
ks91
PRO
0
35
AGI (人工一般知能) と創る新しく奇妙な社会 / New and Stranger Society built with AGI
ks91
PRO
0
99
回帰分析/大規模言語モデルと統計 / Regression Analysis, Large Language Models and Statistics
ks91
PRO
0
91
多重比較/相関分析 / Multiple Comparison and Correlation Analysis
ks91
PRO
0
84
アカデミーキャンプ 2025冬「考えるのは奴らだ」 / Academy Camp 2025 Winter - Live and Let Think DAY 3
ks91
PRO
0
75
アカデミーキャンプ 2025冬「考えるのは奴らだ」 / Academy Camp 2025 Winter - Live and Let Think DAY 2
ks91
PRO
0
61
アカデミーキャンプ 2025冬「考えるのは奴らだ」 / Academy Camp 2025 Winter - Live and Let Think DAY 1
ks91
PRO
1
83
Other Decks in Business
See All in Business
株式会社ジグザグ_新規投資家向け資料.pdf
zig_zag
0
1.7k
えっ、自動化したのにフロー崩壊!?~ 効率化の落とし穴! 本当に必要だったのは◯◯だった ~
natty_natty254
0
150
株式会社ハイパー 会社紹介資料
hypermarketingteam
0
320
資料
yukino_design
0
210
Crisp Code コーポレート・サービス紹介 | Corporate & Services Introduction
so_kotani
0
130
株式会社グラム -会社紹介資料
tokunagayuichi
0
470
株式会社ギークリー_採用ピッチ資料(2025年3月更新)
opportunity_loves_geek
2
1.2k
そのドキュメント、ちゃんと息してる? ~ 使われ続ける“生きた”ドキュメントの育て方 ~
natty_natty254
4
2.6k
仮想オフィスアプリコンセプト資料
speakerdeckmtf
0
100
(60枚)営業ベーシックスキルプログラムの詳細と3つの特徴
nyattx
PRO
0
140
DWANGO(旧KADOKAWA Connected)|事業紹介資料
kadokawaconnected
4
76k
社会の厳しさを知った壮年男性の物語
segavvy
1
700
Featured
See All Featured
Fontdeck: Realign not Redesign
paulrobertlloyd
83
5.5k
4 Signs Your Business is Dying
shpigford
183
22k
Build The Right Thing And Hit Your Dates
maggiecrowley
34
2.6k
CSS Pre-Processors: Stylus, Less & Sass
bermonpainter
356
30k
Art, The Web, and Tiny UX
lynnandtonic
298
20k
Designing for humans not robots
tammielis
251
25k
Become a Pro
speakerdeck
PRO
27
5.2k
Building Better People: How to give real-time feedback that sticks.
wjessup
367
19k
Building Adaptive Systems
keathley
41
2.5k
Put a Button on it: Removing Barriers to Going Fast.
kastner
60
3.8k
The Web Performance Landscape in 2024 [PerfNow 2024]
tammyeverts
4
500
Navigating Team Friction
lara
184
15k
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