e0f25ece5f4ba50a3d9845f7f1f13763b0e10457
[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 writeCoeffs = function(coeffs)
14 {
15 file = ".coeffs"
16 #.........
17 #C function (from data.frame, type of IDs ??! force integers ? [yes])
18 #return raw vector
19 #take raw vector, append it (binary mode) to a file
20 #TODO: appendCoeffs() en C --> serialize et append to file
21 }
22
23 readCoeffs = function(indices)
24 {
25 #......
26 file = ".coeffs"
27 #C function (from file name)
28 }
29
30 getSeries(data, rank=NULL, id=NULL)
31 {
32 #TODO:
33 }