Permalink
Browse files

oops - small addt'l fix to EXPM

  • Loading branch information...
liamrevell committed Nov 17, 2017
1 parent 0f58982 commit 5b0dcd1de089d3ff22c1c0415a17c914436347a5
Showing with 4 additions and 4 deletions.
  1. +4 −4 R/fitMk.R
View
@@ -253,8 +253,8 @@ plot.gfit<-function(x,...){
## wraps around expm
## written by Liam Revell 2011, 2017
EXPM<-function(Y,...){
eY<-if(isSymmetric) matexpo(Y) else expm(Y,...)
dimnames(eY)<-dimnames(Y)
eY
EXPM<-function(x,...){
e_x<-if(isSymmetric(x)) matexpo(x) else expm(x,...)
dimnames(e_x)<-dimnames(x)
e_x
}

0 comments on commit 5b0dcd1

Please sign in to comment.