R/calculatePermutedScoreByGeneSampling.R

Defines functions calculatePermutedScoreByGeneSampling

Documented in calculatePermutedScoreByGeneSampling

calculatePermutedScoreByGeneSampling <-
function(originalMat, dscrmn=dscrmn, dffclt=dffclt, c=rep(0, length(dffclt)),
         fold=1, parallel=FALSE){
  i <- NULL # quiet R CMD check
  nGeneSampled <- floor(nrow(originalMat)*fold)			
  permutedMat <- foreach(i=1:ncol(originalMat), .combine='cbind') %do% {
    rbinom(nGeneSampled, 1, mean(originalMat[, i]))
  }
  computeAbility(permutedMat, dscrmn=dscrmn, dffclt=dffclt, c=c, parallel=parallel)
	
}

Try the integIRTy package in your browser

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

integIRTy documentation built on May 3, 2022, 9:08 a.m.