X-Git-Url: https://git.auder.net/?p=epclust.git;a=blobdiff_plain;f=epclust%2FR%2Futils.R;h=e0f25ece5f4ba50a3d9845f7f1f13763b0e10457;hp=347c2c6d9c1de10bb366de56ca83b0bc7ab99181;hb=48108c3999d28d973443fa5e78f73a0a9f2bfc07;hpb=23844f603a363475e85ed1cb4b8620f139bcffdf

diff --git a/epclust/R/utils.R b/epclust/R/utils.R
index 347c2c6..e0f25ec 100644
--- a/epclust/R/utils.R
+++ b/epclust/R/utils.R
@@ -10,8 +10,9 @@ toInteger <- function(x, condition)
 	x
 }
 
-serialize = function(coeffs, file, append)
+writeCoeffs = function(coeffs)
 {
+	file = ".coeffs"
 	#.........
 	#C function (from data.frame, type of IDs ??! force integers ? [yes])
 	#return raw vector
@@ -19,9 +20,10 @@ serialize = function(coeffs, file, append)
 #TODO: appendCoeffs() en C --> serialize et append to file
 }
 
-deserialize = function(file, range, ncoefs)
+readCoeffs = function(indices)
 {
 	#......
+	file = ".coeffs"
 	#C function (from file name)
 }
 
@@ -29,8 +31,3 @@ getSeries(data, rank=NULL, id=NULL)
 {
 	#TODO:
 }
-
-getCoeffs(.....) #FROM BINARY FILE !!!
-{
-
-}