data/matStig.R

In expm: Matrix Exponential, Log, 'etc'

matStig <-
    matrix(c( 1.725,   -0.765, -15.00,	       0,	  0,	 0,	 0,	0,
	     -0.795,	0.765,	    0,	       0,	  0,	 0,	 0,	0,
	      0,	0,     0.3949,	 -0.3949,	  0,	 0, 343.4851,	0,
	      0,	0,	    0,	  0.1456,	  0,	 0,	 0,	0,
	      0,	0,	    0,	       0,    -1.725, 0.795,	 0,	0,
	      0,	0,	    0,	       0,     0.765,-0.765,	 0,	0,
	      0,	0,	    0,	       0,    15.00,	 0, -0.3949,	0,
	      0,	0,	    0,	       0,	 0,	 0,  0.3949, -0.1456),
	   nrow=8, byrow=TRUE)