R语言实战中聚类选择最优数目的函数Nbclust，例子时用的是对的，自己用另外数据聚类的时候为什么会报错？代码为：
rm(list=ls(all=TRUE))
data<-matrix(c(1,2,4.5,6,8))
data
d<-dist(data)#计算距离
d
fit.average<-hclust(d,method="average")#按照平均联动聚类
plot(fit.average,hang=-1,cex=0.8,main="Average Linkage Clustering")
devAskNewPage(ask=TRUE)
nc<-NbClust(data,distance="euclidean",min.nc=2,max.nc=4,method="average")#距离按照欧氏距离，方法按照平均联动

这里报错出现
Error in if ((res[ncP - min_nc + 1, 15] <= resCritical[ncP - min_nc +  :
  需要TRUE/FALSE值的地方不可以用缺少值

这地方是为什么呢，请教各位大佬