if (interactive()){
data(yeast)
# Data pre-processing
yeastF <- filter.NA(yeast)
yeastF <- fill.NA(yeastF)
yeastF <- standardise(yeastF)
#### parameter selection
# For fuzzifier m, we could use mestimate
m1 <- mestimate(yeastF)
m1 # 1.15
# or the function partcoef (see example there)
# For selection of c, either cselection (see example there)
# or
tmp <- Dmin(eset,m=m1,crange=seq(4,40,4),repeats=3,visu=TRUE)# Note: This calculation might take some time
# It seems that the decrease for c ~ 20 - 25 24 and thus 20 might be
# a suitable number of clusters
}
Run the code above in your browser using DataLab