hclustでcluster.statsを使用する

Question

2つの異なるhclustクラスタでcluster.statsを使用する際に問題があります。それは不可能ですか？

私はバージョン0.99.491の午前

- インストール以下のパッケージとの©2009年から2015年RStudio、株式会社 ：私はこれらのクラスタを作成してい

mylib <- "/Users/Klaus/R Packages/"; mylib 
install.packages("NbClust",lib=mylib) 
install.packages("modeltools",lib=mylib) 
install.packages("flexclust",lib=mylib) 
install.packages("RTextTools",lib=mylib) # Amazon's default machine image uses the Atlas BLAS. R points to that when installed with all defaults, but RTextTools expects the ordinary BLAS. 
install.packages("mclust",lib=mylib) 
install.packages("fpc",lib=mylib) 

library("NbClust",lib=mylib) 
library("modeltools",lib=mylib) 
library("flexclust",lib=mylib) 
library("cluster",lib=mylib) 
library("mclust",lib=mylib) 
library("fpc",lib=mylib) 

：

data(nutrient, package="flexclust") 
row.names(nutrient) <- tolower(row.names(nutrient)) 
nutrient.scaled <- scale(nutrient) 
d_eucli <- dist(nutrient.scaled,"euclidean") 
fit.single <- hclust(d_eucli, method="single") 
fit.average <- hclust(d_eucli, method="average") 

しかし、クラスタを使用して.statsそれらに私はエラーが発生します：

cluster.stats(d_eucli, fit.single$cluster, fit.average$cluster) 

エラー（デンマークの設定で）：

Fejl i `[<-`(`*tmp*`, j, i, value = Inf) : subscript out of bounds 
In addition: Advarselsbeskeder: 
1: I max(clustering) : no non-missing arguments to max; returning -Inf 
2: I cluster.stats(d_eucli, fit.single$cluster, fit.average$cluster) : 
    clustering renumbered because maximum != number of clusters 
3: I min(bv) : no non-missing arguments to min; returning Inf 
4: I min(sij) : no non-missing arguments to min; returning Inf 

何が欠けていますか？

Answer 1

hclustはパーティション化ではなく、デンドログラムを計算します。

この後の手順を行うには、cutreeを使用してください。それから、あなたは進めることができるはずです。

Answer 2

次のコードは動作するはずです、私はそれを自分自身を試してみました：あなたはそれを知っているか、他の検証テストに基づく場合は、クラスタ（K）の数を指定する必要があり

fit.single <- hclust(d_eucli, method="single") 

fit.average <- hclust(d_eucli, method="average") 

cut.single <- cutree(fit.single, k=3) 

cut.average <- cutree(fit.average, k=3) 

cluster.stats(d_eucli, cut.single, cut.average)