8f7da383c43b818a50a85839a13a314856d4b563
[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 }
24
25 #finalizeSerialization = function(...)
26 #{
27 # #write number of series, and length of each...
28 #}
29
30 deserialize = function(coeffs, range)
31 {
32 #......
33 #C function (from file name)
34 }
35
36 getSeries(data, rank=NULL, id=NULL)
37 {
38 #TODO:
39 }
40
41 getCoeffs(.....) #FROM BINARY FILE !!!
42 {
43
44 }