R/init.R

In Paradigm4/s4vdp4: Performance enhancements and SciDB matrix support for the s4vd biclustering package.

# Replace some functions and methods

require("s4vd")
.onLoad = function(libname,pkgname)
{
  E = environment(s4vd:::ssvdBC)
  unlockBinding('ssvdBC',E)
  assign('ssvdBC',P4_ssvdBC,E)
  environment(P4_ssvdBC) = E
  lockBinding('ssvdBC',E)
}

# SciDB matrix support.
setMethod('biclust', c('scidb','function'),
function(x,method, ...) {
    method <- method()
    biclust(x,method, ...)
})

setMethod('biclust', c('scidb','BiclustMethod'),
function(x,method, ...) {
  MYCALL<-match.call()
  ret<-method@biclustFunction(x,...)
  #ret@Parameters<-c(list(Call=MYCALL,Data=x,Method=method),list(...))
  ret@Parameters<-c(list(Call=MYCALL,Method=method))
  return(ret)
})