R/random.R

In BowenNCSU/pathview: a tool set for pathway based data integration and visualization

Defines functions random

Documented in random

random <-
function(x, na.rm=TRUE){
if(na.rm) x=x[!is.na(x)]
lenx=length(x)
if(lenx==0) return(NA)
ifelse(lenx==1, x, sample(x, 1))
}