R/Tmean.Null.Tss2.R

Tmean.Null.Tss2 <-
function(gnames, null.Z,  multiplier=30){

    multi.sim=NULL
    for (k in 1:multiplier){
        resampled.Z = sample(null.Z, size=length(gnames), replace=FALSE)
        re.geneZ = cbind(gnames, resampled.Z)
        sim.Txx =  T.mean(geneZ=re.geneZ)
        multi.sim = rbind(multi.sim, sim.Txx)
        }
    return(multi.sim)
    }

Try the sgRSEA package in your browser

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

sgRSEA documentation built on May 2, 2019, 2:47 p.m.