res.fcm <- fcm(train.tokens.tfidf.High, centers=1)
u0 <- inaparc::imembrand(nrow(x), k=1)$u
res.fcm <- fcm(train.tokens.tfidf.High, centers=1, memberships=u0)
res.fcm <- fcm(train.tokens.tfidf.High, centers=1, alginitv="hartiganwong", alginitu="imembrand")
res.fcm <- fcm(train.tokens.tfidf.High, centers=1, dmetric="correlation")
if（any（d [i，] == 0））u [i，] <-rep（1 / k，k）否则u [i，j] <- 1 /（sum（d [i，：需要TRUE / FALSE的缺失值