1 ## ladderize.R (2007-10-08)
5 ## Copyright 2007 Emmanuel Paradis
7 ## This file is part of the R-package `ape'.
8 ## See the file ../COPYING for licensing issues.
10 matexpo <- function(x)
12 if (!is.matrix(x)) stop('"x" must be a matrix')
14 if (nr != dim(x)[2]) stop('"x" must be a square matrix')
15 ans <- .C("mat_expo", as.double(x), as.integer(nr),