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 Analysis
Search
Kenji Saito
PRO
January 25, 2024
Business
0
53
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
ワールドカフェ再び、そしてロール・ツール群の開発 / World Café Again, and Development of Suites of Roles and Tools
ks91
PRO
0
140
傾聴の理論 〜 傾聴する相棒の創り方 / Theory of Active Listening - How to Create a Listening Partner
ks91
PRO
0
21
試作とデモンストレーション / Prototyping and Demonstrations
ks91
PRO
0
180
プロンプトに対する攻撃と対策 / Attacks Against Prompts and Countermeasures
ks91
PRO
0
45
対話による知の拡張 / Extending Knowledge Through Dialogues
ks91
PRO
0
35
サイボーグ化する社会 / Society Becoming A Cyborg
ks91
PRO
0
15
アカデミーキャンプ 2024年5月の実験セッション / Experimental session at the Academy Camp May 2024
ks91
PRO
0
22
シリアスゲームとしての RPG / RPG as a Serious Game
ks91
PRO
0
45
"September 12th" ゲームのプロンプトの構造 / Prompt Structure of "September 12th" Game
ks91
PRO
0
58
Other Decks in Business
See All in Business
plan-renewal-freee-2024
yuki_yano
PRO
0
160
goooods 株式会社 事業概要説明資料 / company deck
syo
3
7.7k
CultureDeck
remainin
1
540
TECH HIRE |「大胆なポジションの開発」によって ハイクラス人材を直接応募で4名採用できた話
trackrecords
PRO
0
450
慶應修士卒が語るキャリアパス:メーカー・コンサル・エンジニアからの知見
hamawwo
0
400
プログリット会社紹介資料/We Are Hiring
jobs_progrit
5
85k
採用ピッチブック
macloud
2
49k
SPX2027中期経営計画
hiraga
1
320
#CMC_Meetup コミュニティの主体がCSからマーケに変わって気づいた良さの違い
ktkn1129
0
370
株式会社ミライロ 会社紹介資料
mirairohr
0
590
Findy - 人生で熱くなれるなにかを探している誰かへ / Letter from Findy
findyinc
6
120k
インキュデータ会社紹介資料
okitsu
1
21k
Featured
See All Featured
Fontdeck: Realign not Redesign
paulrobertlloyd
76
4.9k
Automating Front-end Workflow
addyosmani
1357
200k
Unsuck your backbone
ammeep
664
57k
Happy Clients
brianwarren
92
6.4k
Docker and Python
trallard
35
2.7k
BBQ
matthewcrist
80
8.8k
Making the Leap to Tech Lead
cromwellryan
125
8.6k
Building Flexible Design Systems
yeseniaperezcruz
320
37k
KATA
mclloyd
16
12k
No one is an island. Learnings from fostering a developers community.
thoeni
16
2.1k
Build The Right Thing And Hit Your Dates
maggiecrowley
25
2k
Building Better People: How to give real-time feedback that sticks.
wjessup
356
18k
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