projects
/
epclust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
work on main.R
[epclust.git]
/
code
/
draft_R_pkg
/
R
/
algorithms.R
diff --git
a/code/draft_R_pkg/R/algorithms.R
b/code/draft_R_pkg/R/algorithms.R
index
e27a235
..
eda05e5
100644
(file)
--- a/
code/draft_R_pkg/R/algorithms.R
+++ b/
code/draft_R_pkg/R/algorithms.R
@@
-1,10
+1,17
@@
-
get
Coeffs = function(series)
+
curvesTo
Coeffs = function(series)
{
#... return wavelets coeffs : compute in parallel !
{
#... return wavelets coeffs : compute in parallel !
+ #TODO: always keep ID in first column
+}
+
+coeffsToCurves = function(coeffs)
+{
+ #re-expand on wavelet basis
}
getClusters = function(data, K)
{
pam_output = pam(data, K)
}
getClusters = function(data, K)
{
pam_output = pam(data, K)
- return ( list(clusts=pam_output$clustering, medoids=pam_output$medoids) )
+ return ( list( clusts=pam_output$clustering, medoids=pam_output$medoids,
+ ranks=pam_output$id.med ) )
}
}