R/interface.R

In tdhock/SparseSignals: Efficient algorithms for sparse signals

### Add two SparseSignals.
addSparseSignals <- structure(function(x, y){
  .Call("add_SparseSignals_interface", x, y,
        package="SparseSignals")
}, ex=function(){
  x <- data.frame(1L, 2L, 5.5)
  addSparseSignals(x, data.frame(4L, 10L, 3.8))
  
  neg <- data.frame(1L, 2L, -5.5)
  addSparseSignals(neg, x)
  
  x <- data.frame(c(10L, 12L, 14L),
                  c(11L, 13L, 16L),
                  c(  1,   2,   3))
  y <- data.frame(c(10L, 12L, 15L),
                  c(11L, 13L, 17L),
                  c( 1, -2,    4))
  addSparseSignals(x, y)
})