projects
/
epclust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
}
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
#.........
#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
#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)
}
#C function (from file name)
}
@@
-37,8
+31,3
@@
getSeries(data, rank=NULL, id=NULL)
{
#TODO:
}
{
#TODO:
}
-
-getCoeffs(.....) #FROM BINARY FILE !!!
-{
-
-}