library(NbClust)
devAskNewPage(ask = T)
nc <- NbClust(mydata.scale,distance = "euclidean",
              min.nc = 2,max.nc = 15,method = "average")

出现如下错误提示：
Error in if ((resCritical[ncB - min_nc + 1, 3] >= alphaBeale) && (!foundBeale)) { :
  missing value where TRUE/FALSE needed
In addition: Warning messages:
1: In pf(beale, pp, df2) : NaNs produced
2: In pf(beale, pp, df2) : NaNs produced
3: In pf(beale, pp, df2) : NaNs produced
求教？？？