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) — 重回帰分析 / Multiple Regression ...
Search
Kenji Saito
PRO
January 25, 2024
Business
0
110
R を用いた分析(補講) (1) — 重回帰分析 / Multiple Regression Analysis
早稲田大学大学院経営管理研究科「企業データ分析」2023 冬のオンデマンド教材 第11回で使用したスライドです。
Kenji Saito
PRO
January 25, 2024
Tweet
Share
More Decks by Kenji Saito
See All by Kenji Saito
発表と総括 / Presentations and Summary
ks91
PRO
0
6
サイバーフィジカル社会、金融の未来とアイデアソン / Cyber Physical Society, Future of Finance, and Ideathon
ks91
PRO
0
53
マニフェスト: 人類の知のフロンティアに向けた拡張的足場へ / Manifesto: Toward Expansive Scaffolding for Humanity's Knowledge Frontier
ks91
PRO
0
11
続・スマートコントラクトと分散ファイナンス / Smart Contracts and Decentralized Finance, Continued
ks91
PRO
0
50
スマートコントラクトと分散ファイナンス / Smart Contracts and Decentralized Finance
ks91
PRO
0
64
シン・ブロックチェーン / Truth of Blockchain
ks91
PRO
0
98
パスワード/パスフレーズと認証 / Password, Passphrase and Authentication
ks91
PRO
0
37
git と GitHub / git and GitHub
ks91
PRO
0
36
ソフトウェアの開発と保守 / Software Development and Maintenance
ks91
PRO
0
51
Other Decks in Business
See All in Business
採用ピッチ資料|SBペイメントサービス株式会社
sbps
0
30k
DMM.com アルファ室採用案内資料
dmmcom2025
0
540
ラクスパートナーズ採用ピッチ資料_エンジニア部門.pdf
rakuspartners_recruit
0
24k
7 Best Ways to Reach HP Printer Support Number (USA 2025) 📞 +1-888-503-6380
charlesmick
0
280
AWS Summit Japan 2025 社内コミュニティによる企業文化創り ~MAWS-UGの挑戦とこれから~
yukiogawa
2
900
【Progmat】受益証券発行信託に係る税制改正の背景と今後のST市場
progmat
0
250
15 Effective Ways to Speak to a Live 24/7 QuickBooks Payroll Support Experts
herry0o4
0
120
GMOフィナンシャルHD 会社紹介資料
gmofh_hr_team
0
50k
jinjer recruiting pitch
jinjer_official
0
75k
Gemini CLI ハンズアウト
mickey_kubo
3
480
マルチビジネス企業におけるデータ分析基盤の責務と分担
0610esa
2
380
組織を AI との協働に最適化する ~ AI と人が補完しあって成長し続ける組織の作り方 ~
yoshizaki
0
560
Featured
See All Featured
The Art of Programming - Codeland 2020
erikaheidi
54
13k
XXLCSS - How to scale CSS and keep your sanity
sugarenia
248
1.3M
Fireside Chat
paigeccino
37
3.5k
Product Roadmaps are Hard
iamctodd
PRO
54
11k
"I'm Feeling Lucky" - Building Great Search Experiences for Today's Users (#IAC19)
danielanewman
229
22k
Making Projects Easy
brettharned
116
6.3k
Stop Working from a Prison Cell
hatefulcrawdad
271
21k
Dealing with People You Can't Stand - Big Design 2015
cassininazir
367
26k
Building Adaptive Systems
keathley
43
2.7k
Six Lessons from altMBA
skipperchong
28
3.9k
Done Done
chrislema
184
16k
Producing Creativity
orderedlist
PRO
346
40k
Transcript
generated by Stable Diffusion XL v1.0 2023 11 R (
) (1) — (WBS) 2023 11 R ( ) (1) — — 2024-01 – p.1/11
https://speakerdeck.com/ks91/collections/corporate-data-analysis-2023-winter 2023 11 R ( ) (1) — — 2024-01
– 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/21 ) / (2 ) OK / 2023 11 R ( ) (1) — — 2024-01 – p.3/11
( ) R ( ) = a + b1 ×
+ b2 × + e 2023 11 R ( ) (1) — — 2024-01 – p.4/11
(1/2) “ .txt” g <- read.table(" .txt", header=T) # g
# boxplot(g) # plot(g) # cor.test(g$ , g$ ) 2023 11 R ( ) (1) — — 2024-01 – p.5/11
( ) ፉ㌟㛗 ∗㌟㛗 ẕ㌟㛗 150 155 160 165 170
175 : 158.37cm : 169.02cm : 155.2cm 2023 11 R ( ) (1) — — 2024-01 – 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 ẕ㌟㛗 . . . . . . 2023 11 R ( ) (1) — — 2024-01 – p.7/11
(2/2) m <- lm(g$ ~ g$ + g$ ) #
+ m # summary(m) # “Multiple R-squared” “Adjusted R-squared” 30% 2023 11 R ( ) (1) — — 2024-01 – 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 ) 2023 11 R ( ) (1) — — 2024-01 – 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 ^^; ^^; 2023 11 R ( ) (1) — — 2024-01 – p.10/11
2023 11 R ( ) (1) — — 2024-01 –
p.11/11