projects
/
epclust.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
e27a235304fa3516a7b5fa15104165040d6e9074
[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
}