# \donttest{
library(MetabolSSMF)
# Initialisation by user
data <- SimulatedDataset
k <- 4
## Initialised by kmeans
fit.km <- kmeans(data, centers = k)
H <- mclust::unmap(fit.km$cluster)
W <- fit.km$centers
fit1 <- ssmf(data, k = k, H = H) #start the algorithm from H
fit2 <- ssmf(data, k = k, W = W) #start the algorithm from W
# Initialisation inside the function
fit3 <- ssmf(data, k = 4, meth = 'dirichlet')
fit4 <- ssmf(data, k = 4)
# }
Run the code above in your browser using DataLab