From d5b85d181648e2761cecc91d75c4c66fa05e4508 Mon Sep 17 00:00:00 2001 From: paradis Date: Mon, 18 Apr 2011 02:49:11 +0000 Subject: [PATCH] small update in rTrait.R (coercing parameters as double) git-svn-id: https://svn.mpl.ird.fr/ape/dev/ape@156 6e262413-ae40-0410-9e79-b911bd7a66b7 --- R/rTrait.R | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/R/rTrait.R b/R/rTrait.R index b87dd6f..ec055dc 100644 --- a/R/rTrait.R +++ b/R/rTrait.R @@ -1,8 +1,8 @@ -## 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. @@ -117,7 +117,10 @@ rTraitCont <- 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) { -- 2.39.2