case <- "jssv44i11"

.FC.CT$algorithm <- "apecma"
.FC.CT$model.X <- "I"
.FC.CT$ignore.X <- FALSE
.FC.CT$CONTROL$debug <- 1
.FC.CT$CONTROL$RndEM.iter <- 50
.FC.CT$INIT$min.1st.prop <- 0.975
.FC.CT$INIT$max.PV <- 0.05
K.min <- 2
K.max <- 20
max.try.fclust <- 3
seed <- 1234

if(!file.exists("output")){
  dir.create("output")
}
if(!file.exists("plot")){
  dir.create("plot")
}
