武藤?

修論章立て(武藤) 

案1. 複数トピックの流行遷移 

案2. マルチエージェント×ソーシャルネットワークシミュレーション 

【主】ダイナミクスを司る目的関数の推定 

8/22 

修論シナリオ1.png

8/23 

シナリオ1 

シナリオ2 

8/24 これからの流れ 

修論シナリオ2.png

疑問点 

8/25 

粒子フィルタ 

確率微分paramハイブリット推定を提唱している人とyuima関係者が一緒 

より簡単なモデル(微分方程式)などで関数推定できるか? 

8/28 

エルゴード性 

https://www.kumamoto-u.ac.jp/daigakujouhou/kouhou/kouhoushi/kumadainow/labo/2019/20200108

8/29 

確率微分方程式のパラメータ推定 

Adaptive Bayes推定 (内田, 吉田., 2014)

yuimaサンプル(準最尤推定(QMLE)) 

パラメータ推定

library("yuima") 
# 時系列データの読み込み
data <- read.csv("C:/Users/tpu/Desktop/mi.u-tokyo.ac.jp_consortium2_data_maxtemp.csv")
# 当てはめる確率微分方程式
mod <- setModel(drift = "(2-theta2 * x)", diffusion = "(1+x^2)^theta1", state.variable="x", time.variable="t", solve.variable="x")
my.yuima <- setYuima(data=setData(data), model=mod)
param.init <- list(theta2 = 0.5, theta1 = 0.5)
mle <- qmle(my.yuima, start=param.init)
# QMLE推定結果
summary(mle)

出力

Quasi-Maximum likelihood estimation
Call:
qmle(yuima = my.yuima, start = param.init)
Coefficients:
        Estimate Std. Error
theta1 0.3606014 0.01315033
theta2 0.1059911 0.02039105
-2 log L: 2983.879 
対数尤度が低すぎて当てはまりは良くない?

推定パラメータで逆プロット

n<-486
ysamp <- setSampling(Terminal=1, n=n)
t.yuima <- setYuima(model = ymodel, sampling = ysamp)
set.seed(123)
t.yuima <- simulate(t.yuima, xinit=10.4, true.parameter=list(theta1=0.3606014, theta2=0.1059911))
plot(t.yuima)
準最尤推定_サンプルコード実行.png

8/30 

yuimaを使ってみた現在の見解 

数値的にパラメータ推定をする場合、ドリフト項・拡散項は具体的な関数である必要

SIRモデル=ドリフト項、拡散項にWiener増分をつけるやり方はどうか?

8/31 

実時系列データをそのままP(t)として使う→オプショングラフに適用できるかどうか?


トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS