Nothing
# Written by Ashoka D. Polpitiya
# for the Department of Energy (PNNL, Richland, WA)
# Copyright 2007, Battelle Memorial Institute
# E-mail: ashoka.polpitiya@pnl.gov
# Website: http://omics.pnl.gov/software
# -------------------------------------------------------------------------
#
# Licensed under the Apache License, Version 2.0; you may not use this file except
# in compliance with the License. You may obtain a copy of the License at
# http://www.apache.org/licenses/LICENSE-2.0
#
# Wilcoxon Test
Wilcoxon <- function(x, fEff, Factors, Np)
{
X <- data.frame(t(Factors[fEff, , drop=FALSE]), x)
#browser()
for (i in 1:(dim(X)[2]-1))
{
names(X)[i] <- fEff[i]
}
lhs <- fEff[1]
Formula <- as.formula(paste('x~', lhs))
nonpara.result <- try(wilcox.test(Formula, na.action=na.omit, data=X),
silent=TRUE)
if(inherits(nonpara.result, "try-error"))
{
return(rep(NA, Np))
}
else
{
pvals <- nonpara.result["p.value"]
return(pvals[[1]])
}
}
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.