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
347c2c6
..
e0f25ec
100644
(file)
--- a/
epclust/R/utils.R
+++ b/
epclust/R/utils.R
@@
-10,8
+10,9
@@
toInteger <- function(x, condition)
x
}
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
#.........
#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
}
#TODO: appendCoeffs() en C --> serialize et append to file
}
-
deserialize = function(file, range, ncoef
s)
+
readCoeffs = function(indice
s)
{
#......
{
#......
+ file = ".coeffs"
#C function (from file name)
}
#C function (from file name)
}
@@
-29,8
+31,3
@@
getSeries(data, rank=NULL, id=NULL)
{
#TODO:
}
{
#TODO:
}
-
-getCoeffs(.....) #FROM BINARY FILE !!!
-{
-
-}