R/extractSimBC.R

###############################################################################
# Project: biclustRank
## Nolen Joy Perualila (nolenjoy.perualila@uhasselt.be)

###############################################################################

#' @title extract intra-bicluster similarity scores 
#' @param data = data used in biclustering (e.g., expression matrix)
#' @param biclustRes = biclustering output
#' @param p = number of biclusters 
#' @param simMat <- similarity matrix from getSimilarity
#' @return a list containing similarity matrix per bicluster
#' @author Nolen Joy Perualila (nolenjoy.perualila@uhasselt.be)

extractSimBC <- function(biclustList, simMat, p) {
	
	simBC <- list()	

			for(i in 1:p){
			cBC <- 	biclustList[[i]][[1]] #get compounds  per BC
			if (length(cBC)>=2){
			simBC[[i]] <- simMat[cBC,cBC]}
		else(simBC[[i]] <- (paste("There is only 1 compound,", cBC)))
		}  
		names(simBC) <- paste("BC",1:p, sep="")
return(simBC)
	
}

Try the biclustRank package in your browser

Any scripts or data that you put into this service are public.

biclustRank documentation built on May 2, 2019, 4:54 p.m.