oops - small addt'l fix to EXPM

liamrevell · Nov 17, 2017 · 5b0dcd1 · 5b0dcd1
1 parent 0f58982
commit 5b0dcd1
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/fitMk.R b/R/fitMk.R
@@ -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
 }