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
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
Sales Marker Culture Book(English)
salesmarker
PRO
2
6.6k
朝日新聞社 ITエンジニア キャリア採用 紹介資料
asahi_cto
0
660
【Progmat】Monthly-ST-Market-Report-2025-Sep.
progmat
0
360
「つくる」から「考える」へ ― PdMの重⼼をシフトさせるために
itsukikacky
0
570
Sustainability Report
kuradashi
0
25k
GVA TECH会社説明資料/GVA TECH_Pitch deck
gvatech2017
0
730
株式会社J Institute 採用説明資料
jsaiyou123
0
110
メルカリグループ行動規範
mercari_inc
0
220
jinjer recruiting pitch
jinjer_official
0
88k
straya/company deck
takuyaaaaa325
0
110
15 分で学ぶ Cloud Run のユースケースと代表的なアーキテクチャパターン
googlecloudjapan
3
470
東山自動車学校 採用ピッチ
higashiyamads
0
610
Featured
See All Featured
Bash Introduction
62gerente
615
210k
The Illustrated Children's Guide to Kubernetes
chrisshort
48
51k
Writing Fast Ruby
sferik
629
62k
Helping Users Find Their Own Way: Creating Modern Search Experiences
danielanewman
30
2.9k
RailsConf & Balkan Ruby 2019: The Past, Present, and Future of Rails at GitHub
eileencodes
140
34k
Reflections from 52 weeks, 52 projects
jeffersonlam
352
21k
"I'm Feeling Lucky" - Building Great Search Experiences for Today's Users (#IAC19)
danielanewman
229
22k
Easily Structure & Communicate Ideas using Wireframe
afnizarnur
194
16k
Intergalactic Javascript Robots from Outer Space
tanoku
273
27k
CSS Pre-Processors: Stylus, Less & Sass
bermonpainter
358
30k
Optimizing for Happiness
mojombo
379
70k
Six Lessons from altMBA
skipperchong
28
4k
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