-## rTrait.R (2010-12-24)
+## rTrait.R (2011-04-02)
## Trait Evolution
-## Copyright 2010 Emmanuel Paradis
+## Copyright 2010-2011 Emmanuel Paradis
## This file is part of the R-package `ape'.
## See the file ../COPYING for licensing issues.
stop("'theta' must have one or Nedge(phy) elements")
if (!linear) model <- model + 1L
}
- .C("rTraitCont", as.integer(model), as.integer(N), as.integer(anc - 1L), as.integer(des - 1L), el, sigma, alpha, theta, x, DUP = FALSE, NAOK = TRUE, PACKAGE = "ape")
+ .C("rTraitCont", as.integer(model), as.integer(N),
+ as.integer(anc - 1L), as.integer(des - 1L), el,
+ as.double(sigma), as.double(alpha), as.double(theta), x,
+ DUP = FALSE, NAOK = TRUE, PACKAGE = "ape")
}
if (ancestor) {