dyn.load("VecAdd.so") a <- 1:1000 b <- 1000:1 res <- .C("VecAddR", as.single(a), as.single(b), c=as.single(1:1000)) res$c