'update'
[epclust.git] / epclust / R / utils.R
1 toInteger <- function(x, condition)
2 {
3 if (!is.integer(x))
4 tryCatch(
5 {x = as.integer(x)[1]},
6 error = function(e) paste("cannot convert argument",substitute(x),"to integer")
7 )
8 if (!condition(x))
9 stop(paste("argument",substitute(x),"does not verify condition",body(condition)))
10 x
11 }
12
13 #TODO: merge these 2 next ?!
14 serialize = function(coeffs)
15 {
16 #.........
17 #C function (from data.frame, type of IDs ??! force integers ? [yes])
18 #return raw vector
19 }
20 appendBinary = function(.......)
21 {
22 #take raw vector, append it (binary mode) to a file
23 #TODO: appendCoeffs() en C --> serialize et append to file
24 }
25
26 #finalizeSerialization = function(...)
27 #{
28 # #write number of series, and length of each...
29 #}
30
31 deserialize = function(coeffs, range)
32 {
33 #......
34 #C function (from file name)
35 }
36
37 getSeries(data, rank=NULL, id=NULL)
38 {
39 #TODO:
40 }
41
42 getCoeffs(.....) #FROM BINARY FILE !!!
43 {
44
45 }