狠狠撸

狠狠撸Share a Scribd company logo
rstanで個人のパラメーター
を推定した話
Japan.R 2015 LT
12月5日
@y__mattu
1
自己紹介
?松村優哉 @y__mattu
?慶應義塾大学経済学部3年
?星野崇宏研究会
?興味:統計学、機械学習、マーケティング
?使用言語: SAS, Hive, Python, R
?R歴:1年
2
宣伝
? 『調査観察データの統計科学』
? 星野崇宏 著
3
? MCMCアルゴリズムとしてHMC、NUTSを使用
→収束しやすい
? ベースがC++
→計算が速い
? 詳しくは各種の発表資料を参照(TokyoR #50とか)
? RでStanを動かせる{rstan}
Stanって何だっけ
4
? 階層ベイズモデルを書いてパラメーター推定してみる
? 個人の購買履歴データと時系列データと属性データ
Stanで何すんの?
ID 日時 メーカー 商品名 価格 CM SNS 年齢 性別 年収
1 2014/10/25 P&G パンテーン 720 15 300 35 男 1000万以上
1 2015/1/16 P&G パンテーン 619 20 240 35 男 1000万以上
1 2015/3/20 花王 メリット 510 34 500 35 男 1000万以上
2 : : : : : : 28 女 500-1000万
2 : : : : : : 28 女 500-1000万
3 : : : : : : 48 女 500-1000万
: : : : : : : 48 女 500-1000万
メーカーの乗り換え
→目的変数にして
ロジスティック回帰
5
?? ? ??? = 1 =
???(? ???)
1 + ???(? ???)
? ???= ?=0
?
??? ????? + ?=1
?
??? ???? + ? ???
??? = ? ?
? ?? + ? ?? ; ? ??~??? ?, ?? ; ??~?? ?1, ? ?
??? = ? ?
? ?? + ??? ; ???~???(?, ??) ; ??~??(?2, ? ?)
モデル式(?さんが?期にメーカー?を選ぶ確率)
6
モデル式
? マーケティング変数?の番号?
①切片項1(? = 0)
②?期購買商品の価格
? デジタル環境変数?の番号?
① ? ? 1期の「ブランド名」を含む投稿数
② ? ? 1期のCM本数
? 個人属性変数?の番号?
①年齢
②性別
③結婚ダミー
④世帯年収
7
RとStanで書いていく
Stan
data{データ(Rから呼ぶ)}
parameter{パラメーターを定義}
model{モデル式を書く}
8
RからStanにデータを渡す
9
Stanでデータを定義
10
Stanでデータを定義
11
Stanでパラメーターを定義
12
Stanでモデル式を定義
13
{rstan}で推定
14
待つこと20時間…
15
Rで結果の出力
mean se_mean sd X2.5 X25 X50 X97.5 n_eff Rhat
EAP推定量 EAPの標準偏差 事後標準偏差 95%確信区間および四分位点 有効サンプルサイズ
収束判定指標
1.1or1.2以下
ならOK 16
Rで結果の出力(プロット)
17
結局
18
でやりました。
Enjoy !!
Enjoy !!
19
Enjoy !!

More Related Content

What's hot (20)

20170312 r言語環境構築&dplyr ハンス?オン
20170312 r言語環境構築&dplyr ハンス?オン20170312 r言語環境構築&dplyr ハンス?オン
20170312 r言語環境構築&dplyr ハンス?オン
Nobuaki Oshiro
?
2016年6月版テ?ータマエショリスト入门
2016年6月版テ?ータマエショリスト入门2016年6月版テ?ータマエショリスト入门
2016年6月版テ?ータマエショリスト入门
Yuya Matsumura
?
Tokyo r47 beginner_2
Tokyo r47 beginner_2Tokyo r47 beginner_2
Tokyo r47 beginner_2
Takashi Minoda
?
HiroshimaR6_Introduction
HiroshimaR6_IntroductionHiroshimaR6_Introduction
HiroshimaR6_Introduction
SAKAUE, Tatsuya
?
HiRoshimaR3_IntroR
HiRoshimaR3_IntroRHiRoshimaR3_IntroR
HiRoshimaR3_IntroR
SAKAUE, Tatsuya
?
搁蝉迟耻诲颈辞事始め
搁蝉迟耻诲颈辞事始め搁蝉迟耻诲颈辞事始め
搁蝉迟耻诲颈辞事始め
Takashi Yamane
?
HiroshimaR5_Intro
HiroshimaR5_IntroHiroshimaR5_Intro
HiroshimaR5_Intro
SAKAUE, Tatsuya
?
10分で分かるr言語入門ver2 6
10分で分かるr言語入門ver2 610分で分かるr言語入門ver2 6
10分で分かるr言語入門ver2 6
Nobuaki Oshiro
?
初心者のためのRとRStudio入門 vol.2
初心者のためのRとRStudio入門 vol.2初心者のためのRとRStudio入門 vol.2
初心者のためのRとRStudio入門 vol.2
OWL.learn
?
SappoRo.R #2 初心者向けWS資料
SappoRo.R #2 初心者向けWS資料SappoRo.R #2 初心者向けWS資料
SappoRo.R #2 初心者向けWS資料
考司 小杉
?
JASELE2015-KumamotoWS
JASELE2015-KumamotoWSJASELE2015-KumamotoWS
JASELE2015-KumamotoWS
SAKAUE, Tatsuya
?
コース导入讲义(荒木)
コース导入讲义(荒木)コース导入讲义(荒木)
コース导入讲义(荒木)
Faculty of Economics, Momoyama Gakuin University
?
统计用言语搁の使い方
统计用言语搁の使い方统计用言语搁の使い方
统计用言语搁の使い方
Ak Ok
?
笔测迟丑辞苍によるソーシャルデータ分析―わたしはこうやって修士号を取得しました―
笔测迟丑辞苍によるソーシャルデータ分析―わたしはこうやって修士号を取得しました―笔测迟丑辞苍によるソーシャルデータ分析―わたしはこうやって修士号を取得しました―
笔测迟丑辞苍によるソーシャルデータ分析―わたしはこうやって修士号を取得しました―
Hisao Soyama
?
统计ソフト搁の使い方冲2015.04.17
统计ソフト搁の使い方冲2015.04.17统计ソフト搁の使い方冲2015.04.17
统计ソフト搁の使い方冲2015.04.17
hicky1225
?
统计环境搁冲はじめの一歩2016
统计环境搁冲はじめの一歩2016统计环境搁冲はじめの一歩2016
统计环境搁冲はじめの一歩2016
wada, kazumi
?
10分て?分かるr言語入門ver2.8 14 0712
10分て?分かるr言語入門ver2.8 14 0712 10分て?分かるr言語入門ver2.8 14 0712
10分て?分かるr言語入門ver2.8 14 0712
Nobuaki Oshiro
?
2017年3月版テ?ータマエショリスト入门(误植修正版)
2017年3月版テ?ータマエショリスト入门(误植修正版)2017年3月版テ?ータマエショリスト入门(误植修正版)
2017年3月版テ?ータマエショリスト入门(误植修正版)
Yuya Matsumura
?
2017年3月版テ?ータマエショリスト入门
2017年3月版テ?ータマエショリスト入门2017年3月版テ?ータマエショリスト入门
2017年3月版テ?ータマエショリスト入门
Yuya Matsumura
?
20170312 r言語環境構築&dplyr ハンス?オン
20170312 r言語環境構築&dplyr ハンス?オン20170312 r言語環境構築&dplyr ハンス?オン
20170312 r言語環境構築&dplyr ハンス?オン
Nobuaki Oshiro
?
2016年6月版テ?ータマエショリスト入门
2016年6月版テ?ータマエショリスト入门2016年6月版テ?ータマエショリスト入门
2016年6月版テ?ータマエショリスト入门
Yuya Matsumura
?
搁蝉迟耻诲颈辞事始め
搁蝉迟耻诲颈辞事始め搁蝉迟耻诲颈辞事始め
搁蝉迟耻诲颈辞事始め
Takashi Yamane
?
10分で分かるr言語入門ver2 6
10分で分かるr言語入門ver2 610分で分かるr言語入門ver2 6
10分で分かるr言語入門ver2 6
Nobuaki Oshiro
?
初心者のためのRとRStudio入門 vol.2
初心者のためのRとRStudio入門 vol.2初心者のためのRとRStudio入門 vol.2
初心者のためのRとRStudio入門 vol.2
OWL.learn
?
SappoRo.R #2 初心者向けWS資料
SappoRo.R #2 初心者向けWS資料SappoRo.R #2 初心者向けWS資料
SappoRo.R #2 初心者向けWS資料
考司 小杉
?
统计用言语搁の使い方
统计用言语搁の使い方统计用言语搁の使い方
统计用言语搁の使い方
Ak Ok
?
笔测迟丑辞苍によるソーシャルデータ分析―わたしはこうやって修士号を取得しました―
笔测迟丑辞苍によるソーシャルデータ分析―わたしはこうやって修士号を取得しました―笔测迟丑辞苍によるソーシャルデータ分析―わたしはこうやって修士号を取得しました―
笔测迟丑辞苍によるソーシャルデータ分析―わたしはこうやって修士号を取得しました―
Hisao Soyama
?
统计ソフト搁の使い方冲2015.04.17
统计ソフト搁の使い方冲2015.04.17统计ソフト搁の使い方冲2015.04.17
统计ソフト搁の使い方冲2015.04.17
hicky1225
?
统计环境搁冲はじめの一歩2016
统计环境搁冲はじめの一歩2016统计环境搁冲はじめの一歩2016
统计环境搁冲はじめの一歩2016
wada, kazumi
?
10分て?分かるr言語入門ver2.8 14 0712
10分て?分かるr言語入門ver2.8 14 0712 10分て?分かるr言語入門ver2.8 14 0712
10分て?分かるr言語入門ver2.8 14 0712
Nobuaki Oshiro
?
2017年3月版テ?ータマエショリスト入门(误植修正版)
2017年3月版テ?ータマエショリスト入门(误植修正版)2017年3月版テ?ータマエショリスト入门(误植修正版)
2017年3月版テ?ータマエショリスト入门(误植修正版)
Yuya Matsumura
?
2017年3月版テ?ータマエショリスト入门
2017年3月版テ?ータマエショリスト入门2017年3月版テ?ータマエショリスト入门
2017年3月版テ?ータマエショリスト入门
Yuya Matsumura
?

Viewers also liked (8)

厂迟补苍勉强会资料(前编)
厂迟补苍勉强会资料(前编) 厂迟补苍勉强会资料(前编)
厂迟补苍勉强会资料(前编)
daiki hojo
?
階層ベイズモデルで割安mobile PCを探す
階層ベイズモデルで割安mobile PCを探す階層ベイズモデルで割安mobile PCを探す
階層ベイズモデルで割安mobile PCを探す
. .
?
とある病んだ院生の体内时计(サーカディアンリズム)
とある病んだ院生の体内时计(サーカディアンリズム)とある病んだ院生の体内时计(サーカディアンリズム)
とある病んだ院生の体内时计(サーカディアンリズム)
. .
?
搁て?阶层ヘ?イス?モテ?ル
搁て?阶层ヘ?イス?モテ?ル搁て?阶层ヘ?イス?モテ?ル
搁て?阶层ヘ?イス?モテ?ル
Yohei Sato
?
厂迟补苍コードの书き方 中级编
厂迟补苍コードの书き方 中级编厂迟补苍コードの书き方 中级编
厂迟补苍コードの书き方 中级编
Hiroshi Shimizu
?
R stan導入公開版
R stan導入公開版R stan導入公開版
R stan導入公開版
考司 小杉
?
厂迟补苍と搁でベイズ统计モデリング読书会 导入编(1章~3章)
厂迟补苍と搁でベイズ统计モデリング読书会 导入编(1章~3章)厂迟补苍と搁でベイズ统计モデリング読书会 导入编(1章~3章)
厂迟补苍と搁でベイズ统计モデリング読书会 导入编(1章~3章)
Hiroshi Shimizu
?
エクセルで統計分析 統計プログラムHADについて
エクセルで統計分析 統計プログラムHADについてエクセルで統計分析 統計プログラムHADについて
エクセルで統計分析 統計プログラムHADについて
Hiroshi Shimizu
?
厂迟补苍勉强会资料(前编)
厂迟补苍勉强会资料(前编) 厂迟补苍勉强会资料(前编)
厂迟补苍勉强会资料(前编)
daiki hojo
?
階層ベイズモデルで割安mobile PCを探す
階層ベイズモデルで割安mobile PCを探す階層ベイズモデルで割安mobile PCを探す
階層ベイズモデルで割安mobile PCを探す
. .
?
とある病んだ院生の体内时计(サーカディアンリズム)
とある病んだ院生の体内时计(サーカディアンリズム)とある病んだ院生の体内时计(サーカディアンリズム)
とある病んだ院生の体内时计(サーカディアンリズム)
. .
?
搁て?阶层ヘ?イス?モテ?ル
搁て?阶层ヘ?イス?モテ?ル搁て?阶层ヘ?イス?モテ?ル
搁て?阶层ヘ?イス?モテ?ル
Yohei Sato
?
厂迟补苍コードの书き方 中级编
厂迟补苍コードの书き方 中级编厂迟补苍コードの书き方 中级编
厂迟补苍コードの书き方 中级编
Hiroshi Shimizu
?
厂迟补苍と搁でベイズ统计モデリング読书会 导入编(1章~3章)
厂迟补苍と搁でベイズ统计モデリング読书会 导入编(1章~3章)厂迟补苍と搁でベイズ统计モデリング読书会 导入编(1章~3章)
厂迟补苍と搁でベイズ统计モデリング読书会 导入编(1章~3章)
Hiroshi Shimizu
?
エクセルで統計分析 統計プログラムHADについて
エクセルで統計分析 統計プログラムHADについてエクセルで統計分析 統計プログラムHADについて
エクセルで統計分析 統計プログラムHADについて
Hiroshi Shimizu
?

Similar to 谤蝉迟补苍で个人のパラメーターを推定した话 (20)

Uec.R#3 YjdnJlpを使ってみた
Uec.R#3 YjdnJlpを使ってみたUec.R#3 YjdnJlpを使ってみた
Uec.R#3 YjdnJlpを使ってみた
Atsushi Hayakawa
?
厂丑颈苍测を自由に使ってみる?
厂丑颈苍测を自由に使ってみる?厂丑颈苍测を自由に使ってみる?
厂丑颈苍测を自由に使ってみる?
Masanori Takano
?
220427-pydata 統計?データ分析 特集
220427-pydata 統計?データ分析 特集220427-pydata 統計?データ分析 特集
220427-pydata 統計?データ分析 特集
Takuya Nishimoto
?
Ims@sparqlて?はし?めるr markdownとgitbookによるレホ?ート生成
Ims@sparqlて?はし?めるr markdownとgitbookによるレホ?ート生成Ims@sparqlて?はし?めるr markdownとgitbookによるレホ?ート生成
Ims@sparqlて?はし?めるr markdownとgitbookによるレホ?ート生成
Takeshi Mikami
?
Tokyo r91 lt3_20210417
Tokyo r91 lt3_20210417Tokyo r91 lt3_20210417
Tokyo r91 lt3_20210417
@ 238__fs
?
経済学のための実践的データ分析2. python, R, Jupyter notebook 事始め/統計ソフトちゃんちゃかちゃん
経済学のための実践的データ分析2. python, R, Jupyter notebook 事始め/統計ソフトちゃんちゃかちゃん経済学のための実践的データ分析2. python, R, Jupyter notebook 事始め/統計ソフトちゃんちゃかちゃん
経済学のための実践的データ分析2. python, R, Jupyter notebook 事始め/統計ソフトちゃんちゃかちゃん
Yasushi Hara
?
笔谤辞辫丑别迟入门【笔测迟丑辞苍编】贵补肠别产辞辞办の时系列予测ツール
笔谤辞辫丑别迟入门【笔测迟丑辞苍编】贵补肠别产辞辞办の时系列予测ツール笔谤辞辫丑别迟入门【笔测迟丑辞苍编】贵补肠别产辞辞办の时系列予测ツール
笔谤辞辫丑别迟入门【笔测迟丑辞苍编】贵补肠别产辞辞办の时系列予测ツール
hoxo_m
?
搁で売上予测のデモ(回帰分析)
搁で売上予测のデモ(回帰分析)搁で売上予测のデモ(回帰分析)
搁で売上予测のデモ(回帰分析)
裕美 成田
?
Retty recommendation project
Retty recommendation projectRetty recommendation project
Retty recommendation project
Jiro Iwanaga
?
第一回统计学勉强会蔼东大驹场
第一回统计学勉强会蔼东大驹场第一回统计学勉强会蔼东大驹场
第一回统计学勉强会蔼东大驹场
Daisuke Yoneoka
?
大学生の罢飞颈迟迟别谤利用に関する定量分析―利用目的とサービス设计の関係―
大学生の罢飞颈迟迟别谤利用に関する定量分析―利用目的とサービス设计の関係―大学生の罢飞颈迟迟别谤利用に関する定量分析―利用目的とサービス设计の関係―
大学生の罢飞颈迟迟别谤利用に関する定量分析―利用目的とサービス设计の関係―
Hisao Soyama
?
搁でダイエット
搁でダイエット搁でダイエット
搁でダイエット
Tatsuya Tojima
?
オープンソースで开くビッグデータの扉
オープンソースで开くビッグデータの扉オープンソースで开くビッグデータの扉
オープンソースで开くビッグデータの扉
Open Source Software Association of Japan
?
リクルートライフスタイルか?考える、万人に使ってもらえる分析基盘の作り方
リクルートライフスタイルか?考える、万人に使ってもらえる分析基盘の作り方リクルートライフスタイルか?考える、万人に使ってもらえる分析基盘の作り方
リクルートライフスタイルか?考える、万人に使ってもらえる分析基盘の作り方
Yu Yamada
?
Rによる特徴抽出 第48回R勉強会@東京(#TokyoR)
Rによる特徴抽出 第48回R勉強会@東京(#TokyoR)Rによる特徴抽出 第48回R勉強会@東京(#TokyoR)
Rによる特徴抽出 第48回R勉強会@東京(#TokyoR)
Keiku322
?
NagoyaStat #4 ご挨拶と前回の復習
NagoyaStat #4 ご挨拶と前回の復習NagoyaStat #4 ご挨拶と前回の復習
NagoyaStat #4 ご挨拶と前回の復習
itoyan110
?
欠损値について
欠损値について欠损値について
欠损値について
隆介 小野
?
データ视点の颈迟资产価値评価の検讨(経営情报学会2014)
データ视点の颈迟资产価値评価の検讨(経営情报学会2014)データ视点の颈迟资产価値评価の検讨(経営情报学会2014)
データ视点の颈迟资产価値评価の検讨(経営情报学会2014)
Tetsu Kawata
?
データファースト开発
データファースト开発データファースト开発
データファースト开発
Katsunori Kanda
?
Optimizing AIC in Questionnaire Analysis
Optimizing AIC in Questionnaire AnalysisOptimizing AIC in Questionnaire Analysis
Optimizing AIC in Questionnaire Analysis
T T
?
Uec.R#3 YjdnJlpを使ってみた
Uec.R#3 YjdnJlpを使ってみたUec.R#3 YjdnJlpを使ってみた
Uec.R#3 YjdnJlpを使ってみた
Atsushi Hayakawa
?
厂丑颈苍测を自由に使ってみる?
厂丑颈苍测を自由に使ってみる?厂丑颈苍测を自由に使ってみる?
厂丑颈苍测を自由に使ってみる?
Masanori Takano
?
220427-pydata 統計?データ分析 特集
220427-pydata 統計?データ分析 特集220427-pydata 統計?データ分析 特集
220427-pydata 統計?データ分析 特集
Takuya Nishimoto
?
Ims@sparqlて?はし?めるr markdownとgitbookによるレホ?ート生成
Ims@sparqlて?はし?めるr markdownとgitbookによるレホ?ート生成Ims@sparqlて?はし?めるr markdownとgitbookによるレホ?ート生成
Ims@sparqlて?はし?めるr markdownとgitbookによるレホ?ート生成
Takeshi Mikami
?
Tokyo r91 lt3_20210417
Tokyo r91 lt3_20210417Tokyo r91 lt3_20210417
Tokyo r91 lt3_20210417
@ 238__fs
?
経済学のための実践的データ分析2. python, R, Jupyter notebook 事始め/統計ソフトちゃんちゃかちゃん
経済学のための実践的データ分析2. python, R, Jupyter notebook 事始め/統計ソフトちゃんちゃかちゃん経済学のための実践的データ分析2. python, R, Jupyter notebook 事始め/統計ソフトちゃんちゃかちゃん
経済学のための実践的データ分析2. python, R, Jupyter notebook 事始め/統計ソフトちゃんちゃかちゃん
Yasushi Hara
?
笔谤辞辫丑别迟入门【笔测迟丑辞苍编】贵补肠别产辞辞办の时系列予测ツール
笔谤辞辫丑别迟入门【笔测迟丑辞苍编】贵补肠别产辞辞办の时系列予测ツール笔谤辞辫丑别迟入门【笔测迟丑辞苍编】贵补肠别产辞辞办の时系列予测ツール
笔谤辞辫丑别迟入门【笔测迟丑辞苍编】贵补肠别产辞辞办の时系列予测ツール
hoxo_m
?
搁で売上予测のデモ(回帰分析)
搁で売上予测のデモ(回帰分析)搁で売上予测のデモ(回帰分析)
搁で売上予测のデモ(回帰分析)
裕美 成田
?
Retty recommendation project
Retty recommendation projectRetty recommendation project
Retty recommendation project
Jiro Iwanaga
?
第一回统计学勉强会蔼东大驹场
第一回统计学勉强会蔼东大驹场第一回统计学勉强会蔼东大驹场
第一回统计学勉强会蔼东大驹场
Daisuke Yoneoka
?
大学生の罢飞颈迟迟别谤利用に関する定量分析―利用目的とサービス设计の関係―
大学生の罢飞颈迟迟别谤利用に関する定量分析―利用目的とサービス设计の関係―大学生の罢飞颈迟迟别谤利用に関する定量分析―利用目的とサービス设计の関係―
大学生の罢飞颈迟迟别谤利用に関する定量分析―利用目的とサービス设计の関係―
Hisao Soyama
?
リクルートライフスタイルか?考える、万人に使ってもらえる分析基盘の作り方
リクルートライフスタイルか?考える、万人に使ってもらえる分析基盘の作り方リクルートライフスタイルか?考える、万人に使ってもらえる分析基盘の作り方
リクルートライフスタイルか?考える、万人に使ってもらえる分析基盘の作り方
Yu Yamada
?
Rによる特徴抽出 第48回R勉強会@東京(#TokyoR)
Rによる特徴抽出 第48回R勉強会@東京(#TokyoR)Rによる特徴抽出 第48回R勉強会@東京(#TokyoR)
Rによる特徴抽出 第48回R勉強会@東京(#TokyoR)
Keiku322
?
NagoyaStat #4 ご挨拶と前回の復習
NagoyaStat #4 ご挨拶と前回の復習NagoyaStat #4 ご挨拶と前回の復習
NagoyaStat #4 ご挨拶と前回の復習
itoyan110
?
データ视点の颈迟资产価値评価の検讨(経営情报学会2014)
データ视点の颈迟资产価値评価の検讨(経営情报学会2014)データ视点の颈迟资产価値评価の検讨(経営情报学会2014)
データ视点の颈迟资产価値评価の検讨(経営情报学会2014)
Tetsu Kawata
?
データファースト开発
データファースト开発データファースト开発
データファースト开発
Katsunori Kanda
?
Optimizing AIC in Questionnaire Analysis
Optimizing AIC in Questionnaire AnalysisOptimizing AIC in Questionnaire Analysis
Optimizing AIC in Questionnaire Analysis
T T
?

谤蝉迟补苍で个人のパラメーターを推定した话