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

diff --git a/epclust/R/utils.R b/epclust/R/utils.R
index 8f7da38..347c2c6 100644
--- a/epclust/R/utils.R
+++ b/epclust/R/utils.R
@@ -10,24 +10,16 @@ toInteger <- function(x, condition)
 	x
 }
 
-#TODO: merge these 2 next ?!
-serialize = function(coeffs)
+serialize = function(coeffs, file, append)
 {
 	#.........
 	#C function (from data.frame, type of IDs ??! force integers ? [yes])
 	#return raw vector
-}
-appendBinary = function(.......)
-{
 	#take raw vector, append it (binary mode) to a file
+#TODO: appendCoeffs() en C --> serialize et append to file
 }
 
-#finalizeSerialization = function(...)
-#{
-#	#write number of series, and length of each...
-#}
-
-deserialize = function(coeffs, range)
+deserialize = function(file, range, ncoefs)
 {
 	#......
 	#C function (from file name)