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

curvesToCoeffs = function(series)
{
	#... 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)
	return ( list( clusts=pam_output$clustering, medoids=pam_output$medoids,
		ranks=pam_output$id.med ) )
}
Commit	Line	Data
cea14f3a	1	curvesToCoeffs = function(series)
b9f1c0c7 BA	2	{
b9f1c0c7 BA	3	#... return wavelets coeffs : compute in parallel !
cea14f3a BA	4	#TODO: always keep ID in first column
	5	}
	6
	7	coeffsToCurves = function(coeffs)
	8	{
	9	#re-expand on wavelet basis
b9f1c0c7 BA	10	}
	11
	12	getClusters = function(data, K)
	13	{
	14	pam_output = pam(data, K)
cea14f3a BA	15	return ( list( clusts=pam_output$clustering, medoids=pam_output$medoids,
cea14f3a BA	16	ranks=pam_output$id.med ) )
b9f1c0c7	17	}