## -----------------------------------------------------------------------------
# # Load the sample matrix from a file
# # If your file does not contain sample names (e.g., Sample_1, Sample_2), you may omit `row.names = 1`
# # In that case, do: S_matrix <- read.csv("vignettes/custom-example-S.csv")
# S_matrix <- read.csv("vignettes/custom-example-S.csv", row.names = 1)
# 
# # run simulated annealing
# results <- phytoclass::simulated_annealing(S_matrix)

## -----------------------------------------------------------------------------
# results$`condition number`
# results$RMSE
# results$MAE
# results$Error
# results$`Class abundances`
# results$Figure