Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.