r-betadisper的问题

我试着用R中的纯素包装中的betadisper函数来观察城市和郊区两个昆虫群落的相似性。但每次我尝试使用它时，它都会给我这个

Error in pts[groups == i, , drop = FALSE] : 
  (subscript) logical subscript too long

当我回溯时，它说的是回溯（）

这是我的剧本

install.packages("betapart")`
install.packages("vegan")
library(betapart)
library(vegan)
comm <- read.csv("Hym div3.csv")
groups <- factor(c(rep(1,8), rep(9,11)), labels = c("Suburban","Urban"))
presabs<-ifelse(comm>0,1,0)
dist<-beta.pair(presabs, index.family="jaccard")
bd<-betadisper(dist[[3]],groups)

install.packages（“betapart”）`
安装软件包（“素食主义者”）
图书馆（贝塔公寓）
图书馆（素食主义者）
comm您能否在您的帖子中共享
dput（comm）
？的输出以及“Hym div3.csv”文件的示例？您能否在帖子中共享
dput（comm）
？的输出以及“Hym div3.csv”文件的示例？
install.packages("betapart")`
install.packages("vegan")
library(betapart)
library(vegan)
comm <- read.csv("Hym div3.csv")
groups <- factor(c(rep(1,8), rep(9,11)), labels = c("Suburban","Urban"))
presabs<-ifelse(comm>0,1,0)
dist<-beta.pair(presabs, index.family="jaccard")
bd<-betadisper(dist[[3]],groups)