R/aaa-s4vd.R

In s4vd: Biclustering via Sparse Singular Value Decomposition Incorporating Stability Selection

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'))
}