[epclust.git] / code / draft_R_pkg / R / algorithms.R

getCoeffs = function(series)
{
	#... return wavelets coeffs : compute in parallel !
}

getClusters = function(data, K)
{
	pam_output = pam(data, K)
	return ( list(clusts=pam_output$clustering, medoids=pam_output$medoids) )
}
Commit	Line	Data
b9f1c0c7 BA	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	}