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
89
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
続・インクルーシブな社会へ / Continuing Towards an Inclusive Society
ks91
PRO
0
17
AGI (人工一般知能) と創る新しく奇妙な社会 / New and Stranger Society built with AGI
ks91
PRO
0
64
回帰分析/大規模言語モデルと統計 / Regression Analysis, Large Language Models and Statistics
ks91
PRO
0
69
多重比較/相関分析 / Multiple Comparison and Correlation Analysis
ks91
PRO
0
65
アカデミーキャンプ 2025冬「考えるのは奴らだ」 / Academy Camp 2025 Winter - Live and Let Think DAY 3
ks91
PRO
0
61
アカデミーキャンプ 2025冬「考えるのは奴らだ」 / Academy Camp 2025 Winter - Live and Let Think DAY 2
ks91
PRO
0
48
アカデミーキャンプ 2025冬「考えるのは奴らだ」 / Academy Camp 2025 Winter - Live and Let Think DAY 1
ks91
PRO
1
74
インクルーシブな社会へ / Toward an Inclusive Society
ks91
PRO
0
22
P 値と有意差/分散分析 / P-value, Significant Difference and Analysis of Variance
ks91
PRO
0
71
Other Decks in Business
See All in Business
anveil_companydeck_2025
anveilpr
0
330
クラスメソッド_営業向け会社紹介資料_202502 / introduction to classmethod for sales
classmethod_jinji
0
360
見積り、計画の考え方や手法についてビープラウドの場合を紹介します/ introduce-the-concept-and-method-of-estimation-and-planning-in-the-case-of-BeProud
haru860
5
2.3k
上司と部下の会話に活かすTOCfE
4884biz
0
180
ログから学ぶKubernetes
googlecloudjapan
1
370
2022~2025年の成長戦略(アップデート)
junkiogawa
0
2.2k
圧倒的な営業生産性の確立
kotohashi
1
550
ユーザーは本当に「AI」を求めている? toCプロダクトにおける生成AI体験づくり事例
inagakikay
1
720
n=1の経験が紡ぐエンジニアリングマネジメントの可能性 / The Possibilities of Engineering Management from n=1 Experiences
iwashi86
19
4.4k
メドピアグループ紹介資料
medpeer_recruit
10
120k
Eco-Pork Impact Report 2025.02.09 JP
ecopork
0
450
コミュニティと横断組織を活かす“三菱電機”のre:Invent
licux
1
180
Featured
See All Featured
Facilitating Awesome Meetings
lara
52
6.2k
CSS Pre-Processors: Stylus, Less & Sass
bermonpainter
356
29k
Exploring the Power of Turbo Streams & Action Cable | RailsConf2023
kevinliebholz
30
4.6k
Being A Developer After 40
akosma
89
590k
I Don’t Have Time: Getting Over the Fear to Launch Your Podcast
jcasabona
32
2.1k
Practical Tips for Bootstrapping Information Extraction Pipelines
honnibal
PRO
12
980
The Art of Delivering Value - GDevCon NA Keynote
reverentgeek
10
1.3k
Principles of Awesome APIs and How to Build Them.
keavy
126
17k
How GitHub (no longer) Works
holman
314
140k
The Psychology of Web Performance [Beyond Tellerrand 2023]
tammyeverts
46
2.3k
A Tale of Four Properties
chriscoyier
158
23k
Building Flexible Design Systems
yeseniaperezcruz
328
38k
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