projects
/
epclust.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
progress in main.R
[epclust.git]
/
code
/
draft_R_pkg
/
R
/
algorithms.R
1
getCoeffs = function(series)
2
{
3
#... return wavelets coeffs : compute in parallel !
4
}
5
6
getClusters = function(data, K)
7
{
8
pam_output = pam(data, K)
9
return ( list(clusts=pam_output$clustering, medoids=pam_output$medoids) )
10
}