R version 2.8.0 (2008-10-20)
Copyright (C) 2008 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.

  Natural language support but running in an English locale

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