R/randomise.R

Defines functions randomise

Documented in randomise

randomise <- function(eset){
  data <- exprs(eset)
  dataR <- matrix(NA,ncol=dim(data)[[2]],nrow=dim(data)[[1]])
  
for (i in 1:dim(data)[[1]]){
     dataR[i,] <- data[i,sample(dim(data)[[2]])]
}

exprs(eset) <- dataR
eset
}

Try the Mfuzz package in your browser

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

Mfuzz documentation built on Nov. 17, 2017, 10:06 a.m.