Raw File
constSum.R
constSum <- function(x, const=1){
	return(x / rowSums(x) * const)
}
back to top