R/splitMatrix.R

`splitMatrix` <-
function(x, col=1) {
	ncol <- ncol(x)
	l <- split(x, x[,col])
	lapply(l, function(subM) matrix(subM, ncol=ncol))
}
uc-bd2k/gimmR documentation built on May 3, 2019, 2:15 p.m.