Link
Embed
Share
Beginning
This slide
Copy link URL
Copy link URL
Copy iframe embed code
Copy iframe embed code
Copy javascript embed code
Copy javascript embed code
Share
Tweet
Share
Tweet
Slide 1
Slide 1 text
Boxes and whiskers — generated by Stable Diffusion XL v1.0 2024 11 R ( ) (1) — (WBS) 2024 11 R ( ) (1) — — 2024-11 – p.1/11
Slide 2
Slide 2 text
https://speakerdeck.com/ks91/collections/corporate-data-analysis-2024-winter 2024 11 R ( ) (1) — — 2024-11 – p.2/11
Slide 3
Slide 3 text
( 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/16 ) / (2 ) OK / 2024 11 R ( ) (1) — — 2024-11 – p.3/11
Slide 4
Slide 4 text
( ) R ( ) = a + b1 × + b2 × + e 2024 11 R ( ) (1) — — 2024-11 – p.4/11
Slide 5
Slide 5 text
(1/2) “ .txt” g <- read.table(" .txt", header=T) # g # boxplot(g) # plot(g) # cor.test(g$ , g$ ) 2024 11 R ( ) (1) — — 2024-11 – p.5/11
Slide 6
Slide 6 text
( ) ፉ㌟㛗 ∗㌟㛗 ẕ㌟㛗 150 155 160 165 170 175 : 158.37cm : 169.02cm : 155.2cm 2024 11 R ( ) (1) — — 2024-11 – p.6/11
Slide 7
Slide 7 text
( ) ፉ㌟㛗 160 165 170 175 152 156 160 164 160 165 170 175 ∗㌟㛗 152 156 160 164 150 154 158 150 154 158 ẕ㌟㛗 . . . . . . 2024 11 R ( ) (1) — — 2024-11 – p.7/11
Slide 8
Slide 8 text
(2/2) m <- lm(g$ ~ g$ + g$ ) # + m # summary(m) # “Multiple R-squared” “Adjusted R-squared” 30% 2024 11 R ( ) (1) — — 2024-11 – p.8/11
Slide 9
Slide 9 text
( 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 ) 2024 11 R ( ) (1) — — 2024-11 – p.9/11
Slide 10
Slide 10 text
(b1 b2 ) sg <- scale(g) # sg <- data.frame(sg) # m <- lm(sg$ ~ sg$ + sg$ ) # summary(m) # . . . : 3.951e-01 : 3.436e-01 ^^; ^^; 2024 11 R ( ) (1) — — 2024-11 – p.10/11
Slide 11
Slide 11 text
2024 11 R ( ) (1) — — 2024-11 – p.11/11