## Not run:
#
# # create a Loader
# obj.L<-dataLoader();
#
# # 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_partitionAroundMedoids
# obj.clPAM<- cluster_partitionAroundMedoids();
#
# # load the data into logInspector object
# obj.clPAM$loadDataset( obj.L$getData() );
#
# # perform clustering computation
# obj.clPAM$calculateClusters(num = 2);
#
# # get calculated clusters
# a <- obj.clPAM$getClusters();
#
# # get informations about performance of clusters
# b <- obj.clPAM$getClusterStats();
#
# # get log of each iteration of the algorithm
# d <- obj.clPAM$getClusterLog();
# ## End(Not run)
Run the code above in your browser using DataLab