如何为此数据集计算卡方？

Question

这是我称为母亲的数据集。

 bodymass       pregnant
  28.5            yes
  33.3            no
  23.4            yes
  26.6            no
  34.1            no 
  26.4            yes
  45.6            no
  25.3            yes
  25.5            no
  24              yes

我想通过卡方检验来计算假设。所以我这样设定我的假设：

  

H0：bmi与怀孕之间没有关系。

     

H1：bmi与怀孕有关。

我尝试过的代码：

dfd<- data.frame(matrix(nrow = 10, ncol = 2))
dfd[,1]<- mother$bodymass
dfd[,2]<- mother$pregnant
header<- c('bodymass', 'pregnant')
colnames(dfd)<- header
dfd
chisq.test(dfd)

但是我收到错误消息：

  

sum（x）中的错误：参数的“类型”（字符）无效

请提出解决方案。还建议除了t检验之外，我们还可以针对这个问题进行其他哪些检验。