[R] Wilcoxon test output as a table

[Joris Meys]

# not tested
out <- rbind(as.numeric(Wnew),as.numeric(P))
rownames(out) <- c("Wnew","P")

Cheers

On Sat, Jun 5, 2010 at 11:18 PM, Iurie Malai <iurie.malai at gmail.com> wrote:
> Hi!
>
> I searched some time ago a way to get the Wilcoxon test results as a table
> more or less formatted. Nobody told me any solution and I found nothing on
> the Internet. Recently I came across this link (
> http://myowelt.blogspot.com/2008/04/beautiful-correlation-tables-in-r.html),
> which helped me to find a solution.
>
> Here's the solution (I'm using R Commander):
>
> W <- as.matrix(lapply(Dataset[2:11], function(x) wilcox.test(x ~ GrFac,
> alternative="two.sided", data=Dataset)$statistic))
> P <- as.matrix(lapply(Dataset[2:11], function(x) wilcox.test(x ~ GrFac,
> alternative="two.sided", data=Dataset)$p.value))
> W <- format(W, digits = 5, nsmall = 2)
> P <- format(P, digits = 1, nsmall = 3)
> Wnew <- matrix(paste(W), ncol=ncol(Dataset[2:11]))
> colnames(Wnew) <- paste(colnames(Dataset[2:11]))
> Wnew
> P
>
> This is the output (excerpt):
>> Wnew
>     X1        X2        X3        X4        X5        X6        X7
> X8        IA        IV
> [1,] "4582.50" "4335.50" "4610.50" "4008.50" "6409.50" "6064.50" "5126.50"
> "6861.50" "4305.50" "5769.00"
>> P
>  [1] "0.301" "0.100" "0.336" "0.013" "5e-04" "0.008" "0.756" "4e-06" "0.089"
> "0.059"
>
> Can anyone share their views? Propose an improvement? For example, how to
> make it appear as a table, not as separate rows? How to remove quotes? How
> to show rows names W and P?
>
> Regards,
> Iurie Malai, Senior Lecturer
> Department of Psychology
> Faculty of Psychology and Special Education
> Ion Creanga Moldova Pedagogical State University - www.upsm.md
> http://en.wikipedia.org/wiki/Ion_Creang%C4%83_Pedagogical_State_University
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
>



-- 
Ghent University
Faculty of Bioscience Engineering
Department of Applied mathematics, biometrics and process control

tel : +32 9 264 59 87
Joris.Meys at Ugent.be
-------------------------------
Disclaimer : http://helpdesk.ugent.be/e-maildisclaimer.php