R/test.R

int_add <- function(a,b) {
  ans <- .C("int_add", as.integer(a), as.integer(b), res=as.integer(0))
  return(ans$res)
}
EllaKaye/BLB documentation built on May 6, 2019, 3:24 p.m.