"sample.null.dep" <-
function( ngenes.null.dep , n, var.ratio, cov.matrix, ngenes.matrix,
distrn = "normal")
{ ## start of the fn sample.null.dep
sample <- sample.dep(ngenes.null.dep , n, var.ratio,
cov.matrix, ngenes.matrix, delta = 0)
sample
} ## the end of the function sample.null.dep
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.