R if (nrow(emobj$Mu):= nclass || ncol(emobj$Mu) != p || nrow(emobj$LTSigma) != 中的錯誤：需要 TRUE/FALSE 的地方缺少值

Question

在 R 中使用 EMCluster 庫時出現以下錯誤：

Error in if (nrow(emobj$Mu) != nclass || ncol(emobj$Mu) != p || nrow(emobj$LTSigma) !=  : 
missing value where TRUE/FALSE needed

這是我寫的代碼：

emcluster(iris[,-5], pi = NULL, Mu = NULL, LTSigma = NULL,
      lab = NULL, EMC = .EMC, assign.class = FALSE)

我正在使用 Iris 數據集。

我的目標是運行一個 EM 聚類算法並通過繪圖等來描述我的觀察結果。

Answer 1

您需要提供參數，或者您可以初始化 EM 並提供：

library(EMCluster)

emobj <- simple.init(iris[,-5], nclass = 3)
mdl <- emcluster(iris[,-5], emobj = emobj, assign.class = TRUE)

table(mdl$class,iris$Species)
   
    setosa versicolor virginica
  1      0          0        15
  2      0         50        35
  3     50          0         0