- .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")