パッケージ
のflexmixedruns
関数を使用していますが、関数を実行しようとするとエラーが発生します。fpc
flexmix error
データ セットには連続データとカテゴリ データの両方がありますが、ほとんどのカテゴリ データには 2 つのレベル ("Y"
または"N"
) しかありません。私の変数のいくつかには、いくつかのレベルがあります。関数がすべてのカテゴリ変数を多項分布として扱っているため、エラーが発生するかどうか疑問に思っています。
この機能を使用した経験のある人はいますか?
再現可能な例
##### check for fpc package
required.packages <- c("fpc")
new.packages <-
required.packages[!(required.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)
rm(required.packages, new.packages)
library(fpc)
##### create data set
df <- matrix(
data=c("widget1", "widget2", "widget3", "widget4", "widget5", "widget6",
58, 18, 31, 130, 40, 31,
70, 19, 44, 120, 57, 50,
"1E6", "1E5", "1E4", "1E6", "1E5", "1E4",
"Y", "Y", "N", "N", "N", "Y",
"N", "Y", "N", "Y", "N", "Y"),
nrow=6, ncol=6)
df <- as.data.frame(x=df)
row.names(df) <- df[, 1]
df <- df[, -1]
colnames(df) <- c("cont1", "cont2", "multi1", "bin1", "bin2")
df$cont1 <- as.numeric(df$cont1)
df$cont2 <- as.numeric(df$cont2)
##### model
mdl <-
flexmixedruns(x=df, xvarsorted=TRUE, continuous=2, discrete=3, simruns=5,
n.cluster=3, recode=TRUE)
エラーメッセージ
Error in summary(flexout[[optimalk]]) :
error in evaluating the argument 'object' in selecting a method for function 'summary': Error in flexout[[optimalk]] : attempt to select less than one element