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 を用いた検定(補講) (2) — カイ二乗検定 / Other Tests Using R (1) - Chi-Square Test
Search
Kenji Saito
PRO
January 21, 2024
Business
0
41
R を用いた検定(補講) (2) — カイ二乗検定 / Other Tests Using R (1) - Chi-Square Test
早稲田大学大学院経営管理研究科「企業データ分析」2023 冬のオンデマンド教材 第10回で使用したスライドです。
Kenji Saito
PRO
January 21, 2024
Tweet
Share
More Decks by Kenji Saito
See All by Kenji Saito
AGI (Artificial General Intelligence) の論点 / AGI (Artificial General Intelligence) Issues
ks91
PRO
0
33
Linux 仮想マシンを動かす / Running a Linux Virtual Machine
ks91
PRO
0
28
音声による対話 / Voice Interaction
ks91
PRO
0
25
ポスター & デモと総括 / Posters & Demonstrations, and Conclusions
ks91
PRO
0
83
Open Interpreter を動かす 〜 自動化されたアシスタントの誕生 / Running Open Interpreter - The Birth of an Automated Assistant
ks91
PRO
0
24
ロール・ツール群の開発 / Development of Roles and Tools
ks91
PRO
0
120
Discord とビルダー&チャットボットの使い方 / How to use Discord and Builder & Chatbot
ks91
PRO
0
27
ワールドカフェ再び、そしてロール・ツール群の開発 / World Café Again, and Development of Suites of Roles and Tools
ks91
PRO
0
170
傾聴の理論 〜 傾聴する相棒の創り方 / Theory of Active Listening - How to Create a Listening Partner
ks91
PRO
0
38
Other Decks in Business
See All in Business
Godot 会社紹介資料(開発職向け) / Godot Pitch Deck
godot
0
180
NEXERA inc. | Company Deck
nexera
0
2.9k
merpay-Overview
mercari_inc
5
130k
2023年度PoliPoliインパクトレポート(β版)/Impact Report2023
polipoli
1
1.1k
最大最強の敵との戦い
in0u
1
3.4k
株式会社gecogeco 会社紹介資料
gecogeco
1
1.7k
【公開版資料】発表資料 新メンバー活躍までのオンボーディングとそのTips
bash0c7
0
130
240514 Company Deck_Bizibl Technologies
yoheihanatani
0
220
採用ピッチ資料のご紹介
oneterasu
0
310
SmartBank_LayerX合同_BizDevオフレコトークイベント.pdf
smartbank
0
180
(6枚)KPIの進捗報告のやり方 「空雨傘」を使って
nyattx
PRO
0
630
【6枚】流行に惑わされない本質を押さえた考え方
nyattx
PRO
2
200
Featured
See All Featured
The Language of Interfaces
destraynor
151
23k
Let's Do A Bunch of Simple Stuff to Make Websites Faster
chriscoyier
501
140k
Happy Clients
brianwarren
92
6.4k
Adopting Sorbet at Scale
ufuk
69
8.7k
Into the Great Unknown - MozCon
thekraken
15
1.2k
Design by the Numbers
sachag
274
18k
BBQ
matthewcrist
80
8.8k
Design and Strategy: How to Deal with People Who Don’t "Get" Design
morganepeng
117
18k
Fashionably flexible responsive web design (full day workshop)
malarkey
399
65k
The Invisible Customer
myddelton
114
12k
Fantastic passwords and where to find them - at NoRuKo
philnash
39
2.6k
A Modern Web Designer's Workflow
chriscoyier
689
190k
Transcript
generated by Stable Diffusion XL v1.0 2023 10 R (
) (2) — χ2 (WBS) 2023 10 R ( ) (2) — χ 2 — 2024-01 – p.1/14
https://speakerdeck.com/ks91/collections/corporate-data-analysis-2023-winter 2023 10 R ( ) (2) — χ 2
— 2024-01 – p.2/14
( 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 10 R ( ) (2) — χ 2 — 2024-01 – p.3/14
χ2 : : ( ) 3 ( ) 2023 10
R ( ) (2) — χ 2 — 2024-01 – p.4/14
χ2 ( ) ( ) ( ) χ2 = n
i=1 (fi − ˆ fi )2 ˆ fi ( f (frequency) ˆ f ( )) χ2 df df = n − 1 χ2 = nj j=1 ni i=1 (fji − ˆ fji )2 ˆ fji (ni × nj ) df = (ni − 1) × (nj − 1) 2023 10 R ( ) (2) — χ 2 — 2024-01 – p.5/14
R 10 4 14 2 4 6 12 8 20
= × ( 12:8 14 ) 8.4 5.6 14 3.6 2.4 6 12 8 20 2023 10 R ( ) (2) — χ 2 — 2024-01 – p.6/14
χ2 ( ) 1 6 (H0 ) # ( H_0
) > chisq.test(c(28, 33, 25, 35, 27, 32), p=c(1/6, 1/6, 1/6, 1/6, 1/6, 1/6)) # ( H_0 ) > chisq.test(c(42, 33, 25, 35, 27, 18), p=c(1/6, 1/6, 1/6, 1/6, 1/6, 1/6)) ‘chisq.test(. . . )’ ( ) ( ) ( ) ← R χ2 2023 10 R ( ) (2) — χ 2 — 2024-01 – p.7/14
( ) 0 5 10 15 20 0.00 0.05 0.10
0.15 χ2(5) x dchisq(x, df) χ2 0.05 (5) = 11.1 χ2 = 2.53 “ .R” source chisqdistg(5, chisq=2.5333) 2023 10 R ( ) (2) — χ 2 — 2024-01 – p.8/14
( ) 0 5 10 15 20 0.00 0.05 0.10
0.15 χ2(5) x dchisq(x, df) χ2 0.05 (5) = 11.1 χ2 = 11.9 chisqdistg(5, chisq=11.867) 2023 10 R ( ) (2) — χ 2 — 2024-01 – p.9/14
χ2 (1) R A 16 4 20 12 8 20
28 12 40 options(digits=7) # A <- matrix(c(16, 12, 4, 8), 2, 2) chisq.test(A, correct=F) 2023 10 R ( ) (2) — χ 2 — 2024-01 – p.10/14
0 5 10 15 20 0.0 0.2 0.4 0.6 0.8
χ2(1) x dchisq(x, df) χ2 0.05 (1) = 3.84 χ2 = 1.9 options(digits=3) chisqdistg(1, chisq=1.9048) 2023 10 R ( ) (2) — χ 2 — 2024-01 – p.11/14
χ2 (2) B 160 40 200 120 80 200 280
120 400 options(digits=7) # B <- matrix(c(160, 120, 40, 80), 2, 2) chisq.test(B, correct=F) 2023 10 R ( ) (2) — χ 2 — 2024-01 – p.12/14
0 5 10 15 20 0.0 0.2 0.4 0.6 0.8
χ2(1) x dchisq(x, df) χ2 0.05 (1) = 3.84 χ2 = 19 options(digits=3) chisqdistg(1, chisq=19.048) 2023 10 R ( ) (2) — χ 2 — 2024-01 – p.13/14
2023 10 R ( ) (2) — χ 2 —
2024-01 – p.14/14