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
マニフェスト: 人類の知のフロンティアに向けた拡張的足場へ / Manifesto: Toward Expansive Scaffolding for Humanity's Knowledge Frontier
ks91
PRO
0
8
続・スマートコントラクトと分散ファイナンス / Smart Contracts and Decentralized Finance, Continued
ks91
PRO
0
42
スマートコントラクトと分散ファイナンス / Smart Contracts and Decentralized Finance
ks91
PRO
0
63
シン・ブロックチェーン / Truth of Blockchain
ks91
PRO
0
92
パスワード/パスフレーズと認証 / Password, Passphrase and Authentication
ks91
PRO
0
37
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
30
Other Decks in Business
See All in Business
Arches 会社説明資料/ HR Deck
arches0501
0
13k
株式会社ファンコミュニケーションズ|会社説明資料 / Company Deck
fancomi_career
0
190
株式会社BALLAS 会社案内
ballas_inc
0
20k
ITコストの最適化を目指す DX時代のシステム刷新・保守運用の適正価格の見極め方
ncdc
0
110
【DearOne】Dear Newest Member
hrm
2
10k
Platform Engineering done well: innovation, efficiency, market advantage - Matthew Skelton - ProductTank Auckland
matthewskelton
PRO
0
360
株式会社カウシェ Company Deck
kauche
2
200k
CC採用候補者向けピッチ資料
crosscommunication
2
52k
国内ランサムウェア3事例から学ぶ中小病院におけるサイバーセキュリティ対策 / Cybersecurity Learned from Cases
henryofficial
0
250
How can i speak to someone at Expedi𝓪® USA : A Complete Guide Steps
travelhupsupport
0
110
Company Deck_2025.06
sixtypercent
0
400
三菱商事ロジスティクス_コンサルティング事業紹介
mclogi
0
380
Featured
See All Featured
Build your cross-platform service in a week with App Engine
jlugia
231
18k
Thoughts on Productivity
jonyablonski
69
4.7k
VelocityConf: Rendering Performance Case Studies
addyosmani
332
24k
For a Future-Friendly Web
brad_frost
179
9.8k
Rebuilding a faster, lazier Slack
samanthasiow
82
9.1k
Intergalactic Javascript Robots from Outer Space
tanoku
271
27k
Practical Orchestrator
shlominoach
189
11k
How to train your dragon (web standard)
notwaldorf
95
6.1k
Designing for humans not robots
tammielis
253
25k
Sharpening the Axe: The Primacy of Toolmaking
bcantrill
44
2.4k
ReactJS: Keep Simple. Everything can be a component!
pedronauck
667
120k
Designing Experiences People Love
moore
142
24k
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