Nothing
## Modification of function Anova in package genefilter
oneWayAnova <- function(cov, na.rm = TRUE, var.equal = FALSE){
function(x) {
if (na.rm) {
drop <- is.na(x)
x <- x[!drop]
cov <- cov[!drop]
}
oneway.test(x ~ cov, var.equal = var.equal)$p.value
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.