small fix in fitMk

liamrevell · Sep 27, 2017 · 554a3ab · 554a3ab
1 parent 3f4ea6d
commit 554a3ab
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/fitMk.R b/R/fitMk.R
@@ -84,7 +84,7 @@ fitMk<-function(tree,x,model="SYM",fixedQ=NULL,...){
 			el<-pw$edge.length[ii]
 			v<-vector(length=length(desc),mode="list")
 			for(j in 1:length(v))
-				v[[j]]<-matexpo(Q*el[j])%*%liks[desc[j],]
+				v[[j]]<-expm(Q*el[j])%*%liks[desc[j],]
 			vv<-if(anc==root) Reduce('*',v)[,1]*pi else Reduce('*',v)[,1]
 			comp[anc]<-sum(vv)
 			liks[anc,]<-vv/comp[anc]