# your code goes here
male<-c(163,135,71,43)
female<-c(86,77,40,38)
bird<-matrix(c(male,female),ncol = 4,byrow=T)
library(gmodels)
CrossTable(birds,expreted=T)
IyB5b3VyIGNvZGUgZ29lcyBoZXJlCgogbWFsZTwtYygxNjMsMTM1LDcxLDQzKQogZmVtYWxlPC1jKDg2LDc3LDQwLDM4KQogYmlyZDwtbWF0cml4KGMobWFsZSxmZW1hbGUpLG5jb2wgPSA0LGJ5cm93PVQpCiAKIGxpYnJhcnkoZ21vZGVscykKIENyb3NzVGFibGUoYmlyZHMsZXhwcmV0ZWQ9VCk=
IyB5b3VyIGNvZGUgZ29lcyBoZXJlCgogbWFsZSZsdDstYygxNjMsMTM1LDcxLDQzKQogZmVtYWxlJmx0Oy1jKDg2LDc3LDQwLDM4KQogYmlyZCZsdDstbWF0cml4KGMobWFsZSxmZW1hbGUpLG5jb2wgPSA0LGJ5cm93PVQpCiAKIGxpYnJhcnkoZ21vZGVscykKIENyb3NzVGFibGUoYmlyZHMsZXhwcmV0ZWQ9VCk=
# your code goes here
male<-c(163,135,71,43)
female<-c(86,77,40,38)
bird<-matrix(c(male,female),ncol = 4,byrow=T)
library(gmodels)
CrossTable(birds,expreted=T)