#' @export mediantest.formula=function(formula,data=list(),...) mf <- model.frame(formula=formula, data=data) response <- attr(attr(mf, "terms"), "response") Fact<-factor(mf[[-response]]) DATA <- setNames(split(mf[[response]], Fact), c("x", "y")) result <- wilcoxtest.default(DATA[[1]],DATA[[2]],...) return(result)
1 2 |
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.