R version 2.15.2 (2012-10-26) -- "Trick or Treat" Copyright (C) 2012 The R Foundation for Statistical Computing ISBN 3-900051-07-0 Platform: i686-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(2 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,1 + ,1 + ,1 + ,2 + ,1 + ,2 + ,2 + ,2 + ,1 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,2 + ,2 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,1 + ,2 + ,2 + ,2 + ,1 + ,1 + ,2 + ,2 + ,1) + ,dim=c(2 + ,1822) + ,dimnames=list(c('Geslacht' + ,'Rookgedrag') + ,1:1822)) > y <- array(NA,dim=c(2,1822),dimnames=list(c('Geslacht','Rookgedrag'),1:1822)) > 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' > 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,] 2 1 [2,] 1 2 [3,] 1 2 [4,] 1 2 [5,] 1 2 [6,] 2 1 [7,] 2 1 [8,] 2 1 [9,] 2 1 [10,] 1 1 [11,] 2 1 [12,] 2 1 [13,] 1 1 [14,] 2 1 [15,] 1 1 [16,] 1 2 [17,] 2 1 [18,] 1 1 [19,] 1 1 [20,] 1 1 [21,] 1 1 [22,] 1 1 [23,] 1 1 [24,] 2 2 [25,] 2 2 [26,] 2 1 [27,] 1 1 [28,] 2 1 [29,] 1 1 [30,] 1 1 [31,] 1 1 [32,] 1 1 [33,] 2 1 [34,] 1 1 [35,] 2 1 [36,] 1 1 [37,] 1 1 [38,] 1 1 [39,] 1 1 [40,] 1 2 [41,] 2 1 [42,] 1 1 [43,] 2 2 [44,] 2 1 [45,] 1 1 [46,] 1 1 [47,] 2 1 [48,] 1 2 [49,] 2 1 [50,] 1 1 [51,] 2 1 [52,] 2 1 [53,] 2 2 [54,] 2 1 [55,] 1 1 [56,] 1 1 [57,] 1 1 [58,] 1 1 [59,] 1 1 [60,] 2 2 [61,] 2 2 [62,] 2 1 [63,] 1 1 [64,] 1 1 [65,] 2 1 [66,] 1 2 [67,] 2 2 [68,] 2 1 [69,] 2 2 [70,] 2 1 [71,] 2 1 [72,] 1 1 [73,] 2 1 [74,] 1 1 [75,] 1 2 [76,] 2 2 [77,] 2 1 [78,] 1 1 [79,] 1 1 [80,] 1 1 [81,] 2 1 [82,] 1 1 [83,] 1 2 [84,] 2 1 [85,] 1 1 [86,] 1 1 [87,] 1 2 [88,] 2 1 [89,] 2 1 [90,] 1 1 [91,] 2 1 [92,] 2 2 [93,] 2 1 [94,] 1 1 [95,] 1 1 [96,] 1 1 [97,] 2 2 [98,] 2 1 [99,] 1 2 [100,] 2 1 [101,] 2 1 [102,] 1 1 [103,] 1 1 [104,] 2 1 [105,] 1 1 [106,] 1 1 [107,] 2 2 [108,] 2 2 [109,] 2 1 [110,] 1 2 [111,] 2 1 [112,] 1 1 [113,] 2 1 [114,] 1 2 [115,] 2 1 [116,] 2 1 [117,] 1 1 [118,] 1 1 [119,] 2 1 [120,] 1 2 [121,] 2 1 [122,] 2 1 [123,] 1 1 [124,] 2 1 [125,] 1 1 [126,] 1 1 [127,] 1 1 [128,] 1 2 [129,] 2 1 [130,] 2 1 [131,] 1 2 [132,] 2 1 [133,] 2 1 [134,] 2 1 [135,] 1 1 [136,] 1 2 [137,] 2 1 [138,] 1 1 [139,] 1 1 [140,] 1 1 [141,] 1 1 [142,] 1 1 [143,] 1 1 [144,] 1 1 [145,] 1 1 [146,] 2 1 [147,] 1 1 [148,] 1 2 [149,] 2 1 [150,] 1 1 [151,] 2 1 [152,] 2 1 [153,] 2 1 [154,] 1 1 [155,] 1 2 [156,] 2 1 [157,] 2 1 [158,] 1 1 [159,] 1 1 [160,] 2 2 [161,] 2 2 [162,] 2 1 [163,] 1 1 [164,] 1 1 [165,] 2 2 [166,] 2 2 [167,] 2 1 [168,] 1 2 [169,] 2 1 [170,] 1 1 [171,] 1 1 [172,] 1 1 [173,] 1 2 [174,] 2 1 [175,] 1 1 [176,] 2 1 [177,] 2 1 [178,] 1 1 [179,] 1 2 [180,] 2 1 [181,] 1 1 [182,] 1 1 [183,] 1 1 [184,] 2 2 [185,] 2 1 [186,] 1 1 [187,] 1 1 [188,] 2 1 [189,] 1 2 [190,] 2 1 [191,] 2 1 [192,] 1 1 [193,] 1 2 [194,] 2 2 [195,] 2 2 [196,] 2 1 [197,] 1 1 [198,] 1 1 [199,] 1 1 [200,] 1 2 [201,] 2 1 [202,] 2 1 [203,] 1 1 [204,] 1 1 [205,] 1 1 [206,] 2 2 [207,] 2 2 [208,] 2 1 [209,] 2 1 [210,] 2 1 [211,] 1 1 [212,] 2 1 [213,] 2 1 [214,] 1 1 [215,] 1 2 [216,] 2 1 [217,] 2 1 [218,] 1 2 [219,] 2 1 [220,] 2 1 [221,] 2 1 [222,] 2 1 [223,] 2 1 [224,] 1 2 [225,] 2 1 [226,] 1 1 [227,] 2 1 [228,] 2 1 [229,] 1 1 [230,] 1 1 [231,] 1 1 [232,] 1 1 [233,] 1 1 [234,] 1 1 [235,] 1 1 [236,] 1 1 [237,] 2 1 [238,] 2 1 [239,] 1 1 [240,] 1 1 [241,] 1 2 [242,] 2 2 [243,] 2 2 [244,] 2 1 [245,] 1 2 [246,] 2 1 [247,] 1 2 [248,] 2 1 [249,] 1 1 [250,] 2 2 [251,] 2 1 [252,] 2 1 [253,] 2 1 [254,] 1 1 [255,] 1 2 [256,] 2 2 [257,] 2 1 [258,] 1 1 [259,] 1 1 [260,] 1 2 [261,] 2 1 [262,] 1 1 [263,] 1 1 [264,] 2 1 [265,] 1 1 [266,] 1 2 [267,] 2 1 [268,] 1 1 [269,] 2 1 [270,] 1 1 [271,] 1 1 [272,] 2 1 [273,] 1 1 [274,] 2 1 [275,] 1 1 [276,] 1 2 [277,] 2 1 [278,] 1 1 [279,] 1 1 [280,] 1 2 [281,] 2 2 [282,] 2 1 [283,] 1 1 [284,] 1 1 [285,] 1 1 [286,] 2 1 [287,] 1 1 [288,] 1 1 [289,] 2 1 [290,] 1 1 [291,] 1 1 [292,] 1 1 [293,] 1 1 [294,] 1 1 [295,] 2 1 [296,] 1 1 [297,] 1 2 [298,] 2 1 [299,] 1 1 [300,] 1 1 [301,] 1 1 [302,] 1 1 [303,] 1 1 [304,] 2 2 [305,] 2 1 [306,] 1 1 [307,] 1 1 [308,] 1 1 [309,] 2 1 [310,] 2 1 [311,] 2 2 [312,] 2 1 [313,] 2 1 [314,] 1 1 [315,] 1 2 [316,] 2 1 [317,] 2 1 [318,] 1 1 [319,] 2 1 [320,] 1 1 [321,] 1 1 [322,] 1 1 [323,] 1 1 [324,] 2 1 [325,] 1 1 [326,] 1 1 [327,] 1 1 [328,] 1 2 [329,] 2 1 [330,] 2 1 [331,] 1 1 [332,] 2 1 [333,] 1 1 [334,] 1 2 [335,] 2 1 [336,] 1 2 [337,] 2 1 [338,] 2 2 [339,] 2 1 [340,] 1 2 [341,] 2 1 [342,] 2 1 [343,] 1 1 [344,] 1 1 [345,] 1 1 [346,] 2 1 [347,] 2 1 [348,] 2 2 [349,] 2 1 [350,] 1 1 [351,] 2 1 [352,] 1 1 [353,] 1 1 [354,] 1 1 [355,] 1 1 [356,] 1 1 [357,] 2 1 [358,] 2 1 [359,] 1 1 [360,] 1 1 [361,] 2 1 [362,] 1 1 [363,] 1 1 [364,] 1 1 [365,] 1 2 [366,] 2 1 [367,] 2 1 [368,] 2 1 [369,] 1 1 [370,] 1 1 [371,] 2 1 [372,] 1 1 [373,] 2 1 [374,] 2 1 [375,] 1 1 [376,] 1 1 [377,] 1 1 [378,] 2 1 [379,] 1 1 [380,] 2 1 [381,] 1 1 [382,] 2 1 [383,] 1 1 [384,] 1 1 [385,] 1 1 [386,] 1 1 [387,] 1 1 [388,] 1 1 [389,] 1 2 [390,] 2 1 [391,] 1 1 [392,] 2 1 [393,] 2 1 [394,] 1 1 [395,] 1 2 [396,] 2 1 [397,] 1 2 [398,] 2 1 [399,] 1 1 [400,] 2 1 [401,] 1 1 [402,] 1 1 [403,] 1 1 [404,] 2 2 [405,] 2 1 [406,] 1 1 [407,] 1 1 [408,] 1 1 [409,] 2 1 [410,] 1 1 [411,] 1 2 [412,] 2 1 [413,] 1 2 [414,] 2 1 [415,] 1 1 [416,] 2 1 [417,] 2 1 [418,] 1 1 [419,] 1 1 [420,] 2 1 [421,] 1 1 [422,] 1 1 [423,] 1 1 [424,] 1 2 [425,] 2 1 [426,] 2 2 [427,] 2 1 [428,] 1 1 [429,] 1 2 [430,] 2 1 [431,] 2 1 [432,] 1 1 [433,] 1 1 [434,] 1 1 [435,] 1 1 [436,] 2 1 [437,] 2 2 [438,] 2 2 [439,] 2 1 [440,] 1 1 [441,] 1 2 [442,] 2 1 [443,] 2 1 [444,] 1 2 [445,] 2 1 [446,] 2 1 [447,] 1 2 [448,] 2 1 [449,] 2 2 [450,] 2 1 [451,] 1 1 [452,] 1 2 [453,] 2 1 [454,] 1 1 [455,] 1 2 [456,] 2 1 [457,] 1 1 [458,] 2 1 [459,] 1 1 [460,] 1 2 [461,] 2 1 [462,] 1 1 [463,] 1 1 [464,] 1 2 [465,] 2 1 [466,] 1 1 [467,] 1 2 [468,] 2 1 [469,] 1 1 [470,] 2 1 [471,] 1 1 [472,] 1 1 [473,] 1 1 [474,] 1 1 [475,] 2 1 [476,] 1 1 [477,] 1 1 [478,] 2 1 [479,] 1 1 [480,] 2 1 [481,] 1 1 [482,] 2 1 [483,] 1 1 [484,] 1 2 [485,] 2 1 [486,] 1 1 [487,] 1 2 [488,] 2 1 [489,] 1 1 [490,] 1 1 [491,] 2 1 [492,] 1 2 [493,] 2 1 [494,] 1 1 [495,] 1 1 [496,] 2 1 [497,] 1 2 [498,] 2 1 [499,] 1 1 [500,] 1 2 [501,] 2 2 [502,] 2 2 [503,] 2 1 [504,] 2 1 [505,] 1 1 [506,] 1 1 [507,] 2 1 [508,] 1 1 [509,] 1 1 [510,] 1 1 [511,] 1 1 [512,] 1 1 [513,] 1 1 [514,] 1 1 [515,] 1 1 [516,] 1 1 [517,] 2 1 [518,] 1 1 [519,] 1 2 [520,] 2 1 [521,] 1 1 [522,] 2 2 [523,] 2 1 [524,] 1 1 [525,] 2 1 [526,] 1 2 [527,] 2 2 [528,] 2 1 [529,] 2 1 [530,] 1 1 [531,] 1 1 [532,] 2 1 [533,] 2 1 [534,] 1 1 [535,] 1 1 [536,] 2 1 [537,] 1 1 [538,] 1 1 [539,] 2 1 [540,] 1 1 [541,] 1 2 [542,] 2 1 [543,] 1 1 [544,] 1 1 [545,] 1 1 [546,] 2 1 [547,] 2 1 [548,] 1 1 [549,] 1 1 [550,] 1 1 [551,] 1 1 [552,] 1 1 [553,] 1 1 [554,] 1 2 [555,] 2 1 [556,] 1 2 [557,] 2 2 [558,] 2 2 [559,] 2 2 [560,] 2 1 [561,] 1 1 [562,] 2 1 [563,] 1 1 [564,] 2 1 [565,] 2 1 [566,] 1 1 [567,] 1 1 [568,] 1 1 [569,] 2 2 [570,] 2 1 [571,] 1 2 [572,] 2 2 [573,] 2 1 [574,] 1 1 [575,] 2 2 [576,] 2 1 [577,] 1 2 [578,] 2 1 [579,] 1 1 [580,] 1 1 [581,] 1 1 [582,] 1 1 [583,] 2 1 [584,] 2 1 [585,] 1 1 [586,] 2 1 [587,] 1 1 [588,] 1 2 [589,] 2 1 [590,] 1 1 [591,] 1 2 [592,] 2 1 [593,] 1 1 [594,] 2 2 [595,] 2 1 [596,] 1 2 [597,] 2 1 [598,] 1 2 [599,] 2 1 [600,] 2 1 [601,] 1 1 [602,] 1 1 [603,] 1 1 [604,] 2 1 [605,] 1 2 [606,] 2 1 [607,] 1 1 [608,] 1 1 [609,] 1 1 [610,] 2 1 [611,] 1 1 [612,] 2 2 [613,] 2 1 [614,] 1 1 [615,] 1 1 [616,] 2 1 [617,] 1 1 [618,] 1 1 [619,] 1 1 [620,] 1 1 [621,] 1 1 [622,] 2 2 [623,] 2 1 [624,] 1 1 [625,] 2 1 [626,] 2 1 [627,] 1 1 [628,] 2 2 [629,] 2 1 [630,] 1 1 [631,] 1 1 [632,] 2 1 [633,] 1 1 [634,] 2 1 [635,] 2 1 [636,] 1 2 [637,] 2 1 [638,] 2 1 [639,] 1 1 [640,] 1 2 [641,] 2 2 [642,] 2 1 [643,] 1 1 [644,] 1 1 [645,] 1 1 [646,] 2 2 [647,] 2 2 [648,] 2 1 [649,] 1 2 [650,] 2 1 [651,] 1 1 [652,] 1 1 [653,] 2 1 [654,] 2 1 [655,] 1 2 [656,] 2 2 [657,] 2 2 [658,] 2 1 [659,] 1 1 [660,] 1 1 [661,] 2 1 [662,] 1 1 [663,] 1 1 [664,] 1 1 [665,] 1 1 [666,] 2 1 [667,] 1 1 [668,] 2 1 [669,] 1 1 [670,] 2 1 [671,] 1 1 [672,] 1 1 [673,] 2 1 [674,] 1 1 [675,] 1 1 [676,] 1 1 [677,] 1 1 [678,] 1 1 [679,] 2 1 [680,] 1 1 [681,] 1 2 [682,] 2 2 [683,] 2 2 [684,] 2 2 [685,] 2 1 [686,] 1 1 [687,] 2 1 [688,] 1 1 [689,] 1 1 [690,] 1 1 [691,] 1 1 [692,] 1 1 [693,] 2 1 [694,] 1 1 [695,] 2 2 [696,] 2 2 [697,] 2 1 [698,] 1 2 [699,] 2 2 [700,] 2 1 [701,] 1 1 [702,] 2 1 [703,] 1 2 [704,] 2 1 [705,] 1 1 [706,] 2 1 [707,] 1 1 [708,] 1 2 [709,] 2 2 [710,] 2 2 [711,] 2 1 [712,] 2 1 [713,] 1 1 [714,] 1 1 [715,] 2 2 [716,] 2 1 [717,] 1 1 [718,] 1 2 [719,] 2 1 [720,] 1 1 [721,] 2 1 [722,] 1 1 [723,] 1 2 [724,] 2 2 [725,] 2 1 [726,] 1 1 [727,] 2 1 [728,] 2 1 [729,] 1 1 [730,] 1 1 [731,] 1 1 [732,] 2 1 [733,] 2 2 [734,] 2 1 [735,] 1 1 [736,] 1 1 [737,] 1 1 [738,] 1 1 [739,] 1 1 [740,] 1 1 [741,] 1 1 [742,] 2 1 [743,] 1 1 [744,] 1 1 [745,] 1 1 [746,] 1 1 [747,] 2 2 [748,] 2 1 [749,] 2 2 [750,] 2 2 [751,] 2 1 [752,] 1 1 [753,] 1 1 [754,] 1 2 [755,] 2 2 [756,] 2 1 [757,] 2 1 [758,] 2 2 [759,] 2 1 [760,] 1 1 [761,] 1 1 [762,] 2 1 [763,] 1 1 [764,] 1 1 [765,] 1 1 [766,] 1 1 [767,] 1 1 [768,] 1 1 [769,] 1 1 [770,] 2 1 [771,] 1 1 [772,] 1 1 [773,] 2 1 [774,] 1 1 [775,] 1 1 [776,] 2 1 [777,] 1 2 [778,] 2 2 [779,] 2 1 [780,] 1 1 [781,] 2 2 [782,] 2 1 [783,] 1 1 [784,] 2 1 [785,] 2 2 [786,] 2 1 [787,] 2 1 [788,] 1 1 [789,] 2 2 [790,] 2 2 [791,] 2 1 [792,] 1 2 [793,] 2 1 [794,] 1 1 [795,] 2 1 [796,] 1 1 [797,] 1 1 [798,] 1 1 [799,] 2 1 [800,] 2 1 [801,] 1 1 [802,] 2 1 [803,] 1 1 [804,] 1 1 [805,] 1 1 [806,] 1 1 [807,] 1 1 [808,] 2 2 [809,] 2 1 [810,] 1 2 [811,] 2 1 [812,] 1 2 [813,] 2 1 [814,] 1 1 [815,] 1 1 [816,] 1 1 [817,] 1 1 [818,] 1 1 [819,] 1 1 [820,] 1 1 [821,] 2 1 [822,] 1 1 [823,] 1 1 [824,] 2 1 [825,] 1 1 [826,] 1 1 [827,] 1 1 [828,] 1 1 [829,] 1 2 [830,] 2 1 [831,] 1 1 [832,] 2 1 [833,] 2 1 [834,] 2 1 [835,] 1 1 [836,] 2 1 [837,] 1 1 [838,] 2 1 [839,] 1 1 [840,] 1 1 [841,] 2 1 [842,] 2 1 [843,] 2 1 [844,] 1 1 [845,] 1 1 [846,] 1 1 [847,] 2 1 [848,] 1 1 [849,] 1 2 [850,] 2 1 [851,] 1 1 [852,] 1 1 [853,] 2 1 [854,] 1 1 [855,] 1 1 [856,] 1 2 [857,] 2 1 [858,] 1 1 [859,] 2 1 [860,] 2 2 [861,] 2 1 [862,] 2 1 [863,] 1 1 [864,] 2 2 [865,] 2 1 [866,] 2 1 [867,] 1 1 [868,] 1 1 [869,] 2 1 [870,] 1 2 [871,] 2 1 [872,] 2 1 [873,] 1 1 [874,] 1 1 [875,] 1 1 [876,] 2 1 [877,] 1 1 [878,] 2 1 [879,] 1 1 [880,] 1 1 [881,] 1 1 [882,] 1 1 [883,] 1 1 [884,] 2 1 [885,] 2 1 [886,] 1 1 [887,] 1 1 [888,] 1 1 [889,] 2 1 [890,] 2 1 [891,] 1 1 [892,] 1 1 [893,] 2 1 [894,] 1 2 [895,] 2 1 [896,] 2 1 [897,] 1 1 [898,] 1 1 [899,] 1 1 [900,] 2 1 [901,] 1 1 [902,] 1 1 [903,] 1 1 [904,] 1 1 [905,] 1 1 [906,] 2 1 [907,] 1 1 [908,] 2 2 [909,] 2 1 [910,] 1 1 [911,] 2 1 [912,] 2 2 [913,] 2 2 [914,] 2 1 [915,] 2 2 [916,] 2 1 [917,] 1 1 [918,] 1 1 [919,] 1 1 [920,] 1 1 [921,] 1 1 [922,] 1 1 [923,] 2 1 [924,] 2 1 [925,] 1 1 [926,] 2 1 [927,] 1 1 [928,] 2 2 [929,] 2 2 [930,] 2 2 [931,] 2 1 [932,] 1 1 [933,] 2 1 [934,] 1 1 [935,] 2 1 [936,] 1 1 [937,] 1 1 [938,] 1 1 [939,] 2 1 [940,] 1 1 [941,] 1 1 [942,] 1 1 [943,] 2 2 [944,] 2 1 [945,] 1 2 [946,] 2 1 [947,] 1 1 [948,] 2 1 [949,] 1 2 [950,] 2 1 [951,] 1 1 [952,] 2 1 [953,] 1 1 [954,] 1 2 [955,] 2 1 [956,] 1 1 [957,] 2 1 [958,] 1 2 [959,] 2 1 [960,] 1 1 [961,] 1 1 [962,] 1 1 [963,] 1 1 [964,] 1 1 [965,] 1 1 [966,] 2 2 [967,] 2 1 [968,] 1 1 [969,] 1 1 [970,] 2 1 [971,] 2 1 [972,] 1 1 [973,] 2 1 [974,] 1 1 [975,] 1 1 [976,] 1 2 [977,] 2 2 [978,] 2 1 [979,] 1 1 [980,] 1 1 [981,] 2 1 [982,] 1 2 [983,] 2 2 [984,] 2 1 [985,] 1 1 [986,] 2 2 [987,] 2 1 [988,] 2 1 [989,] 1 1 [990,] 1 1 [991,] 2 1 [992,] 2 1 [993,] 1 1 [994,] 1 1 [995,] 2 1 [996,] 1 1 [997,] 1 1 [998,] 1 1 [999,] 2 1 [1000,] 1 1 [1001,] 1 1 [1002,] 2 2 [1003,] 2 1 [1004,] 2 2 [1005,] 2 1 [1006,] 2 1 [1007,] 2 2 [1008,] 2 1 [1009,] 1 1 [1010,] 1 1 [1011,] 2 1 [1012,] 1 1 [1013,] 1 1 [1014,] 1 1 [1015,] 1 1 [1016,] 1 1 [1017,] 2 1 [1018,] 2 2 [1019,] 2 1 [1020,] 1 1 [1021,] 2 1 [1022,] 2 1 [1023,] 1 2 [1024,] 2 1 [1025,] 2 2 [1026,] 2 1 [1027,] 1 1 [1028,] 1 1 [1029,] 1 1 [1030,] 1 1 [1031,] 1 1 [1032,] 1 1 [1033,] 1 2 [1034,] 2 1 [1035,] 2 2 [1036,] 2 1 [1037,] 1 2 [1038,] 2 1 [1039,] 1 1 [1040,] 2 1 [1041,] 2 1 [1042,] 2 1 [1043,] 2 2 [1044,] 2 2 [1045,] 2 2 [1046,] 2 1 [1047,] 1 1 [1048,] 1 1 [1049,] 1 1 [1050,] 1 1 [1051,] 1 2 [1052,] 2 1 [1053,] 1 1 [1054,] 1 2 [1055,] 2 1 [1056,] 1 1 [1057,] 1 1 [1058,] 1 1 [1059,] 1 1 [1060,] 1 2 [1061,] 2 1 [1062,] 1 1 [1063,] 2 1 [1064,] 1 1 [1065,] 2 1 [1066,] 1 2 [1067,] 2 2 [1068,] 2 1 [1069,] 2 2 [1070,] 2 1 [1071,] 1 2 [1072,] 2 1 [1073,] 2 1 [1074,] 2 1 [1075,] 2 2 [1076,] 2 1 [1077,] 1 1 [1078,] 1 1 [1079,] 1 1 [1080,] 2 1 [1081,] 1 1 [1082,] 1 1 [1083,] 1 1 [1084,] 1 2 [1085,] 2 1 [1086,] 1 1 [1087,] 1 2 [1088,] 2 1 [1089,] 2 1 [1090,] 1 2 [1091,] 2 2 [1092,] 2 1 [1093,] 1 2 [1094,] 2 1 [1095,] 1 1 [1096,] 1 2 [1097,] 2 1 [1098,] 1 1 [1099,] 1 1 [1100,] 1 1 [1101,] 1 1 [1102,] 1 1 [1103,] 2 1 [1104,] 1 2 [1105,] 2 2 [1106,] 2 1 [1107,] 1 1 [1108,] 1 2 [1109,] 2 1 [1110,] 2 1 [1111,] 2 1 [1112,] 1 2 [1113,] 2 1 [1114,] 2 1 [1115,] 2 1 [1116,] 1 1 [1117,] 1 2 [1118,] 2 1 [1119,] 2 2 [1120,] 2 1 [1121,] 1 2 [1122,] 2 2 [1123,] 2 1 [1124,] 1 1 [1125,] 1 1 [1126,] 2 1 [1127,] 1 1 [1128,] 1 1 [1129,] 2 2 [1130,] 2 1 [1131,] 1 1 [1132,] 1 1 [1133,] 1 2 [1134,] 2 1 [1135,] 1 1 [1136,] 1 1 [1137,] 1 1 [1138,] 1 2 [1139,] 2 1 [1140,] 1 1 [1141,] 2 1 [1142,] 1 1 [1143,] 2 2 [1144,] 2 1 [1145,] 1 1 [1146,] 1 1 [1147,] 1 1 [1148,] 1 1 [1149,] 2 1 [1150,] 1 1 [1151,] 2 1 [1152,] 1 1 [1153,] 1 1 [1154,] 1 2 [1155,] 2 1 [1156,] 2 1 [1157,] 1 1 [1158,] 1 1 [1159,] 2 1 [1160,] 1 1 [1161,] 1 1 [1162,] 2 2 [1163,] 2 1 [1164,] 2 1 [1165,] 1 1 [1166,] 1 1 [1167,] 1 1 [1168,] 2 1 [1169,] 2 1 [1170,] 1 1 [1171,] 1 1 [1172,] 1 2 [1173,] 2 1 [1174,] 1 1 [1175,] 2 2 [1176,] 2 1 [1177,] 1 1 [1178,] 1 1 [1179,] 2 1 [1180,] 1 1 [1181,] 2 2 [1182,] 2 1 [1183,] 1 2 [1184,] 2 1 [1185,] 2 1 [1186,] 1 1 [1187,] 1 1 [1188,] 1 1 [1189,] 1 2 [1190,] 2 1 [1191,] 1 1 [1192,] 1 2 [1193,] 2 1 [1194,] 1 1 [1195,] 1 2 [1196,] 2 1 [1197,] 1 1 [1198,] 1 2 [1199,] 2 1 [1200,] 1 1 [1201,] 1 1 [1202,] 2 1 [1203,] 2 1 [1204,] 1 1 [1205,] 1 1 [1206,] 1 1 [1207,] 1 1 [1208,] 2 1 [1209,] 1 2 [1210,] 2 1 [1211,] 2 1 [1212,] 2 1 [1213,] 2 1 [1214,] 2 2 [1215,] 2 2 [1216,] 2 1 [1217,] 2 1 [1218,] 1 1 [1219,] 1 1 [1220,] 2 1 [1221,] 1 1 [1222,] 1 1 [1223,] 1 1 [1224,] 1 2 [1225,] 2 1 [1226,] 1 1 [1227,] 1 1 [1228,] 1 2 [1229,] 2 1 [1230,] 2 1 [1231,] 1 1 [1232,] 1 1 [1233,] 1 2 [1234,] 2 2 [1235,] 2 1 [1236,] 1 1 [1237,] 1 2 [1238,] 2 1 [1239,] 1 1 [1240,] 2 1 [1241,] 1 1 [1242,] 1 1 [1243,] 1 1 [1244,] 1 1 [1245,] 1 1 [1246,] 1 1 [1247,] 2 1 [1248,] 1 1 [1249,] 2 1 [1250,] 1 1 [1251,] 1 1 [1252,] 2 1 [1253,] 1 1 [1254,] 2 2 [1255,] 2 1 [1256,] 2 1 [1257,] 2 1 [1258,] 1 1 [1259,] 1 1 [1260,] 1 1 [1261,] 1 1 [1262,] 1 2 [1263,] 2 1 [1264,] 1 1 [1265,] 2 1 [1266,] 2 2 [1267,] 2 1 [1268,] 1 1 [1269,] 1 1 [1270,] 1 1 [1271,] 1 2 [1272,] 2 2 [1273,] 2 1 [1274,] 2 1 [1275,] 1 2 [1276,] 2 1 [1277,] 1 1 [1278,] 2 1 [1279,] 2 1 [1280,] 1 1 [1281,] 1 1 [1282,] 2 1 [1283,] 2 1 [1284,] 2 2 [1285,] 2 1 [1286,] 2 1 [1287,] 2 1 [1288,] 2 1 [1289,] 2 1 [1290,] 1 1 [1291,] 1 1 [1292,] 1 2 [1293,] 2 1 [1294,] 1 1 [1295,] 1 2 [1296,] 2 2 [1297,] 2 2 [1298,] 2 1 [1299,] 2 1 [1300,] 1 2 [1301,] 2 1 [1302,] 2 1 [1303,] 1 1 [1304,] 2 1 [1305,] 1 1 [1306,] 1 1 [1307,] 2 1 [1308,] 1 1 [1309,] 2 1 [1310,] 1 2 [1311,] 2 1 [1312,] 1 1 [1313,] 1 1 [1314,] 1 1 [1315,] 2 1 [1316,] 1 1 [1317,] 2 2 [1318,] 2 1 [1319,] 1 1 [1320,] 2 1 [1321,] 1 1 [1322,] 1 1 [1323,] 2 1 [1324,] 1 1 [1325,] 2 1 [1326,] 2 1 [1327,] 2 1 [1328,] 2 2 [1329,] 2 1 [1330,] 2 2 [1331,] 2 1 [1332,] 2 1 [1333,] 1 1 [1334,] 1 1 [1335,] 1 1 [1336,] 2 1 [1337,] 1 2 [1338,] 2 1 [1339,] 2 2 [1340,] 2 1 [1341,] 1 1 [1342,] 1 1 [1343,] 2 1 [1344,] 1 2 [1345,] 2 2 [1346,] 2 2 [1347,] 2 1 [1348,] 1 1 [1349,] 1 1 [1350,] 1 1 [1351,] 1 1 [1352,] 1 1 [1353,] 2 1 [1354,] 2 1 [1355,] 2 1 [1356,] 1 1 [1357,] 1 2 [1358,] 2 2 [1359,] 2 2 [1360,] 2 2 [1361,] 2 2 [1362,] 2 1 [1363,] 1 1 [1364,] 2 1 [1365,] 2 2 [1366,] 2 1 [1367,] 2 1 [1368,] 2 2 [1369,] 2 1 [1370,] 1 1 [1371,] 1 1 [1372,] 1 2 [1373,] 2 1 [1374,] 1 1 [1375,] 2 1 [1376,] 1 1 [1377,] 1 2 [1378,] 2 1 [1379,] 2 2 [1380,] 2 1 [1381,] 1 2 [1382,] 2 1 [1383,] 2 1 [1384,] 1 1 [1385,] 1 2 [1386,] 2 1 [1387,] 1 1 [1388,] 1 1 [1389,] 1 1 [1390,] 1 2 [1391,] 2 1 [1392,] 1 1 [1393,] 1 1 [1394,] 1 1 [1395,] 1 1 [1396,] 1 2 [1397,] 2 2 [1398,] 2 1 [1399,] 1 1 [1400,] 1 1 [1401,] 1 1 [1402,] 2 1 [1403,] 1 2 [1404,] 2 1 [1405,] 1 1 [1406,] 2 1 [1407,] 1 2 [1408,] 2 2 [1409,] 2 1 [1410,] 2 1 [1411,] 1 1 [1412,] 1 1 [1413,] 1 1 [1414,] 1 1 [1415,] 2 1 [1416,] 1 1 [1417,] 1 1 [1418,] 1 1 [1419,] 1 1 [1420,] 1 1 [1421,] 1 1 [1422,] 2 1 [1423,] 1 1 [1424,] 2 1 [1425,] 2 1 [1426,] 1 1 [1427,] 1 1 [1428,] 1 2 [1429,] 2 1 [1430,] 1 1 [1431,] 1 1 [1432,] 1 1 [1433,] 1 1 [1434,] 1 1 [1435,] 2 1 [1436,] 1 2 [1437,] 2 2 [1438,] 2 1 [1439,] 2 1 [1440,] 1 1 [1441,] 1 1 [1442,] 1 1 [1443,] 2 1 [1444,] 1 1 [1445,] 1 2 [1446,] 2 1 [1447,] 1 1 [1448,] 1 1 [1449,] 1 2 [1450,] 2 1 [1451,] 1 1 [1452,] 1 1 [1453,] 1 1 [1454,] 2 1 [1455,] 1 1 [1456,] 1 2 [1457,] 2 1 [1458,] 1 1 [1459,] 2 1 [1460,] 1 2 [1461,] 2 1 [1462,] 2 1 [1463,] 2 1 [1464,] 1 1 [1465,] 1 1 [1466,] 1 1 [1467,] 1 1 [1468,] 1 1 [1469,] 1 1 [1470,] 1 1 [1471,] 1 2 [1472,] 2 2 [1473,] 2 1 [1474,] 1 1 [1475,] 2 1 [1476,] 2 1 [1477,] 1 1 [1478,] 1 2 [1479,] 2 1 [1480,] 1 1 [1481,] 1 1 [1482,] 1 1 [1483,] 1 1 [1484,] 2 1 [1485,] 1 1 [1486,] 1 1 [1487,] 1 1 [1488,] 1 1 [1489,] 2 1 [1490,] 1 1 [1491,] 2 1 [1492,] 1 1 [1493,] 1 1 [1494,] 2 2 [1495,] 2 1 [1496,] 1 1 [1497,] 1 1 [1498,] 1 2 [1499,] 2 1 [1500,] 1 1 [1501,] 1 2 [1502,] 2 1 [1503,] 1 2 [1504,] 2 1 [1505,] 1 1 [1506,] 1 1 [1507,] 2 1 [1508,] 2 1 [1509,] 2 1 [1510,] 2 2 [1511,] 2 1 [1512,] 1 1 [1513,] 1 1 [1514,] 1 1 [1515,] 2 1 [1516,] 1 1 [1517,] 2 1 [1518,] 2 2 [1519,] 2 1 [1520,] 1 1 [1521,] 1 1 [1522,] 2 1 [1523,] 2 2 [1524,] 2 1 [1525,] 2 1 [1526,] 1 1 [1527,] 1 1 [1528,] 1 1 [1529,] 1 1 [1530,] 1 1 [1531,] 1 1 [1532,] 1 1 [1533,] 1 1 [1534,] 1 2 [1535,] 2 1 [1536,] 1 1 [1537,] 1 2 [1538,] 2 1 [1539,] 1 1 [1540,] 1 1 [1541,] 2 1 [1542,] 2 1 [1543,] 1 1 [1544,] 1 2 [1545,] 2 1 [1546,] 2 1 [1547,] 1 1 [1548,] 1 1 [1549,] 2 1 [1550,] 2 1 [1551,] 2 1 [1552,] 2 1 [1553,] 1 1 [1554,] 1 1 [1555,] 1 1 [1556,] 1 1 [1557,] 2 1 [1558,] 1 1 [1559,] 2 2 [1560,] 2 1 [1561,] 1 2 [1562,] 2 2 [1563,] 2 2 [1564,] 2 1 [1565,] 2 1 [1566,] 1 1 [1567,] 1 1 [1568,] 2 1 [1569,] 2 1 [1570,] 2 1 [1571,] 1 1 [1572,] 1 1 [1573,] 1 2 [1574,] 2 1 [1575,] 1 1 [1576,] 1 1 [1577,] 1 2 [1578,] 2 1 [1579,] 1 1 [1580,] 2 1 [1581,] 2 2 [1582,] 2 1 [1583,] 1 1 [1584,] 1 1 [1585,] 1 1 [1586,] 1 1 [1587,] 2 2 [1588,] 2 1 [1589,] 1 2 [1590,] 2 2 [1591,] 2 1 [1592,] 1 1 [1593,] 1 1 [1594,] 1 1 [1595,] 2 1 [1596,] 2 1 [1597,] 1 1 [1598,] 1 2 [1599,] 2 2 [1600,] 2 2 [1601,] 2 1 [1602,] 2 1 [1603,] 1 2 [1604,] 2 1 [1605,] 2 2 [1606,] 2 1 [1607,] 1 2 [1608,] 2 2 [1609,] 2 2 [1610,] 2 1 [1611,] 2 1 [1612,] 1 1 [1613,] 1 1 [1614,] 1 1 [1615,] 1 1 [1616,] 1 1 [1617,] 1 1 [1618,] 1 2 [1619,] 2 1 [1620,] 1 1 [1621,] 2 1 [1622,] 1 1 [1623,] 1 1 [1624,] 1 1 [1625,] 1 1 [1626,] 2 1 [1627,] 1 1 [1628,] 1 1 [1629,] 1 1 [1630,] 1 2 [1631,] 2 1 [1632,] 2 1 [1633,] 1 2 [1634,] 2 2 [1635,] 2 1 [1636,] 1 1 [1637,] 2 1 [1638,] 1 1 [1639,] 1 1 [1640,] 2 1 [1641,] 2 1 [1642,] 1 1 [1643,] 2 1 [1644,] 1 1 [1645,] 1 1 [1646,] 1 1 [1647,] 1 1 [1648,] 1 1 [1649,] 1 2 [1650,] 2 1 [1651,] 1 1 [1652,] 1 1 [1653,] 1 2 [1654,] 2 2 [1655,] 2 1 [1656,] 2 1 [1657,] 1 1 [1658,] 1 1 [1659,] 1 1 [1660,] 1 1 [1661,] 1 2 [1662,] 2 1 [1663,] 1 1 [1664,] 2 1 [1665,] 1 1 [1666,] 1 1 [1667,] 2 1 [1668,] 2 1 [1669,] 1 1 [1670,] 2 1 [1671,] 2 1 [1672,] 2 1 [1673,] 1 1 [1674,] 1 1 [1675,] 1 1 [1676,] 2 2 [1677,] 2 1 [1678,] 1 1 [1679,] 1 1 [1680,] 1 2 [1681,] 2 1 [1682,] 1 2 [1683,] 2 1 [1684,] 2 1 [1685,] 2 1 [1686,] 2 2 [1687,] 2 2 [1688,] 2 1 [1689,] 1 1 [1690,] 1 1 [1691,] 2 1 [1692,] 1 1 [1693,] 1 1 [1694,] 1 1 [1695,] 2 1 [1696,] 1 1 [1697,] 1 1 [1698,] 1 1 [1699,] 1 1 [1700,] 2 1 [1701,] 2 1 [1702,] 1 1 [1703,] 1 1 [1704,] 1 1 [1705,] 1 1 [1706,] 2 1 [1707,] 1 2 [1708,] 2 2 [1709,] 2 2 [1710,] 2 2 [1711,] 2 1 [1712,] 2 1 [1713,] 1 1 [1714,] 1 1 [1715,] 1 1 [1716,] 1 1 [1717,] 2 1 [1718,] 1 1 [1719,] 1 1 [1720,] 1 1 [1721,] 1 1 [1722,] 1 1 [1723,] 1 1 [1724,] 1 1 [1725,] 1 1 [1726,] 1 1 [1727,] 1 1 [1728,] 2 2 [1729,] 2 1 [1730,] 2 1 [1731,] 1 1 [1732,] 1 2 [1733,] 2 1 [1734,] 2 1 [1735,] 1 1 [1736,] 1 1 [1737,] 1 1 [1738,] 1 1 [1739,] 1 2 [1740,] 2 1 [1741,] 2 1 [1742,] 2 2 [1743,] 2 1 [1744,] 1 1 [1745,] 1 1 [1746,] 1 1 [1747,] 2 2 [1748,] 2 1 [1749,] 1 1 [1750,] 1 1 [1751,] 1 1 [1752,] 1 1 [1753,] 2 1 [1754,] 1 1 [1755,] 1 2 [1756,] 2 1 [1757,] 2 1 [1758,] 1 1 [1759,] 1 1 [1760,] 1 1 [1761,] 1 2 [1762,] 2 1 [1763,] 2 1 [1764,] 1 1 [1765,] 1 1 [1766,] 2 2 [1767,] 2 1 [1768,] 1 1 [1769,] 1 1 [1770,] 2 1 [1771,] 1 1 [1772,] 1 1 [1773,] 2 2 [1774,] 2 2 [1775,] 2 2 [1776,] 2 1 [1777,] 1 1 [1778,] 1 2 [1779,] 2 1 [1780,] 1 2 [1781,] 2 1 [1782,] 2 2 [1783,] 2 1 [1784,] 1 1 [1785,] 2 1 [1786,] 1 1 [1787,] 1 1 [1788,] 1 1 [1789,] 1 2 [1790,] 2 1 [1791,] 1 1 [1792,] 1 1 [1793,] 2 1 [1794,] 1 1 [1795,] 1 1 [1796,] 2 1 [1797,] 1 1 [1798,] 2 1 [1799,] 1 1 [1800,] 1 1 [1801,] 2 1 [1802,] 1 1 [1803,] 2 1 [1804,] 2 1 [1805,] 1 1 [1806,] 2 1 [1807,] 2 2 [1808,] 2 1 [1809,] 2 1 [1810,] 1 2 [1811,] 2 1 [1812,] 1 2 [1813,] 2 2 [1814,] 2 1 [1815,] 1 1 [1816,] 1 1 [1817,] 1 1 [1818,] 1 1 [1819,] 2 2 [1820,] 2 1 [1821,] 1 2 [1822,] 2 1 > (table1 <- table(z[,cat1],z[,cat2])) 1 2 1 814 192 2 644 172 > (V1<-dimnames(y)[[1]][cat1]) [1] "Geslacht" > (V2<-dimnames(y)[[1]][cat2]) [1] "Rookgedrag" > postscript(file="/var/wessaorg/rcomp/tmp/16pqk1355941323.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) > dev.off() null device 1 > > #Note: the /var/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab > load(file="/var/wessaorg/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/wessaorg/rcomp/tmp/2fpv61355941323.tab") > (cst<-chisq.test(table1, simulate.p.value=simulate.p.value) ) Pearson's Chi-squared test with Yates' continuity correction data: table1 X-squared = 0.9982, df = 1, p-value = 0.3178 > if (par3 == 'McNemar Chi-Squared') { + (cst <- mcnemar.test(table1)) + } > if (par3 != 'McNemar Chi-Squared') { + 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/wessaorg/rcomp/tmp/3cj051355941323.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) > a<-table.element(a, 'Chi Square Statistic', 1, TRUE) > a<-table.element(a, round(cst$statistic, digits=2), 1,FALSE) > a<-table.row.end(a) > if(!simulate.p.value){ + 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/wessaorg/rcomp/tmp/4sppw1355941323.tab") > > try(system("convert tmp/16pqk1355941323.ps tmp/16pqk1355941323.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 5.754 0.461 6.184