1 toInteger <- function(x, condition)
5 {x = as.integer(x)[1]},
6 error = function(e) paste("cannot convert argument",substitute(x),"to integer")
9 stop(paste("argument",substitute(x),"does not verify condition",body(condition)))
13 serialize = function(coeffs, file, append)
16 #C function (from data.frame, type of IDs ??! force integers ? [yes])
18 #take raw vector, append it (binary mode) to a file
19 #TODO: appendCoeffs() en C --> serialize et append to file
22 deserialize = function(file, range, ncoefs)
25 #C function (from file name)
28 getSeries(data, rank=NULL, id=NULL)
33 getCoeffs(.....) #FROM BINARY FILE !!!