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 }