问在使用R语言进行HSD分析时出现问题？

在用R语言进行HSD分析时出现问题了这种问题是什么情况啊

开始时时model1_1<-aov(A~sample,data=dat)

summary(model1_1)

然后在运行HSD分析时就出错误了

**_ result<-HSD.test(model1_1,"sample")

Error in if (pvalue[k] <= 0.001) sig[k] <- "***" else if (pvalue[k] <= :

需要TRUE/FALSE值的地方不可以用缺少值

此外: Warning message:

In qtukey(1 - alpha, ntr, DFerror) : 产生了NaNs_******

导入的数据格式是这样的

sample A B C D E F

bushi 35 7 75 45 82 12

jisheng 25 13 27 27 25 5

weihai 70 31 25 13 109 57

qita 22 23 73 34 50 43

想问一下这个应该怎么修改啊 也没有办法进行numeric，进行numeric就会显示

dat$sample<-numeric(dat$sample)

Error in numeric(dat$sample) : 'length'参数不对

求大神解答，感谢