export vars to nodes

[epclust.git] / epclust / R / utils.R

diff --git a/epclust/R/utils.R b/epclust/R/utils.R
index 8f7da38..e0f25ec 100644 (file)
--- a/epclust/R/utils.R
+++ b/epclust/R/utils.R
@@ -10,26 +10,20 @@ toInteger <- function(x, condition)
        x
 }
 
-#TODO: merge these 2 next ?!
-serialize = function(coeffs)
+writeCoeffs = function(coeffs)
 {
+       file = ".coeffs"
        #.........
        #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)
+readCoeffs = function(indices)
 {
        #......
+       file = ".coeffs"
        #C function (from file name)
 }
 
@@ -37,8 +31,3 @@ getSeries(data, rank=NULL, id=NULL)
 {
        #TODO:
 }
-
-getCoeffs(.....) #FROM BINARY FILE !!!
-{
-
-}