We examine evidence for pulsed evolution across our taxa, using a method for fitting Levy processes to comparative data. These processes can capture both incremental, explosive, and pulsed modes of evolution in a single, simple framework. (Landis and Schraiber 2017, PNAS)
For more information on the Levy process including calculation of intraspecific variation within the REML estimates we refer the reader to https://www.pnas.org/content/suppl/2017/10/31/1710920114.DCSupplemental that contains a detailed appendix of the method used by Landis and Schraiber.
Load libraries
library(pulsR)
library(neldermead)
library(ape)
library(phytools)
library(geiger)
fit_reml_levy
from pulsR
Load data
tree<-read.tree("./Final_tree.tre")
trait<-read.csv("./data/scaleddata/scaled_data_fot_dtt.csv", row.names = 1, header = T)
trait_in<-data.matrix(trait)[,'BPP.CNP']
fit_BM<-fit_reml_levy(tree,trait_in,model = "BM")
fit_OU<-fit_reml_levy(tree,trait_in,model = "OU")
fit_EB<-fit_reml_levy(tree,trait_in,model = "EB")
fit_JN<-fit_reml_levy(tree,trait_in,model = "JN")
fit_NIG<-fit_reml_levy(tree,trait_in,model = "NIG")
fit_BMJN<-fit_reml_levy(tree,trait_in,model = "BMJN")
fit_BMNIG<-fit_reml_levy(tree,trait_in,model = "BMNIG")
fit_EBJN<-fit_reml_levy(tree,trait_in,model = "EBJN")
fit_EBNIG<-fit_reml_levy(tree,trait_in,model = "EBNIG")
fit_BM$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 7.880638e-05 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 0.000000e+00 0.000000e+00 7.253686e-01
fit_OU$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.03169064 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.02757412 0.00000000 0.76973552
fit_EB$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg
## 4.492157e-02 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## alpha_nig delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 0.000000e+00 0.000000e+00 -4.379367e-07 6.527292e-01
fit_JN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.00000000 1.60685797 0.03538809 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.65240956
fit_NIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 41.23947326
## delta_nig alpha_ou decay_eb sigma_tip
## 0.08251806 0.00000000 0.00000000 0.65375426
fit_BMJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.03993657 2.31698354 0.01346263 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.65261996
fit_BMNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.043876396 0.000000000 0.000000000 0.000000000 0.000000000 32.352826241
## delta_nig alpha_ou decay_eb sigma_tip
## 0.002113758 0.000000000 0.000000000 0.652823377
fit_EBJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.6529939
fit_EBNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.6535943
aic.vals<-setNames(c(fit_BM$AIC,fit_OU$AIC,fit_EB$AIC,fit_JN$AIC,fit_NIG$AIC,fit_BMJN$AIC,fit_BMNIG$AIC,fit_EBJN$AIC,
fit_EBNIG$AIC),c("BM","OU","EB","JN","NIG","BMJN","BMHIG","EBJN","EBNIG"))
aic.vals
## BM OU EB JN NIG BMJN BMHIG EBJN
## 120.0031 122.0034 119.5086 119.5093 119.5091 121.5086 121.5087 115.5094
## EBNIG
## 115.5113
aic.w(aic.vals)
## BM OU EB JN NIG BMJN BMHIG
## 0.03990699 0.01467876 0.05110262 0.05108331 0.05108901 0.01879950 0.01879839
## EBJN EBNIG
## 0.37744844 0.37709298
fit_BM$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.02771307 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.15286072
fit_OU$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 2.770908e-02 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 2.246026e-06 0.000000e+00 1.528475e-01
fit_EB$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.030068576 0.000000000 0.000000000 0.000000000 0.000000000 0.000000000
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000000 0.000000000 -0.004483542 0.154914150
fit_JN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.00000000 0.03887125 0.21169381 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.06471901
fit_NIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 39.70030320
## delta_nig alpha_ou decay_eb sigma_tip
## 0.03116696 0.00000000 0.00000000 0.15118361
fit_BMJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.02061450 0.12582422 0.01033285 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.17540716
fit_BMNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.01135733 0.00000000 0.00000000 0.00000000 0.00000000 71.23828496
## delta_nig alpha_ou decay_eb sigma_tip
## 0.01791826 0.00000000 0.00000000 0.17925013
fit_EBJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.07827814
fit_EBNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.04066883
aic.vals<-setNames(c(fit_BM$AIC,fit_OU$AIC,fit_EB$AIC,fit_JN$AIC,fit_NIG$AIC,fit_BMJN$AIC,fit_BMNIG$AIC,fit_EBJN$AIC,
fit_EBNIG$AIC),c("BM","OU","EB","JN","NIG","BMJN","BMHIG","EBJN","EBNIG"))
aic.vals
## BM OU EB JN NIG BMJN BMHIG
## -4.3097122 -2.3096969 -2.3183544 -5.3549007 -2.3642543 0.1835547 0.4043736
## EBJN EBNIG
## -9.4653910 -9.6387671
aic.w(aic.vals)
## BM OU EB JN NIG BMJN BMHIG
## 0.03171375 0.01166675 0.01171736 0.05348197 0.01198938 0.00335388 0.00300329
## EBJN EBNIG
## 0.41762739 0.45544625
fit_BM$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.03197138 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.41840362
fit_OU$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.007593166 0.000000000 0.000000000 0.000000000 0.000000000 0.000000000
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000000 0.043300503 0.000000000 0.469517549
fit_EB$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg
## 1.576924e-03 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## alpha_nig delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 0.000000e+00 0.000000e+00 -1.459168e-05 4.731893e-01
fit_JN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.00000000 8.42981802 0.01097635 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.41894458
fit_NIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 26.11405526
## delta_nig alpha_ou decay_eb sigma_tip
## 0.07749863 0.00000000 0.00000000 0.32557358
fit_BMJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.02489361 0.03669722 0.09879547 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.44506573
fit_BMNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.015609766 0.000000000 0.000000000 0.000000000 0.000000000 1.262958213
## delta_nig alpha_ou decay_eb sigma_tip
## 0.009294213 0.000000000 0.000000000 0.051152549
fit_EBJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.4442848
fit_EBNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.4529899
aic.vals<-setNames(c(fit_BM$AIC,fit_OU$AIC,fit_EB$AIC,fit_JN$AIC,fit_NIG$AIC,fit_BMJN$AIC,fit_BMNIG$AIC,fit_EBJN$AIC,
fit_EBNIG$AIC),c("BM","OU","EB","JN","NIG","BMJN","BMHIG","EBJN","EBNIG"))
aic.vals
## BM OU EB JN NIG BMJN BMHIG EBJN
## 73.75824 78.35136 78.34792 75.75660 77.10557 77.98466 61.83762 71.25786
## EBNIG
## 71.68489
aic.w(aic.vals)
## BM OU EB JN NIG BMJN BMHIG
## 0.00252577 0.00025410 0.00025454 0.00092994 0.00047373 0.00030524 0.97931704
## EBJN EBNIG
## 0.00881744 0.00712221
fit_BM$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 9.510061e-06 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 0.000000e+00 0.000000e+00 2.927660e-01
fit_OU$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.0008183583 0.0000000000 0.0000000000 0.0000000000 0.0000000000 0.0000000000
## delta_nig alpha_ou decay_eb sigma_tip
## 0.0000000000 0.4469099884 0.0000000000 0.2927370490
fit_EB$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg
## 2.292871e-06 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## alpha_nig delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 0.000000e+00 0.000000e+00 -1.831093e-04 2.927161e-01
fit_JN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.000000e+00 2.945031e+00 1.965594e-06 0.000000e+00 0.000000e+00 0.000000e+00
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 0.000000e+00 0.000000e+00 2.927570e-01
fit_NIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 841.7093956
## delta_nig alpha_ou decay_eb sigma_tip
## 0.3583227 0.0000000 0.0000000 0.2867072
fit_BMJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 6.621204e-06 1.852525e+01 7.528506e-07 0.000000e+00 0.000000e+00 0.000000e+00
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 0.000000e+00 0.000000e+00 2.927388e-01
fit_BMNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 6.533011e-03 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 1.495514e+02
## delta_nig alpha_ou decay_eb sigma_tip
## 3.795400e-03 0.000000e+00 0.000000e+00 2.660285e-01
fit_EBJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.2927418
fit_EBNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.2874512
aic.vals<-setNames(c(fit_BM$AIC,fit_OU$AIC,fit_EB$AIC,fit_JN$AIC,fit_NIG$AIC,fit_BMJN$AIC,fit_BMNIG$AIC,fit_EBJN$AIC,
fit_EBNIG$AIC),c("BM","OU","EB","JN","NIG","BMJN","BMHIG","EBJN","EBNIG"))
aic.vals
## BM OU EB JN NIG BMJN BMHIG EBJN
## 27.44292 29.44292 29.44292 29.44292 32.30779 31.44292 32.94435 25.44292
## EBNIG
## 28.05628
aic.w(aic.vals)
## BM OU EB JN NIG BMJN BMHIG
## 0.17109096 0.06294083 0.06294086 0.06294088 0.01502569 0.02315465 0.01092968
## EBJN EBNIG
## 0.46507305 0.12590340
fit_BM$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.07660976 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.10423251
fit_OU$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.06643143 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00010000 0.00000000 0.17463959
fit_EB$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 1.2211108 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## alpha_ou decay_eb sigma_tip
## 0.0000000 -0.1339561 0.1396480
fit_JN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.000000000 0.005193177 1.338026416 0.000000000 0.000000000 0.000000000
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000000 0.000000000 0.000000000 0.145809022
fit_NIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.44651371 0.00339535
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.12351610
fit_BMJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.0004074995 0.0051813854 1.3387328221 0.0000000000 0.0000000000 0.0000000000
## delta_nig alpha_ou decay_eb sigma_tip
## 0.0000000000 0.0000000000 0.0000000000 0.1456537446
fit_BMNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 6.856071e-05 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 6.772975e-01
## delta_nig alpha_ou decay_eb sigma_tip
## 4.723930e-03 0.000000e+00 0.000000e+00 7.627321e-02
fit_EBJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.1464015
fit_EBNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.1236376
aic.vals<-setNames(c(fit_BM$AIC,fit_OU$AIC,fit_EB$AIC,fit_JN$AIC,fit_NIG$AIC,fit_BMJN$AIC,fit_BMNIG$AIC,fit_EBJN$AIC,
fit_EBNIG$AIC),c("BM","OU","EB","JN","NIG","BMJN","BMHIG","EBJN","EBNIG"))
aic.vals
## BM OU EB JN NIG BMJN BMHIG EBJN
## 55.37660 59.11976 50.62493 33.93471 36.09460 35.93506 39.31661 29.17881
## EBNIG
## 32.02114
aic.w(aic.vals)
## BM OU EB JN NIG BMJN BMHIG
## 0.00000146 0.00000022 0.00001567 0.06595616 0.02239962 0.02425964 0.00447290
## EBJN EBNIG
## 0.71118959 0.17170474
>
fit_BM$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.006524069 0.000000000 0.000000000 0.000000000 0.000000000 0.000000000
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000000 0.000000000 0.000000000 0.140622062
fit_OU$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.003010517 0.000000000 0.000000000 0.000000000 0.000000000 0.000000000
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000000 0.525853551 0.000000000 0.148635258
fit_EB$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.08802951 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## delta_nig alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 -1.71799310 0.14103347
fit_JN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.000000000 35.262359812 0.001101489 0.000000000 0.000000000 0.000000000
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000000 0.000000000 0.000000000 0.140482323
fit_NIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 539.73962777
## delta_nig alpha_ou decay_eb sigma_tip
## 0.08577632 0.00000000 0.00000000 0.14962810
fit_BMJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.005557757 0.025227819 0.016972787 0.000000000 0.000000000 0.000000000
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000000 0.000000000 0.000000000 0.198861758
fit_BMNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 4.634706e-03 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 6.044585e+02
## delta_nig alpha_ou decay_eb sigma_tip
## 6.067301e-02 0.000000e+00 0.000000e+00 1.161133e-01
fit_EBJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.1404703
fit_EBNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000
## decay_eb sigma_tip
## 0.000000 0.139957
aic.vals<-setNames(c(fit_BM$AIC,fit_OU$AIC,fit_EB$AIC,fit_JN$AIC,fit_NIG$AIC,fit_BMJN$AIC,fit_BMNIG$AIC,fit_EBJN$AIC,
fit_EBNIG$AIC),c("BM","OU","EB","JN","NIG","BMJN","BMHIG","EBJN","EBNIG"))
aic.vals
## BM OU EB JN NIG BMJN BMHIG EBJN
## -43.17250 -39.66796 -43.15542 -41.17248 -38.75752 -30.21453 -36.39671 -45.16415
## EBNIG
## -45.17640
aic.w(aic.vals)
## BM OU EB JN NIG BMJN BMHIG
## 0.12332591 0.02138229 0.12227727 0.04536868 0.01356294 0.00018935 0.00416592
## EBJN EBNIG
## 0.33383805 0.33588959
fit_BM$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.1841363 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.3230113
fit_OU$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 1.247837e-01 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 1.729459e-06 0.000000e+00 1.381070e+00
fit_EB$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg
## 1.844469e-01 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## alpha_nig delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 0.000000e+00 0.000000e+00 -6.930763e-05 3.239476e-01
fit_JN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.00000000 0.04221104 0.98062200 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.07750579
fit_NIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 5.351834e-01
## delta_nig alpha_ou decay_eb sigma_tip
## 2.450571e-02 0.000000e+00 0.000000e+00 2.685438e-05
fit_BMJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 2.988179e-05 4.210601e-02 9.816622e-01 0.000000e+00 0.000000e+00 0.000000e+00
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 0.000000e+00 0.000000e+00 7.770318e-02
fit_BMNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 7.565246e-05 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 5.345049e-01
## delta_nig alpha_ou decay_eb sigma_tip
## 2.449346e-02 0.000000e+00 0.000000e+00 3.093245e-05
fit_EBJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.1352009
fit_EBNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 0.000000e+00 0.000000e+00 2.783285e-06
aic.vals<-setNames(c(fit_BM$AIC,fit_OU$AIC,fit_EB$AIC,fit_JN$AIC,fit_NIG$AIC,fit_BMJN$AIC,fit_BMNIG$AIC,fit_EBJN$AIC,
fit_EBNIG$AIC),c("BM","OU","EB","JN","NIG","BMJN","BMHIG","EBJN","EBNIG"))
aic.vals
## BM OU EB JN NIG BMJN BMHIG EBJN
## 148.3631 174.3237 150.3621 140.5904 144.4845 142.5904 146.4845 137.1526
## EBNIG
## 140.4880
aic.w(aic.vals)
## BM OU EB JN NIG BMJN BMHIG
## 0.00249565 0.00000001 0.00091858 0.12162181 0.01735487 0.04474202 0.00638449
## EBJN EBNIG
## 0.67846970 0.12801287
fit_BM$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.08279424 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.72372730
fit_OU$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.3017029 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 1.5293061
## decay_eb sigma_tip
## 0.0000000 0.9333266
fit_EB$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg
## 8.303253e-02 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## alpha_nig delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 0.000000e+00 0.000000e+00 -2.300461e-06 7.235694e-01
fit_JN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.00000000 2.27313598 0.05507999 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.72206152
fit_NIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 110.3231756
## delta_nig alpha_ou decay_eb sigma_tip
## 0.6964257 0.0000000 0.0000000 0.7284870
fit_BMJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 8.287065e-02 1.121178e-05 1.135292e-01 0.000000e+00 0.000000e+00 0.000000e+00
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 0.000000e+00 0.000000e+00 7.235753e-01
fit_BMNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 1.078428e-03 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 5.991430e+02
## delta_nig alpha_ou decay_eb sigma_tip
## 3.979953e+00 0.000000e+00 0.000000e+00 7.320183e-01
fit_EBJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.7305893
fit_EBNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.7301386
aic.vals<-setNames(c(fit_BM$AIC,fit_OU$AIC,fit_EB$AIC,fit_JN$AIC,fit_NIG$AIC,fit_BMJN$AIC,fit_BMNIG$AIC,fit_EBJN$AIC,
fit_EBNIG$AIC),c("BM","OU","EB","JN","NIG","BMJN","BMHIG","EBJN","EBNIG"))
aic.vals
## BM OU EB JN NIG BMJN BMHIG EBJN
## 138.1105 149.4292 140.1105 140.1196 140.1251 142.1105 142.1158 136.1063
## EBNIG
## 136.0995
aic.w(aic.vals)
## BM OU EB JN NIG BMJN BMHIG
## 0.12770944 0.00044503 0.04698128 0.04676748 0.04663833 0.01728366 0.01723711
## EBJN EBNIG
## 0.34787884 0.34905882
fit_BM$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.1308738 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.3058864
fit_OU$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 1.306551e-01 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 9.007622e-08 0.000000e+00 3.062056e-01
fit_EB$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.53830667 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## delta_nig alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 -0.07143181 0.34331929
fit_JN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.00000000 0.01297526 1.24677915 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.10567946
fit_NIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.000000000 0.000000000 0.000000000 0.000000000 0.000000000 0.073413077
## delta_nig alpha_ou decay_eb sigma_tip
## 0.005157647 0.000000000 0.000000000 0.057156240
fit_BMJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 1.780730e-07 4.141341e-02 5.364138e-01 0.000000e+00 0.000000e+00 0.000000e+00
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 0.000000e+00 0.000000e+00 6.685590e-02
fit_BMNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 3.621989e-06 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 7.354129e-02
## delta_nig alpha_ou decay_eb sigma_tip
## 5.161861e-03 0.000000e+00 0.000000e+00 5.717942e-02
fit_EBJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.1172587
fit_EBNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.05715363
aic.vals<-setNames(c(fit_BM$AIC,fit_OU$AIC,fit_EB$AIC,fit_JN$AIC,fit_NIG$AIC,fit_BMJN$AIC,fit_BMNIG$AIC,fit_EBJN$AIC,
fit_EBNIG$AIC),c("BM","OU","EB","JN","NIG","BMJN","BMHIG","EBJN","EBNIG"))
aic.vals
## BM OU EB JN NIG BMJN BMHIG EBJN
## 119.35099 121.35121 113.23991 80.79274 85.91549 96.07104 87.91550 72.30690
## EBNIG
## 81.91034
aic.w(aic.vals)
## BM OU EB JN NIG BMJN BMHIG
## 0.00000000 0.00000000 0.00000000 0.01402744 0.00108290 0.00000675 0.00039837
## EBJN EBNIG
## 0.97646229 0.00802224
fit_BM$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.09238845 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.68124577
fit_OU$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.101673035 0.000000000 0.000000000 0.000000000 0.000000000 0.000000000
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000000 0.003074812 0.000000000 0.665919530
fit_EB$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg
## 9.236083e-02 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## alpha_nig delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 0.000000e+00 0.000000e+00 -1.940814e-07 6.811632e-01
fit_JN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.00000000 0.01418835 0.88112979 0.00000000 0.00000000 0.00000000 0.00000000
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.61244918
fit_NIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 31.3401710 0.2674664
## alpha_ou decay_eb sigma_tip
## 0.0000000 0.0000000 0.6810365
fit_BMJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.066537404 0.000827031 4.115524078 0.000000000 0.000000000 0.000000000
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000000 0.000000000 0.000000000 0.651345141
fit_BMNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig
## 0.05917063 0.00000000 0.00000000 0.00000000 0.00000000 0.16069857 0.00214382
## alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 0.65406915
fit_EBJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000
## decay_eb sigma_tip
## 0.0000 0.6123
fit_EBNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.6339847
aic.vals<-setNames(c(fit_BM$AIC,fit_OU$AIC,fit_EB$AIC,fit_JN$AIC,fit_NIG$AIC,fit_BMJN$AIC,fit_BMNIG$AIC,fit_EBJN$AIC,
fit_EBNIG$AIC),c("BM","OU","EB","JN","NIG","BMJN","BMHIG","EBJN","EBNIG"))
aic.vals
## BM OU EB JN NIG BMJN BMHIG EBJN
## 136.9749 138.9605 138.9748 138.1623 138.9719 139.9463 140.1624 134.1623
## EBNIG
## 134.1804
aic.w(aic.vals)
## BM OU EB JN NIG BMJN BMHIG
## 0.08917934 0.03304280 0.03280743 0.04925121 0.03285572 0.02018512 0.01811707
## EBJN EBNIG
## 0.36391863 0.36064269
fit_BM$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.1227216 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.1967298
fit_OU$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 1.227036e-01 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000e+00 7.922285e-07 0.000000e+00 1.984590e-01
fit_EB$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.35723689 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
## delta_nig alpha_ou decay_eb sigma_tip
## 0.00000000 0.00000000 -0.05120611 0.26967582
fit_JN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.000000000 0.005381135 2.167238042 0.000000000 0.000000000 0.000000000
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000000 0.000000000 0.000000000 0.172340015
fit_NIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.000000000 0.000000000 0.000000000 0.000000000 0.000000000 0.191872688
## delta_nig alpha_ou decay_eb sigma_tip
## 0.005601053 0.000000000 0.000000000 0.074396863
fit_BMJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 0.021019152 0.007603187 1.490093230 0.000000000 0.000000000 0.000000000
## delta_nig alpha_ou decay_eb sigma_tip
## 0.000000000 0.000000000 0.000000000 0.159855985
fit_BMNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig
## 2.610168e-06 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 1.915952e-01
## delta_nig alpha_ou decay_eb sigma_tip
## 5.601159e-03 0.000000e+00 0.000000e+00 7.436261e-02
fit_EBJN$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.1725378
fit_EBNIG$params
## sigma_bm lambda_jn delta_jn sigma_vg nu_vg alpha_nig delta_nig alpha_ou
## 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000 0.0000000
## decay_eb sigma_tip
## 0.0000000 0.7211519
aic.vals<-setNames(c(fit_BM$AIC,fit_OU$AIC,fit_EB$AIC,fit_JN$AIC,fit_NIG$AIC,fit_BMJN$AIC,fit_BMNIG$AIC,fit_EBJN$AIC,
fit_EBNIG$AIC),c("BM","OU","EB","JN","NIG","BMJN","BMHIG","EBJN","EBNIG"))
aic.vals
## BM OU EB JN NIG BMJN BMHIG EBJN
## 105.49383 107.49427 105.84672 76.02211 85.89107 81.48194 87.89107 71.47137
## EBNIG
## 120.73779
aic.w(aic.vals)
## BM OU EB JN NIG BMJN BMHIG
## 0.00000004 0.00000001 0.00000003 0.09253636 0.00066573 0.00603566 0.00024491
## EBJN EBNIG
## 0.90051727 0.00000000