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

diff --git a/R/rTrait.R b/R/rTrait.R
index b87dd6f8a60ff023271acfb1339c36fdc53d190e..ec055dcb58a643798cc51976938cc1e19ff4f6af 100644 (file)
--- 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) {