This package provides monad-like implementation for for the following Latent Semantic Analysis (LSA) main sequence of steps :
(* Get text data. *)
speeches = ResourceData[ResourceObject["Presidential Nomination Acceptance Speeches"]];
texts = Normal[speeches[[All, "Text"]]];
(* Run the main processing pipeline. *)
res =
LSAMonUnit[texts]⟹
LSAMonMakeDocumentTermMatrix[{}, Automatic]⟹
LSAMonApplyTermWeightFunctions[]⟹
LSAMonExtractTopics["MinNumberOfDocumentsPerTerm" -> 5, "NumberOfTopics" -> 20, Method -> "NNMF", "MaxSteps" -> 6, "PrintProfilingInfo" -> True];
(* Show statistical thesaurus in two different ways. *)
res⟹
LSAMonExtractStatisticalThesaurus[{"arms", "banking", "economy", "education", "freedom", "tariff", "welfare"}, 6]⟹
LSAMonRetrieveFromContext["statisticalThesaurus"]⟹
LSAMonEchoValue⟹
LSAMonEchoStatisticalThesaurusTable[];