From 5b0dcd1de089d3ff22c1c0415a17c914436347a5 Mon Sep 17 00:00:00 2001 From: "Liam J. Revell" Date: Fri, 17 Nov 2017 13:51:36 -0500 Subject: [PATCH] oops - small addt'l fix to EXPM --- R/fitMk.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/R/fitMk.R b/R/fitMk.R index b298950b..e124126a 100644 --- 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 }