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
データ不足に数理モデルで立ち向かう / Japan.R 2023
Search
森下光之助
December 02, 2023
Marketing & SEO
10
5.3k
データ不足に数理モデルで立ち向かう / Japan.R 2023
2023年12月2日に行われたJapan.R 2023での発表資料です
https://japanr.connpass.com/event/302622/
森下光之助
December 02, 2023
Tweet
Share
More Decks by 森下光之助
See All by 森下光之助
baseballrによるMLBデータの抽出と階層ベイズモデルによる打率の推定 / TokyoR118
dropout009
1
440
tidymodelsによるtidyな生存時間解析 / Japan.R2024
dropout009
2
990
回帰分析ではlm()ではなくestimatr::lm_robust()を使おう / TokyoR100
dropout009
49
10k
Counterfactual Explanationsで機械学習モデルを解釈する / TokyoR99
dropout009
3
3k
『機械学習を解釈する技術』の紹介 / Devsumi2022
dropout009
2
3.6k
シンプルな数理モデルでビジネス課題を解決する / Japan.R 2021
dropout009
2
6.2k
テレビCMのユニークリーチを最適化する / PyData.Tokyo24
dropout009
0
1.7k
Accumulated Local Effects(ALE)で機械学習モデルを解釈する / TokyoR95
dropout009
3
8.8k
データ分析手法をシミュレーションを通して理解する / stapy74
dropout009
3
1.8k
Other Decks in Marketing & SEO
See All in Marketing & SEO
SEO Camp DK: Mastering eCommerce Audits: Driving Results for Large-Scale Sites
nikkihalliwell
1
230
Python & SEO Masterclass
frankvandijk
1
280
Umře SEO kvůli generativní AI?
pavelungr
0
220
How digital authority PR is redefining brand influence
bubblegumsearch
0
230
Product Page Optimization (BrightonSEO April 2025)
gabitroxler
0
400
A Friggin' Sweet Insider Guide to Google Sheets for SEO
greggifford
PRO
2
570
Google's AI Overviews - The New Search
badams
0
760
Google Tag Manager tips that will elevate your analytics game
krmdigitaluk
1
290
Scaling AI on a budget - responsibly!
eminadw
3
410
WordPress と SendGrid でユーザーコミュニケーション〜Webメディア受託制作の現場から
fumikito
0
300
(再)ひとり技術広報からの脱却 / Re:Breaking away from one-man technical public relations
seike460
PRO
1
220
JAWS-UG のご紹介 - JAWS-UG沖縄 AWS 初心者さん、ようこそ! in うるま
awsjcpm
0
110
Featured
See All Featured
Fashionably flexible responsive web design (full day workshop)
malarkey
407
66k
No one is an island. Learnings from fostering a developers community.
thoeni
21
3.3k
GitHub's CSS Performance
jonrohan
1031
460k
Rails Girls Zürich Keynote
gr2m
94
14k
Navigating Team Friction
lara
187
15k
The Language of Interfaces
destraynor
158
25k
Build The Right Thing And Hit Your Dates
maggiecrowley
36
2.8k
jQuery: Nuts, Bolts and Bling
dougneiner
63
7.8k
Imperfection Machines: The Place of Print at Facebook
scottboms
267
13k
How to Think Like a Performance Engineer
csswizardry
24
1.7k
実際に使うSQLの書き方 徹底解説 / pgcon21j-tutorial
soudai
PRO
181
53k
The MySQL Ecosystem @ GitHub 2015
samlambert
251
13k
Transcript
2023/12/02 Japan.R 2023 #JapanR @dropout009
REVISIO CDO X: @dropout009 Speaker Deck: dropout009 Blog: https://dropout009.hatenablog.com/
None
None
CM • • CM ⾒ • CM
• GRP TRP • CM ⾒ • CM ⾒ •
• CM 1 ⾒ • CM 2 1 2 3 4 5 A 1 0 1 0 1 B 0 1 0 1 0 C 1 1 1 0 1 D 0 0 1 0 0 E 0 0 0 0 0 2 (40%) 4 (80%) 7 (140%) 8 (160%) 10 (200%) 2 (40%) 3 (60%) 4 (80%) 4 (80%) 4 (80%)
• • CM × 1% 1 1
• 206% 10 2,060 69.7%
• • 0 0 頻 ⾒ 100% lm(y ~ 0
+ x) lm(y ~ 0 + log1p(x))
• •
None
l 𝑔 l CM 𝐹 Pr 𝐹 = 𝑓 ∣
𝑔 l CM 1 ⾒ 𝑟 𝑔 = Pr 𝐹 ≥ 1 ∣ 𝑔 = 1 − Pr 𝐹 = 0 ∣ 𝑔 Pr 𝐹 = 𝑓 ∣ 𝑔 𝑟 𝑔 CM
l Poisson 𝑓 𝜆 = 1 Γ 𝑓 + 1
𝜆!𝑒"# l 𝜆 𝑔 𝜆 = 𝑔 𝑟 𝑔 = 1 − Pr 𝐹 = 0 ∣ 𝑔 = 1 − 1 Γ 0 + 1 𝑔$𝑒"% = 1 − 𝑒"% dpois(f, lambda) Poisson(𝑓 ∣ 𝜆 = 5) Poisson(𝑓 ∣ 𝜆 = 3) 1 - dpois(0, g) Poisson(𝑓 ∣ 𝜆 = 2)
l 𝑟 𝑔 = 1 − 𝑒"%
l CM ⾒ CM CM CM CM Poisson(𝑓 ∣ 𝜆
= 2.06) CM
None
l CM CM CM l CM 𝜆 CM 𝜆 CM
⾒ 𝜆 Poisson(𝑓 ∣ 𝜆 = 2) Poisson(𝑓 ∣ 𝜆 = 3) Poisson(𝑓 ∣ 𝜆 = 5)
l ⾒ ⾒ 𝜆 l 𝜆 頻 𝜆 l 𝜆
Gamma 𝜆 ∣ 𝜈, 𝜈 𝜇 = 𝜈 𝜇 & Γ 𝜈 𝜆&"'𝑒" & (# E 𝜆 = 𝜇 𝜆 dgamma(nu, nu / mu) Gamma 𝜆 ∣ 1, 1 2 Gamma 𝜆 ∣ 4, 4 2 Gamma 𝜆 ∣ 16, 16 2 𝜆 𝜆
l 𝜆 ⾒ 𝜆 Pr 𝐹 = 𝑓 ∣ 𝜇,
𝜈 = ; $ ) Pr 𝐹 = 𝑓 ∣ 𝜆 𝑝 𝜆 𝜇, 𝜈 𝑑𝜆 = ; $ ) Poisson 𝑓 ∣ 𝜆 Gamma 𝜆 𝜈, 𝜈 𝜇 𝑑𝜆 = ; $ ) 1 Γ 𝑓 + 1 𝜆!𝑒"# 𝜈 𝜇 & Γ 𝜈 𝜆&"'𝑒" & (# 𝑑𝜆 = 𝜈 𝜇 & Γ 𝑓 + 1 Γ 𝜈 ; $ ) 𝜆&*!"'𝑒" &"( ( # 𝑑𝜆 = 𝜈 𝜇 & Γ 𝑓 + 1 Γ 𝜈 Γ 𝜈 + 𝑓 𝜈 + 𝜇 𝜇 &*! ; $ ) 𝜈 + 𝜇 𝜇 &*! Γ 𝜈 + 𝑓 𝜆&*!"'𝑒" &*( ( # 𝑑𝜆 = Γ 𝜈 + 𝑓 Γ 𝑓 + 1 Γ 𝜈 𝜈 𝜈 + 𝜇 & 𝜇 𝜈 + 𝜇 ! = , ! " Gamma 𝜆 𝜈 + 𝑓, 𝜈 + 𝜇 𝜇 𝑑𝜆 = 1
l ⾒ Negative Binomial Distribution; NBD NB 𝑓 𝜇, 𝜈
= Γ 𝜈 + 𝑓 Γ 𝑓 + 1 Γ 𝜈 𝜈 𝜈 + 𝜇 & 𝜇 𝜈 + 𝜇 ! NB 𝑓 2.06,1 NB 𝑓 2.06,3 NB 𝑓 2.06,10 dnbinom(f, mu = mu, size = nu)
l ⾒ 𝑟 𝑔, 𝜈 = 1 − Pr 𝐹
= 0 ∣ 𝑔, 𝜈 = 1 − Γ 𝜈 + 0 Γ 0 + 1 Γ 𝜈 𝜈 𝜈 + 𝑔 & 𝑔 𝜈 + 𝑔 $ = 1 − 𝜈 𝜈 + 𝑔 & l 𝜈 1 - dnbinom(0, mu = g, size = nu) 𝑟 𝑔, 1 𝑟 𝑔, 3 𝑟 𝑔, 10
l 𝑟 𝑔, 𝜈 𝜈 𝜈 l 𝑟+ 𝑔+ ̂
𝜈 ̂ 𝜈 = argmin & 1 − 𝜈 𝜈 + 𝑔+ & − 𝑟′ l ̂ 𝜈 𝑟 𝑔, ̂ 𝜈 = 1 − ̂ 𝜈 ̂ 𝜈 + 𝑔 , & CM CM
l 1 ⾒ CM 3 CM ⾒ l CM 𝑓
⾒ 𝑓 + l 𝑓 + 𝑟!* 𝑔, 𝜈 = Pr 𝐹 ≥ 𝑓 ∣ 𝑔, 𝑣 = 1 − Pr 𝐹 ≤ 𝑓 − 1 ∣ 𝑔, 𝜈 = 1 − E !!-$ !"' Γ 𝜈 + 𝑓+ Γ 𝑓+ + 1 Γ 𝜈 𝜈 𝜈 + 𝑔 & 𝑔 𝜈 + 𝑔 !! 𝑓 𝑓 + 𝑟!" 𝑟#" 𝑟$" 1 - pnbinom(f - 1, mu = g, size = nu)
None
l l l l ⾒
• Goerg, Georg M. "Estimating reach curves from one data
point." (2014).