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.