(*----------------------------------*) (*Demonstration of the package "BowkerSymmetryExactTest".*) (*Created July 01, 2010, 2010, Dr. Daniel Oberfeld-Twistel, Department of Psychology, Johannes Gutenberg-Universität Mainz, Germany. Email: oberfeld@uni-mainz.de*) (*----------------------------------*) (*Load the package (if necessary specify the filepath by using Needs["BowkerSymmetryExactTest`","myPath/BowkerSymmetryExactTest.m"]) *) Needs["BowkerSymmetryExactTest`"] (*--------------------*) (*Example 1*) exampleBortzEtAlpage166={ (*Example by Bortz, J., Lienert, G. A., & Boehnke, K. (2008). Verteilungsfreie Methoden in der Biostatistik, p. 166*) {14,7,9}, {5,26,19}, {1,7,12} }; (*Computation of the Bowker test statistic*) N[bowkerStat[exampleBortzEtAlpage166]] (*Approximate and exact test*) pBowkerExact[exampleBortzEtAlpage166] (*--------------------*) (*Example 2*) exampleKrauth = { (*Example by Krauth, J. (1973). Nichtparametrische Ansätze zur Auswertung von Verlaufskurven [Nonparametric Approaches to Analyzing Time Effect Curves]. Biometrische Zeitschrift, 15(8), 557-566 on p. 565, and by Bortz, J., Lienert, G. A., & Boehnke, K. (2008). Verteilungsfreie Methoden in der Biostatistik, p. 599*) {0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0}, {0,0,0,0,0,0,0,0}, {0,0,1,0,0,0,0,0}, {1,0,0,0,0,0,0,0}, {6,1,0,1,0,0,0,0} }; (*Approximate and exact test*) pBowkerExact[exampleKrauth]