R/bbootstrap.R

Defines functions bbootstrap

bbootstrap <-
function(xx, B = 100) {
  tmp <- rep(0, B)
  b <- 1
  while(b <= B) {
    tmp[b] <- median(sample(xx, replace = TRUE))
    b <- b + 1
  }
  return(sqrt(mean((tmp - mean(tmp))^2)))
}

Try the geneSignatureFinder package in your browser

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

geneSignatureFinder documentation built on May 2, 2019, 2:32 p.m.