| 1 | bootstrapCancerGenomes(genomes)
 | 
| genomes | 
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.
## The function is currently defined as
function (genomes) 
{
    genome.col.sums <- apply(genomes, 2, sum)
    norm.genomes <- genomes/matrix(genome.col.sums, ncol = ncol(genomes), 
        nrow = nrow(genomes), byrow = TRUE)
    bootstrapGenomes <- sapply(1:length(genome.col.sums), (function(i) {
        stats::rmultinom(1, size = genome.col.sums[i], prob = norm.genomes[, 
            i])
    }))
    return(bootstrapGenomes)
  }
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.