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) — 重回帰分析 / Analysis using R (su...
Search
Kenji Saito
PRO
November 30, 2024
Technology
0
52
R を用いた分析(補講) (1) — 重回帰分析 / Analysis using R (supplementary) (1) - Multiple regression analysis
早稲田大学大学院経営管理研究科「企業データ分析」2024 冬のオンデマンド教材 第11回で使用したスライドです。
Kenji Saito
PRO
November 30, 2024
Tweet
Share
More Decks by Kenji Saito
See All by Kenji Saito
続・スマートコントラクトと分散ファイナンス / Smart Contracts and Decentralized Finance, Continued
ks91
PRO
0
38
スマートコントラクトと分散ファイナンス / Smart Contracts and Decentralized Finance
ks91
PRO
0
62
シン・ブロックチェーン / Truth of Blockchain
ks91
PRO
0
91
パスワード/パスフレーズと認証 / Password, Passphrase and Authentication
ks91
PRO
0
35
git と GitHub / git and GitHub
ks91
PRO
0
35
ソフトウェアの開発と保守 / Software Development and Maintenance
ks91
PRO
0
50
インターネットの特徴 / Features of the Internet
ks91
PRO
0
34
インターネットのガバナンス / Governance of the Internet
ks91
PRO
0
29
暗号学的ハッシュ関数 / Cryptographic Hash Function
ks91
PRO
0
37
Other Decks in Technology
See All in Technology
生成AI活用の組織格差を解消する 〜ビジネス職のCursor導入が開発効率に与えた好循環〜 / Closing the Organizational Gap in AI Adoption
upamune
6
5k
Backlog ユーザー棚卸しRTA、多分これが一番早いと思います
__allllllllez__
1
130
生成AI開発案件におけるClineの業務活用事例とTips
shinya337
0
220
American airlines®️ USA Contact Numbers: Complete 2025 Support Guide
oliversmith12
0
100
Operating Operator
shhnjk
0
440
ビギナーであり続ける/beginning
ikuodanaka
3
690
MobileActOsaka_250704.pdf
akaitadaaki
0
110
Southwest airlines®️ USA Contact Numbers: Complete 2025 Support Guide
oliversmith12
0
110
さくらのIaaS基盤のモニタリングとOpenTelemetry/OSC Hokkaido 2025
fujiwara3
2
310
Beyond Kaniko: Navigating Unprivileged Container Image Creation
f30
0
130
AWS認定を取る中で感じたこと
siromi
1
160
なぜ私はいま、ここにいるのか? #もがく中堅デザイナー #プロダクトデザイナー
bengo4com
0
1.3k
Featured
See All Featured
How to Create Impact in a Changing Tech Landscape [PerfNow 2023]
tammyeverts
53
2.8k
Product Roadmaps are Hard
iamctodd
PRO
54
11k
Building Flexible Design Systems
yeseniaperezcruz
328
39k
Designing Experiences People Love
moore
142
24k
Navigating Team Friction
lara
187
15k
Thoughts on Productivity
jonyablonski
69
4.7k
Fantastic passwords and where to find them - at NoRuKo
philnash
51
3.3k
Build your cross-platform service in a week with App Engine
jlugia
231
18k
Design and Strategy: How to Deal with People Who Don’t "Get" Design
morganepeng
130
19k
Designing for humans not robots
tammielis
253
25k
A designer walks into a library…
pauljervisheath
207
24k
It's Worth the Effort
3n
185
28k
Transcript
Boxes and whiskers — generated by Stable Diffusion XL v1.0
2024 11 R ( ) (1) — (WBS) 2024 11 R ( ) (1) — — 2024-11 – p.1/11
https://speakerdeck.com/ks91/collections/corporate-data-analysis-2024-winter 2024 11 R ( ) (1) — — 2024-11
– p.2/11
( 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/16 ) / (2 ) OK / 2024 11 R ( ) (1) — — 2024-11 – p.3/11
( ) R ( ) = a + b1 ×
+ b2 × + e 2024 11 R ( ) (1) — — 2024-11 – p.4/11
(1/2) “ .txt” g <- read.table(" .txt", header=T) # g
# boxplot(g) # plot(g) # cor.test(g$ , g$ ) 2024 11 R ( ) (1) — — 2024-11 – p.5/11
( ) ፉ㌟㛗 ∗㌟㛗 ẕ㌟㛗 150 155 160 165 170
175 : 158.37cm : 169.02cm : 155.2cm 2024 11 R ( ) (1) — — 2024-11 – p.6/11
( ) ፉ㌟㛗 160 165 170 175 152 156 160
164 160 165 170 175 ∗㌟㛗 152 156 160 164 150 154 158 150 154 158 ẕ㌟㛗 . . . . . . 2024 11 R ( ) (1) — — 2024-11 – p.7/11
(2/2) m <- lm(g$ ~ g$ + g$ ) #
+ m # summary(m) # “Multiple R-squared” “Adjusted R-squared” 30% 2024 11 R ( ) (1) — — 2024-11 – p.8/11
( pp.291–298) R2 = 1 − SSresidual SStotal = 1
− n i=1 (yi − ˆ yi)2 n i=1 (yi − ¯ y)2 R∗2 = 1 − SSresidual n−k−1 SStotal n−1 = 1 − (1 − R2)(n − 1) n − k − 1 ( k ) 2024 11 R ( ) (1) — — 2024-11 – p.9/11
(b1 b2 ) sg <- scale(g) # sg <- data.frame(sg)
# m <- lm(sg$ ~ sg$ + sg$ ) # summary(m) # . . . : 3.951e-01 : 3.436e-01 ^^; ^^; 2024 11 R ( ) (1) — — 2024-11 – p.10/11
2024 11 R ( ) (1) — — 2024-11 –
p.11/11