> data<-scan("mh_wl")
Read 32 items
> data
 [1]  841 8157 7770 4913 3720 2971 2689 2156 1917 1591  992  551  265  154   49
[16]   13  962 8467 7073 4993 3791 2764 2505 2077 1876 1456  938  471  262  152
[31]   38    8
> m <-matrix(data, 2, byrow=T)
> m
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14]
[1,]  841 8157 7770 4913 3720 2971 2689 2156 1917  1591   992   551   265   154
[2,]  962 8467 7073 4993 3791 2764 2505 2077 1876  1456   938   471   262   152
     [,15] [,16]
[1,]    49    13
[2,]    38     8
> chisq.test(m) 

        Pearson's Chi-squared test

data:  m 
X-squared = 69.275, df = 15, p-value = 6.012e-09