projects
/
epclust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
'update'
[epclust.git]
/
epclust
/
R
/
utils.R
diff --git
a/epclust/R/utils.R
b/epclust/R/utils.R
index
6dcc2cd
..
5c09b56
100644
(file)
--- a/
epclust/R/utils.R
+++ b/
epclust/R/utils.R
@@
-10,25
+10,16
@@
toInteger <- function(x, condition)
x
}
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
{
#.........
#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
}
#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, serie_length)
{
#......
#C function (from file name)
{
#......
#C function (from file name)