Nothing
setClass('BCs4vd',
contains = 'BiclustMethod',
prototype = prototype(
biclustFunction = function(X,...){s4vd(X,...)}))
BCs4vd <- function() {
return(new('BCs4vd'))
}
setClass('BCssvd',
contains = 'BiclustMethod',
prototype = prototype(
biclustFunction = function(X,...){ssvdBC(X,...)}))
BCssvd <- function() {
return(new('BCssvd'))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.