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