R version 2.12.0 (2010-10-15) Copyright (C) 2010 The R Foundation for Statistical Computing ISBN 3-900051-07-0 Platform: i486-pc-linux-gnu (32-bit) R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > x <- array(list(1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,1 + ,1 + ,1 + ,1 + ,1 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,2 + ,0 + ,2 + ,0 + ,2 + ,1 + ,2 + ,0 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,0 + ,2 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1 + ,3 + ,0 + ,3 + ,0 + ,3 + ,1 + ,3 + ,1 + ,3 + ,1) + ,dim=c(2 + ,1309) + ,dimnames=list(c('klasse' + ,'geslacht ') + ,1:1309)) > y <- array(NA,dim=c(2,1309),dimnames=list(c('klasse','geslacht '),1:1309)) > for (i in 1:dim(x)[1]) + { + for (j in 1:dim(x)[2]) + { + y[i,j] <- as.numeric(x[i,j]) + } + } > par3 = 'Pearson Chi-Squared' > par2 = '2' > par1 = '1' > main = 'Association Plot' > #'GNU S' R Code compiled by R2WASP v. 1.0.44 () > #Author: Dr. Ian E. Holliday > #To cite this work: Ian E. Holliday, 2009, YOUR SOFTWARE TITLE (vNUMBER) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_YOURPAGE.wasp/ > #Source of accompanying publication: > #Technical description: > library(vcd) Loading required package: MASS Loading required package: grid Loading required package: colorspace > cat1 <- as.numeric(par1) # > cat2<- as.numeric(par2) # > simulate.p.value=FALSE > if (par3 == 'Exact Pearson Chi-Squared by Simulation') simulate.p.value=TRUE > x <- t(x) > (z <- array(unlist(x),dim=c(length(x[,1]),length(x[1,])))) [,1] [,2] [1,] 1 0 [2,] 1 1 [3,] 1 0 [4,] 1 1 [5,] 1 0 [6,] 1 1 [7,] 1 0 [8,] 1 1 [9,] 1 0 [10,] 1 1 [11,] 1 1 [12,] 1 0 [13,] 1 0 [14,] 1 0 [15,] 1 1 [16,] 1 1 [17,] 1 1 [18,] 1 0 [19,] 1 0 [20,] 1 1 [21,] 1 1 [22,] 1 0 [23,] 1 1 [24,] 1 0 [25,] 1 0 [26,] 1 1 [27,] 1 1 [28,] 1 0 [29,] 1 0 [30,] 1 1 [31,] 1 1 [32,] 1 1 [33,] 1 0 [34,] 1 0 [35,] 1 1 [36,] 1 0 [37,] 1 0 [38,] 1 1 [39,] 1 1 [40,] 1 1 [41,] 1 1 [42,] 1 0 [43,] 1 0 [44,] 1 0 [45,] 1 0 [46,] 1 1 [47,] 1 1 [48,] 1 1 [49,] 1 0 [50,] 1 1 [51,] 1 0 [52,] 1 1 [53,] 1 1 [54,] 1 1 [55,] 1 1 [56,] 1 0 [57,] 1 1 [58,] 1 0 [59,] 1 1 [60,] 1 0 [61,] 1 1 [62,] 1 0 [63,] 1 1 [64,] 1 0 [65,] 1 1 [66,] 1 0 [67,] 1 0 [68,] 1 0 [69,] 1 1 [70,] 1 0 [71,] 1 1 [72,] 1 1 [73,] 1 0 [74,] 1 0 [75,] 1 1 [76,] 1 1 [77,] 1 0 [78,] 1 1 [79,] 1 0 [80,] 1 0 [81,] 1 1 [82,] 1 1 [83,] 1 0 [84,] 1 0 [85,] 1 1 [86,] 1 0 [87,] 1 1 [88,] 1 1 [89,] 1 0 [90,] 1 1 [91,] 1 0 [92,] 1 1 [93,] 1 0 [94,] 1 1 [95,] 1 1 [96,] 1 0 [97,] 1 1 [98,] 1 0 [99,] 1 0 [100,] 1 0 [101,] 1 1 [102,] 1 1 [103,] 1 0 [104,] 1 0 [105,] 1 0 [106,] 1 0 [107,] 1 1 [108,] 1 0 [109,] 1 0 [110,] 1 1 [111,] 1 1 [112,] 1 0 [113,] 1 0 [114,] 1 0 [115,] 1 1 [116,] 1 1 [117,] 1 0 [118,] 1 0 [119,] 1 1 [120,] 1 1 [121,] 1 1 [122,] 1 0 [123,] 1 0 [124,] 1 1 [125,] 1 0 [126,] 1 1 [127,] 1 1 [128,] 1 0 [129,] 1 1 [130,] 1 0 [131,] 1 0 [132,] 1 0 [133,] 1 1 [134,] 1 1 [135,] 1 0 [136,] 1 1 [137,] 1 1 [138,] 1 0 [139,] 1 1 [140,] 1 0 [141,] 1 1 [142,] 1 0 [143,] 1 1 [144,] 1 1 [145,] 1 0 [146,] 1 1 [147,] 1 0 [148,] 1 1 [149,] 1 1 [150,] 1 0 [151,] 1 1 [152,] 1 1 [153,] 1 1 [154,] 1 0 [155,] 1 1 [156,] 1 0 [157,] 1 1 [158,] 1 1 [159,] 1 1 [160,] 1 0 [161,] 1 0 [162,] 1 0 [163,] 1 1 [164,] 1 0 [165,] 1 1 [166,] 1 1 [167,] 1 1 [168,] 1 0 [169,] 1 0 [170,] 1 0 [171,] 1 1 [172,] 1 1 [173,] 1 1 [174,] 1 1 [175,] 1 1 [176,] 1 1 [177,] 1 0 [178,] 1 1 [179,] 1 0 [180,] 1 1 [181,] 1 0 [182,] 1 0 [183,] 1 0 [184,] 1 1 [185,] 1 1 [186,] 1 1 [187,] 1 0 [188,] 1 0 [189,] 1 0 [190,] 1 1 [191,] 1 0 [192,] 1 1 [193,] 1 0 [194,] 1 0 [195,] 1 1 [196,] 1 0 [197,] 1 1 [198,] 1 1 [199,] 1 0 [200,] 1 0 [201,] 1 1 [202,] 1 1 [203,] 1 1 [204,] 1 1 [205,] 1 0 [206,] 1 1 [207,] 1 1 [208,] 1 0 [209,] 1 0 [210,] 1 1 [211,] 1 1 [212,] 1 1 [213,] 1 1 [214,] 1 0 [215,] 1 0 [216,] 1 1 [217,] 1 0 [218,] 1 1 [219,] 1 0 [220,] 1 1 [221,] 1 0 [222,] 1 1 [223,] 1 1 [224,] 1 1 [225,] 1 1 [226,] 1 1 [227,] 1 1 [228,] 1 0 [229,] 1 1 [230,] 1 0 [231,] 1 0 [232,] 1 1 [233,] 1 1 [234,] 1 0 [235,] 1 1 [236,] 1 1 [237,] 1 1 [238,] 1 1 [239,] 1 0 [240,] 1 1 [241,] 1 1 [242,] 1 1 [243,] 1 0 [244,] 1 1 [245,] 1 1 [246,] 1 0 [247,] 1 1 [248,] 1 0 [249,] 1 1 [250,] 1 1 [251,] 1 0 [252,] 1 0 [253,] 1 1 [254,] 1 0 [255,] 1 1 [256,] 1 0 [257,] 1 1 [258,] 1 0 [259,] 1 0 [260,] 1 1 [261,] 1 0 [262,] 1 1 [263,] 1 1 [264,] 1 0 [265,] 1 1 [266,] 1 1 [267,] 1 1 [268,] 1 1 [269,] 1 1 [270,] 1 1 [271,] 1 0 [272,] 1 1 [273,] 1 0 [274,] 1 1 [275,] 1 1 [276,] 1 0 [277,] 1 1 [278,] 1 0 [279,] 1 1 [280,] 1 1 [281,] 1 1 [282,] 1 0 [283,] 1 0 [284,] 1 1 [285,] 1 0 [286,] 1 1 [287,] 1 0 [288,] 1 1 [289,] 1 0 [290,] 1 0 [291,] 1 1 [292,] 1 0 [293,] 1 1 [294,] 1 0 [295,] 1 1 [296,] 1 1 [297,] 1 0 [298,] 1 0 [299,] 1 1 [300,] 1 1 [301,] 1 1 [302,] 1 1 [303,] 1 0 [304,] 1 1 [305,] 1 0 [306,] 1 1 [307,] 1 1 [308,] 1 1 [309,] 1 0 [310,] 1 0 [311,] 1 1 [312,] 1 0 [313,] 1 1 [314,] 1 1 [315,] 1 0 [316,] 1 0 [317,] 1 1 [318,] 1 1 [319,] 1 1 [320,] 1 0 [321,] 1 1 [322,] 1 1 [323,] 1 0 [324,] 2 1 [325,] 2 0 [326,] 2 1 [327,] 2 1 [328,] 2 1 [329,] 2 1 [330,] 2 0 [331,] 2 1 [332,] 2 1 [333,] 2 1 [334,] 2 0 [335,] 2 1 [336,] 2 1 [337,] 2 1 [338,] 2 0 [339,] 2 1 [340,] 2 1 [341,] 2 0 [342,] 2 0 [343,] 2 0 [344,] 2 1 [345,] 2 0 [346,] 2 1 [347,] 2 1 [348,] 2 1 [349,] 2 1 [350,] 2 0 [351,] 2 0 [352,] 2 1 [353,] 2 0 [354,] 2 0 [355,] 2 1 [356,] 2 0 [357,] 2 1 [358,] 2 1 [359,] 2 0 [360,] 2 1 [361,] 2 1 [362,] 2 0 [363,] 2 0 [364,] 2 1 [365,] 2 1 [366,] 2 0 [367,] 2 1 [368,] 2 1 [369,] 2 1 [370,] 2 0 [371,] 2 0 [372,] 2 0 [373,] 2 1 [374,] 2 0 [375,] 2 1 [376,] 2 1 [377,] 2 1 [378,] 2 0 [379,] 2 1 [380,] 2 0 [381,] 2 0 [382,] 2 0 [383,] 2 0 [384,] 2 1 [385,] 2 1 [386,] 2 1 [387,] 2 1 [388,] 2 0 [389,] 2 0 [390,] 2 1 [391,] 2 1 [392,] 2 1 [393,] 2 0 [394,] 2 1 [395,] 2 1 [396,] 2 0 [397,] 2 0 [398,] 2 1 [399,] 2 1 [400,] 2 1 [401,] 2 0 [402,] 2 0 [403,] 2 0 [404,] 2 1 [405,] 2 1 [406,] 2 1 [407,] 2 1 [408,] 2 0 [409,] 2 1 [410,] 2 1 [411,] 2 1 [412,] 2 0 [413,] 2 1 [414,] 2 1 [415,] 2 1 [416,] 2 0 [417,] 2 1 [418,] 2 1 [419,] 2 1 [420,] 2 1 [421,] 2 1 [422,] 2 1 [423,] 2 1 [424,] 2 1 [425,] 2 1 [426,] 2 1 [427,] 2 1 [428,] 2 1 [429,] 2 0 [430,] 2 1 [431,] 2 0 [432,] 2 1 [433,] 2 1 [434,] 2 1 [435,] 2 0 [436,] 2 1 [437,] 2 0 [438,] 2 0 [439,] 2 0 [440,] 2 1 [441,] 2 0 [442,] 2 0 [443,] 2 1 [444,] 2 1 [445,] 2 1 [446,] 2 0 [447,] 2 0 [448,] 2 1 [449,] 2 1 [450,] 2 0 [451,] 2 1 [452,] 2 1 [453,] 2 0 [454,] 2 1 [455,] 2 1 [456,] 2 1 [457,] 2 0 [458,] 2 1 [459,] 2 0 [460,] 2 1 [461,] 2 0 [462,] 2 1 [463,] 2 1 [464,] 2 1 [465,] 2 1 [466,] 2 0 [467,] 2 1 [468,] 2 0 [469,] 2 0 [470,] 2 0 [471,] 2 1 [472,] 2 0 [473,] 2 1 [474,] 2 1 [475,] 2 1 [476,] 2 0 [477,] 2 1 [478,] 2 1 [479,] 2 0 [480,] 2 0 [481,] 2 1 [482,] 2 0 [483,] 2 0 [484,] 2 0 [485,] 2 0 [486,] 2 1 [487,] 2 1 [488,] 2 1 [489,] 2 1 [490,] 2 0 [491,] 2 0 [492,] 2 1 [493,] 2 1 [494,] 2 1 [495,] 2 0 [496,] 2 1 [497,] 2 1 [498,] 2 1 [499,] 2 1 [500,] 2 1 [501,] 2 1 [502,] 2 0 [503,] 2 0 [504,] 2 1 [505,] 2 1 [506,] 2 1 [507,] 2 1 [508,] 2 1 [509,] 2 1 [510,] 2 1 [511,] 2 1 [512,] 2 1 [513,] 2 1 [514,] 2 0 [515,] 2 1 [516,] 2 1 [517,] 2 1 [518,] 2 1 [519,] 2 1 [520,] 2 1 [521,] 2 1 [522,] 2 0 [523,] 2 1 [524,] 2 1 [525,] 2 1 [526,] 2 1 [527,] 2 1 [528,] 2 1 [529,] 2 1 [530,] 2 0 [531,] 2 1 [532,] 2 1 [533,] 2 1 [534,] 2 0 [535,] 2 0 [536,] 2 1 [537,] 2 0 [538,] 2 1 [539,] 2 1 [540,] 2 1 [541,] 2 0 [542,] 2 0 [543,] 2 0 [544,] 2 1 [545,] 2 1 [546,] 2 0 [547,] 2 0 [548,] 2 1 [549,] 2 1 [550,] 2 1 [551,] 2 0 [552,] 2 0 [553,] 2 1 [554,] 2 0 [555,] 2 1 [556,] 2 1 [557,] 2 1 [558,] 2 0 [559,] 2 0 [560,] 2 0 [561,] 2 0 [562,] 2 1 [563,] 2 0 [564,] 2 1 [565,] 2 0 [566,] 2 1 [567,] 2 1 [568,] 2 1 [569,] 2 1 [570,] 2 1 [571,] 2 0 [572,] 2 1 [573,] 2 0 [574,] 2 0 [575,] 2 1 [576,] 2 0 [577,] 2 1 [578,] 2 0 [579,] 2 1 [580,] 2 1 [581,] 2 0 [582,] 2 1 [583,] 2 0 [584,] 2 0 [585,] 2 0 [586,] 2 1 [587,] 2 0 [588,] 2 1 [589,] 2 0 [590,] 2 0 [591,] 2 0 [592,] 2 0 [593,] 2 1 [594,] 2 0 [595,] 2 1 [596,] 2 1 [597,] 2 1 [598,] 2 1 [599,] 2 0 [600,] 2 0 [601,] 3 1 [602,] 3 1 [603,] 3 1 [604,] 3 0 [605,] 3 0 [606,] 3 1 [607,] 3 1 [608,] 3 0 [609,] 3 1 [610,] 3 1 [611,] 3 0 [612,] 3 1 [613,] 3 0 [614,] 3 1 [615,] 3 1 [616,] 3 1 [617,] 3 1 [618,] 3 1 [619,] 3 1 [620,] 3 1 [621,] 3 1 [622,] 3 0 [623,] 3 1 [624,] 3 0 [625,] 3 0 [626,] 3 0 [627,] 3 0 [628,] 3 0 [629,] 3 0 [630,] 3 1 [631,] 3 1 [632,] 3 1 [633,] 3 0 [634,] 3 1 [635,] 3 1 [636,] 3 1 [637,] 3 0 [638,] 3 1 [639,] 3 1 [640,] 3 1 [641,] 3 1 [642,] 3 1 [643,] 3 1 [644,] 3 0 [645,] 3 1 [646,] 3 1 [647,] 3 0 [648,] 3 0 [649,] 3 1 [650,] 3 1 [651,] 3 0 [652,] 3 1 [653,] 3 1 [654,] 3 0 [655,] 3 1 [656,] 3 1 [657,] 3 0 [658,] 3 0 [659,] 3 0 [660,] 3 0 [661,] 3 0 [662,] 3 0 [663,] 3 1 [664,] 3 1 [665,] 3 1 [666,] 3 0 [667,] 3 0 [668,] 3 0 [669,] 3 1 [670,] 3 1 [671,] 3 1 [672,] 3 1 [673,] 3 1 [674,] 3 1 [675,] 3 1 [676,] 3 1 [677,] 3 1 [678,] 3 1 [679,] 3 1 [680,] 3 0 [681,] 3 1 [682,] 3 0 [683,] 3 0 [684,] 3 1 [685,] 3 0 [686,] 3 1 [687,] 3 0 [688,] 3 0 [689,] 3 1 [690,] 3 1 [691,] 3 1 [692,] 3 1 [693,] 3 0 [694,] 3 1 [695,] 3 1 [696,] 3 0 [697,] 3 0 [698,] 3 0 [699,] 3 1 [700,] 3 1 [701,] 3 1 [702,] 3 1 [703,] 3 0 [704,] 3 1 [705,] 3 1 [706,] 3 1 [707,] 3 0 [708,] 3 1 [709,] 3 1 [710,] 3 0 [711,] 3 0 [712,] 3 1 [713,] 3 1 [714,] 3 1 [715,] 3 1 [716,] 3 1 [717,] 3 1 [718,] 3 1 [719,] 3 1 [720,] 3 1 [721,] 3 1 [722,] 3 1 [723,] 3 1 [724,] 3 1 [725,] 3 1 [726,] 3 0 [727,] 3 0 [728,] 3 1 [729,] 3 1 [730,] 3 1 [731,] 3 1 [732,] 3 1 [733,] 3 1 [734,] 3 1 [735,] 3 1 [736,] 3 0 [737,] 3 1 [738,] 3 1 [739,] 3 0 [740,] 3 1 [741,] 3 1 [742,] 3 1 [743,] 3 1 [744,] 3 0 [745,] 3 1 [746,] 3 0 [747,] 3 1 [748,] 3 1 [749,] 3 1 [750,] 3 0 [751,] 3 1 [752,] 3 1 [753,] 3 1 [754,] 3 1 [755,] 3 1 [756,] 3 1 [757,] 3 1 [758,] 3 0 [759,] 3 1 [760,] 3 0 [761,] 3 1 [762,] 3 1 [763,] 3 1 [764,] 3 0 [765,] 3 1 [766,] 3 0 [767,] 3 1 [768,] 3 1 [769,] 3 1 [770,] 3 1 [771,] 3 1 [772,] 3 0 [773,] 3 1 [774,] 3 1 [775,] 3 1 [776,] 3 1 [777,] 3 1 [778,] 3 1 [779,] 3 0 [780,] 3 0 [781,] 3 0 [782,] 3 1 [783,] 3 1 [784,] 3 1 [785,] 3 1 [786,] 3 0 [787,] 3 1 [788,] 3 1 [789,] 3 1 [790,] 3 1 [791,] 3 1 [792,] 3 1 [793,] 3 1 [794,] 3 1 [795,] 3 0 [796,] 3 1 [797,] 3 1 [798,] 3 1 [799,] 3 1 [800,] 3 1 [801,] 3 0 [802,] 3 1 [803,] 3 1 [804,] 3 1 [805,] 3 1 [806,] 3 1 [807,] 3 0 [808,] 3 0 [809,] 3 1 [810,] 3 1 [811,] 3 1 [812,] 3 0 [813,] 3 1 [814,] 3 1 [815,] 3 1 [816,] 3 1 [817,] 3 1 [818,] 3 1 [819,] 3 0 [820,] 3 0 [821,] 3 1 [822,] 3 1 [823,] 3 1 [824,] 3 0 [825,] 3 1 [826,] 3 1 [827,] 3 1 [828,] 3 1 [829,] 3 0 [830,] 3 0 [831,] 3 1 [832,] 3 1 [833,] 3 0 [834,] 3 1 [835,] 3 1 [836,] 3 1 [837,] 3 1 [838,] 3 1 [839,] 3 1 [840,] 3 1 [841,] 3 0 [842,] 3 0 [843,] 3 1 [844,] 3 1 [845,] 3 1 [846,] 3 0 [847,] 3 1 [848,] 3 1 [849,] 3 1 [850,] 3 1 [851,] 3 1 [852,] 3 0 [853,] 3 0 [854,] 3 1 [855,] 3 1 [856,] 3 1 [857,] 3 0 [858,] 3 1 [859,] 3 1 [860,] 3 0 [861,] 3 0 [862,] 3 0 [863,] 3 0 [864,] 3 1 [865,] 3 0 [866,] 3 0 [867,] 3 0 [868,] 3 0 [869,] 3 1 [870,] 3 1 [871,] 3 0 [872,] 3 1 [873,] 3 0 [874,] 3 1 [875,] 3 1 [876,] 3 1 [877,] 3 1 [878,] 3 0 [879,] 3 0 [880,] 3 1 [881,] 3 1 [882,] 3 1 [883,] 3 1 [884,] 3 1 [885,] 3 1 [886,] 3 1 [887,] 3 0 [888,] 3 1 [889,] 3 1 [890,] 3 1 [891,] 3 1 [892,] 3 1 [893,] 3 1 [894,] 3 1 [895,] 3 1 [896,] 3 0 [897,] 3 1 [898,] 3 1 [899,] 3 1 [900,] 3 0 [901,] 3 1 [902,] 3 0 [903,] 3 1 [904,] 3 0 [905,] 3 1 [906,] 3 1 [907,] 3 1 [908,] 3 0 [909,] 3 0 [910,] 3 1 [911,] 3 1 [912,] 3 1 [913,] 3 1 [914,] 3 1 [915,] 3 1 [916,] 3 1 [917,] 3 0 [918,] 3 1 [919,] 3 1 [920,] 3 1 [921,] 3 1 [922,] 3 1 [923,] 3 0 [924,] 3 0 [925,] 3 1 [926,] 3 1 [927,] 3 1 [928,] 3 1 [929,] 3 0 [930,] 3 1 [931,] 3 1 [932,] 3 1 [933,] 3 0 [934,] 3 1 [935,] 3 0 [936,] 3 1 [937,] 3 0 [938,] 3 0 [939,] 3 1 [940,] 3 0 [941,] 3 1 [942,] 3 1 [943,] 3 1 [944,] 3 0 [945,] 3 1 [946,] 3 1 [947,] 3 1 [948,] 3 0 [949,] 3 1 [950,] 3 1 [951,] 3 1 [952,] 3 1 [953,] 3 1 [954,] 3 1 [955,] 3 1 [956,] 3 0 [957,] 3 0 [958,] 3 0 [959,] 3 0 [960,] 3 1 [961,] 3 1 [962,] 3 0 [963,] 3 1 [964,] 3 1 [965,] 3 1 [966,] 3 1 [967,] 3 0 [968,] 3 0 [969,] 3 1 [970,] 3 0 [971,] 3 1 [972,] 3 1 [973,] 3 1 [974,] 3 1 [975,] 3 1 [976,] 3 0 [977,] 3 1 [978,] 3 1 [979,] 3 1 [980,] 3 1 [981,] 3 0 [982,] 3 1 [983,] 3 1 [984,] 3 1 [985,] 3 0 [986,] 3 1 [987,] 3 1 [988,] 3 0 [989,] 3 1 [990,] 3 1 [991,] 3 1 [992,] 3 1 [993,] 3 0 [994,] 3 0 [995,] 3 1 [996,] 3 1 [997,] 3 1 [998,] 3 0 [999,] 3 1 [1000,] 3 0 [1001,] 3 1 [1002,] 3 0 [1003,] 3 0 [1004,] 3 1 [1005,] 3 0 [1006,] 3 1 [1007,] 3 0 [1008,] 3 0 [1009,] 3 0 [1010,] 3 1 [1011,] 3 1 [1012,] 3 0 [1013,] 3 0 [1014,] 3 0 [1015,] 3 0 [1016,] 3 1 [1017,] 3 1 [1018,] 3 1 [1019,] 3 1 [1020,] 3 1 [1021,] 3 1 [1022,] 3 1 [1023,] 3 1 [1024,] 3 0 [1025,] 3 1 [1026,] 3 1 [1027,] 3 0 [1028,] 3 1 [1029,] 3 0 [1030,] 3 1 [1031,] 3 1 [1032,] 3 1 [1033,] 3 1 [1034,] 3 1 [1035,] 3 1 [1036,] 3 1 [1037,] 3 0 [1038,] 3 0 [1039,] 3 1 [1040,] 3 0 [1041,] 3 0 [1042,] 3 1 [1043,] 3 0 [1044,] 3 0 [1045,] 3 0 [1046,] 3 1 [1047,] 3 1 [1048,] 3 0 [1049,] 3 0 [1050,] 3 1 [1051,] 3 0 [1052,] 3 1 [1053,] 3 1 [1054,] 3 1 [1055,] 3 0 [1056,] 3 1 [1057,] 3 1 [1058,] 3 0 [1059,] 3 0 [1060,] 3 1 [1061,] 3 0 [1062,] 3 0 [1063,] 3 1 [1064,] 3 1 [1065,] 3 1 [1066,] 3 1 [1067,] 3 1 [1068,] 3 0 [1069,] 3 1 [1070,] 3 1 [1071,] 3 1 [1072,] 3 0 [1073,] 3 1 [1074,] 3 1 [1075,] 3 1 [1076,] 3 1 [1077,] 3 0 [1078,] 3 0 [1079,] 3 0 [1080,] 3 0 [1081,] 3 1 [1082,] 3 0 [1083,] 3 1 [1084,] 3 1 [1085,] 3 1 [1086,] 3 1 [1087,] 3 0 [1088,] 3 1 [1089,] 3 1 [1090,] 3 1 [1091,] 3 0 [1092,] 3 0 [1093,] 3 1 [1094,] 3 1 [1095,] 3 0 [1096,] 3 0 [1097,] 3 1 [1098,] 3 1 [1099,] 3 0 [1100,] 3 0 [1101,] 3 0 [1102,] 3 1 [1103,] 3 1 [1104,] 3 1 [1105,] 3 1 [1106,] 3 1 [1107,] 3 0 [1108,] 3 1 [1109,] 3 1 [1110,] 3 1 [1111,] 3 1 [1112,] 3 1 [1113,] 3 0 [1114,] 3 0 [1115,] 3 1 [1116,] 3 1 [1117,] 3 1 [1118,] 3 1 [1119,] 3 1 [1120,] 3 1 [1121,] 3 1 [1122,] 3 1 [1123,] 3 0 [1124,] 3 0 [1125,] 3 0 [1126,] 3 1 [1127,] 3 0 [1128,] 3 1 [1129,] 3 1 [1130,] 3 1 [1131,] 3 0 [1132,] 3 1 [1133,] 3 1 [1134,] 3 1 [1135,] 3 1 [1136,] 3 1 [1137,] 3 0 [1138,] 3 1 [1139,] 3 1 [1140,] 3 1 [1141,] 3 1 [1142,] 3 1 [1143,] 3 1 [1144,] 3 1 [1145,] 3 1 [1146,] 3 1 [1147,] 3 0 [1148,] 3 0 [1149,] 3 1 [1150,] 3 0 [1151,] 3 1 [1152,] 3 0 [1153,] 3 1 [1154,] 3 0 [1155,] 3 1 [1156,] 3 1 [1157,] 3 0 [1158,] 3 1 [1159,] 3 0 [1160,] 3 0 [1161,] 3 1 [1162,] 3 1 [1163,] 3 1 [1164,] 3 1 [1165,] 3 1 [1166,] 3 1 [1167,] 3 1 [1168,] 3 1 [1169,] 3 1 [1170,] 3 1 [1171,] 3 1 [1172,] 3 1 [1173,] 3 0 [1174,] 3 0 [1175,] 3 0 [1176,] 3 0 [1177,] 3 1 [1178,] 3 1 [1179,] 3 1 [1180,] 3 1 [1181,] 3 0 [1182,] 3 1 [1183,] 3 0 [1184,] 3 1 [1185,] 3 1 [1186,] 3 1 [1187,] 3 1 [1188,] 3 0 [1189,] 3 0 [1190,] 3 0 [1191,] 3 1 [1192,] 3 1 [1193,] 3 1 [1194,] 3 1 [1195,] 3 1 [1196,] 3 1 [1197,] 3 1 [1198,] 3 1 [1199,] 3 0 [1200,] 3 1 [1201,] 3 1 [1202,] 3 1 [1203,] 3 1 [1204,] 3 1 [1205,] 3 1 [1206,] 3 0 [1207,] 3 1 [1208,] 3 1 [1209,] 3 0 [1210,] 3 0 [1211,] 3 1 [1212,] 3 0 [1213,] 3 1 [1214,] 3 1 [1215,] 3 1 [1216,] 3 1 [1217,] 3 0 [1218,] 3 1 [1219,] 3 1 [1220,] 3 1 [1221,] 3 1 [1222,] 3 1 [1223,] 3 1 [1224,] 3 0 [1225,] 3 1 [1226,] 3 1 [1227,] 3 1 [1228,] 3 0 [1229,] 3 1 [1230,] 3 1 [1231,] 3 0 [1232,] 3 0 [1233,] 3 1 [1234,] 3 1 [1235,] 3 1 [1236,] 3 1 [1237,] 3 1 [1238,] 3 1 [1239,] 3 1 [1240,] 3 1 [1241,] 3 1 [1242,] 3 1 [1243,] 3 1 [1244,] 3 1 [1245,] 3 0 [1246,] 3 1 [1247,] 3 1 [1248,] 3 0 [1249,] 3 1 [1250,] 3 1 [1251,] 3 1 [1252,] 3 1 [1253,] 3 1 [1254,] 3 1 [1255,] 3 1 [1256,] 3 1 [1257,] 3 1 [1258,] 3 0 [1259,] 3 0 [1260,] 3 1 [1261,] 3 0 [1262,] 3 0 [1263,] 3 1 [1264,] 3 1 [1265,] 3 1 [1266,] 3 0 [1267,] 3 1 [1268,] 3 0 [1269,] 3 1 [1270,] 3 1 [1271,] 3 1 [1272,] 3 1 [1273,] 3 1 [1274,] 3 0 [1275,] 3 1 [1276,] 3 1 [1277,] 3 0 [1278,] 3 1 [1279,] 3 1 [1280,] 3 0 [1281,] 3 1 [1282,] 3 1 [1283,] 3 1 [1284,] 3 1 [1285,] 3 1 [1286,] 3 1 [1287,] 3 0 [1288,] 3 1 [1289,] 3 1 [1290,] 3 1 [1291,] 3 0 [1292,] 3 1 [1293,] 3 1 [1294,] 3 1 [1295,] 3 1 [1296,] 3 1 [1297,] 3 1 [1298,] 3 1 [1299,] 3 1 [1300,] 3 1 [1301,] 3 0 [1302,] 3 1 [1303,] 3 1 [1304,] 3 1 [1305,] 3 0 [1306,] 3 0 [1307,] 3 1 [1308,] 3 1 [1309,] 3 1 > (table1 <- table(z[,cat1],z[,cat2])) 0 1 1 144 179 2 106 171 3 216 493 > (V1<-dimnames(y)[[1]][cat1]) [1] "klasse" > (V2<-dimnames(y)[[1]][cat2]) [1] "geslacht\r" > postscript(file="/var/www/rcomp/tmp/13ztm1292522787.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > assoc(ftable(z[,cat1],z[,cat2],row.vars=1,dnn=c(V1,V2)),shade=T) Warning message: In grid.Call.graphics("L_text", as.graphicsAnnot(x$label), x$x, : font width unknown for character 0xd > dev.off() null device 1 > > #Note: the /var/www/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab > load(file="/var/www/rcomp/createtable") > > a<-table.start() > a<-table.row.start(a) > a<-table.element(a,'Tabulation of Results',ncol(table1)+1,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,paste(V1,' x ', V2),ncol(table1)+1,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a, ' ', 1,TRUE) > for(nc in 1:ncol(table1)){ + a<-table.element(a, colnames(table1)[nc], 1, TRUE) + } > a<-table.row.end(a) > for(nr in 1:nrow(table1) ){ + a<-table.element(a, rownames(table1)[nr], 1, TRUE) + for(nc in 1:ncol(table1) ){ + a<-table.element(a, table1[nr, nc], 1, FALSE) + } + a<-table.row.end(a) + } > a<-table.end(a) > table.save(a,file="/var/www/rcomp/tmp/270ss1292522787.tab") > (cst<-chisq.test(table1, simulate.p.value=simulate.p.value) ) Pearson's Chi-squared test data: table1 X-squared = 20.3788, df = 2, p-value = 3.757e-05 > if (par3 == 'McNemar Chi-Squared') { + (cst <- mcnemar.test(table1)) + } > if (par3=='Fisher Exact Test') { + (cst <- fisher.test(table1)) + } > if ((par3 != 'McNemar Chi-Squared') & (par3 != 'Fisher Exact Test')) { + a<-table.start() + a<-table.row.start(a) + a<-table.element(a,'Tabulation of Expected Results',ncol(table1)+1,TRUE) + a<-table.row.end(a) + a<-table.row.start(a) + a<-table.element(a,paste(V1,' x ', V2),ncol(table1)+1,TRUE) + a<-table.row.end(a) + a<-table.row.start(a) + a<-table.element(a, ' ', 1,TRUE) + for(nc in 1:ncol(table1)){ + a<-table.element(a, colnames(table1)[nc], 1, TRUE) + } + a<-table.row.end(a) + for(nr in 1:nrow(table1) ){ + a<-table.element(a, rownames(table1)[nr], 1, TRUE) + for(nc in 1:ncol(table1) ){ + a<-table.element(a, round(cst$expected[nr, nc], digits=2), 1, FALSE) + } + a<-table.row.end(a) + } + a<-table.end(a) + table.save(a,file="/var/www/rcomp/tmp/3s0qg1292522787.tab") + } > a<-table.start() > a<-table.row.start(a) > a<-table.element(a,'Statistical Results',2,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a, cst$method, 2,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > if (par3=='Pearson Chi-Squared') a<-table.element(a, 'Pearson Chi Square Statistic', 1, TRUE) > if (par3=='Exact Pearson Chi-Squared by Simulation') a<-table.element(a, 'Exact Pearson Chi Square Statistic', 1, TRUE) > if (par3=='McNemar Chi-Squared') a<-table.element(a, 'McNemar Chi Square Statistic', 1, TRUE) > if (par3=='Fisher Exact Test') a<-table.element(a, 'Odds Ratio', 1, TRUE) > if (par3=='Fisher Exact Test') { + if ((ncol(table1) == 2) & (nrow(table1) == 2)) { + a<-table.element(a, round(cst$estimate, digits=2), 1,FALSE) + } else { + a<-table.element(a, '--', 1,FALSE) + } + } else { + a<-table.element(a, round(cst$statistic, digits=2), 1,FALSE) + } > a<-table.row.end(a) > if(!simulate.p.value){ + if(par3!='Fisher Exact Test') { + a<-table.row.start(a) + a<-table.element(a, 'Degrees of Freedom', 1, TRUE) + a<-table.element(a, cst$parameter, 1,FALSE) + a<-table.row.end(a) + } + } > a<-table.row.start(a) > a<-table.element(a, 'P value', 1, TRUE) > a<-table.element(a, round(cst$p.value, digits=2), 1,FALSE) > a<-table.row.end(a) > a<-table.end(a) > table.save(a,file="/var/www/rcomp/tmp/46a671292522787.tab") > > try(system("convert tmp/13ztm1292522787.ps tmp/13ztm1292522787.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 2.000 0.360 2.333