convolveCTest.R

dyn.load("convolve.so")
conv <- function(a, b)
    .C("convolve",
       as.double(a),
       as.integer(length(a)),
       as.double(b),
       as.integer(length(b)),
       ab = double(length(a) + length(b) - 1))$ab

conv(1:10, 1:10)
duncantl/RLLVMCompile documentation built on May 15, 2019, 5:31 p.m.