## Not run:
#
# # create a Loader
# obj.L<-dataLoader(); # create a Loader
#
# # Load a .csv using "DES" and "ID" as column names to indicate events
# # and Patient's ID
# obj.L$load.csv(nomeFile = "./otherFiles/test_02.csv",
# IDName = "ID",EVENTName = "DES", dateColumnName = "DATA")
#
# # now create an object cluster_expectationMaximization
# obj.clEM<- cluster_expectationMaximization();
#
# # load the data into logInspector object
# obj.clEM$loadDataset( obj.L$getData() );
#
# # perform clustering computation
# obj.clEM$calculateClusters(num = 5, typeOfModel = "firstOrderMarkovModel");
#
# # get calculated clusters
# a <- obj.clEM$getClusters();
#
# # get informations about performance of clusters
# b <- obj.clEM$getClusterStats();
#
# # get log of each iteration of the algorithm
# d <- obj.clEM$getClusterLog();
# ## End(Not run)
Run the code above in your browser using DataLab