`Rate` <-
c(-0.117544598347099, 1.20869864999211, -0.158093019253589, 0.419306648637482, 
-0.00428592634096918)
`Sigma` <-
c(-0.1908, .5753, -.1166)
`Xi` <-
c(0.1, 0)