tests2/dexp.R

In duncantl/R2llvm: LLVM-based compiler for R code

library(rstatic)
library(RTypeInference)
library(R2llvm)

rdexp =
function(x, lambda = 1.0)
{
  lambda * exp( - x * lambda)
}

# Not clear we can tell if this a scalar or a vector of RealType.
# Can we make RTypeInference do this based on its knowledge of exp()

cfg = to_cfg(rdexp)
types = infer_types(cfg)
types = infer_types(cfg, scalar = TRUE)
types = infer_types(cfg, init = list(x = typesys::RealType()))

compile_cfg(rdexp, types = types)