X-Git-Url: https://git.auder.net/?p=epclust.git;a=blobdiff_plain;f=epclust%2FR%2Futils.R;h=e0f25ece5f4ba50a3d9845f7f1f13763b0e10457;hp=8f7da383c43b818a50a85839a13a314856d4b563;hb=48108c3999d28d973443fa5e78f73a0a9f2bfc07;hpb=5c6529795907ba1b34d4552cbfd0e0cbb77cac0f diff --git a/epclust/R/utils.R b/epclust/R/utils.R index 8f7da38..e0f25ec 100644 --- a/epclust/R/utils.R +++ b/epclust/R/utils.R @@ -10,26 +10,20 @@ toInteger <- function(x, condition) x } -#TODO: merge these 2 next ?! -serialize = function(coeffs) +writeCoeffs = function(coeffs) { + file = ".coeffs" #......... #C function (from data.frame, type of IDs ??! force integers ? [yes]) #return raw vector -} -appendBinary = function(.......) -{ #take raw vector, append it (binary mode) to a file +#TODO: appendCoeffs() en C --> serialize et append to file } -#finalizeSerialization = function(...) -#{ -# #write number of series, and length of each... -#} - -deserialize = function(coeffs, range) +readCoeffs = function(indices) { #...... + file = ".coeffs" #C function (from file name) } @@ -37,8 +31,3 @@ getSeries(data, rank=NULL, id=NULL) { #TODO: } - -getCoeffs(.....) #FROM BINARY FILE !!! -{ - -}