R/sum.R

In jeroenooms/fib: Fibonacci in R, C++ and JavaScript

Defines functions sumR sumCPP sumJS

sumR <- function(x) {
  sum(as.numeric(seq_len(x)))
}

sumCPP <- function(n){
  countsum(n)
}

sumJS <- function(n){
  ct$call("sum", n)
}