NbClus(x， 距离 = "euclidean" ， min.nc = 2， max.nc = 8， 方法 = "complete" 中的错误找不到函数"NbClus"

Question

尝试运行nbclus，但在安装软件包后不断收到以下错误：

install.packages("NbClust")
set.seed(1)
x<-rbind(matrix(rnorm(100,sd=0.1),ncol=2),
         matrix(rnorm(100,mean=1,sd=0.2),ncol=2),
         matrix(rnorm(100,mean=5,sd=0.1),ncol=2),
         matrix(rnorm(100,mean=7,sd=0.2),ncol=2))
x
res<-NbClust(x, distance = "euclidean", min.nc=2, max.nc=8, 
         method = "complete", index = "ch")
Error in NbClus(x, distance = "euclidean", min.nc = 2, max.nc = 8, method 
= "complete",  : 
  could not find function "NbClus"

有人建议我做错了什么吗？

Answer 1

首先你需要加载NbClust库

# install package
install.packages("NbClust")
# load library
library(NbClust)
# set seed 
set.seed(1)
# create a matrix
x<-rbind(matrix(rnorm(100,sd=0.1),ncol=2),
         matrix(rnorm(100,mean=1,sd=0.2),ncol=2),
         matrix(rnorm(100,mean=5,sd=0.1),ncol=2),
         matrix(rnorm(100,mean=7,sd=0.2),ncol=2))
# view matrix
x
# do NbClust stuff
res<-NbClust(x, distance = "euclidean", min.nc=2, max.nc=8, 
             method = "complete", index = "ch")