'update'
[epclust.git] / code / draft_R_pkg / R / main.R
CommitLineData
ac1d4231
BA
1epclust = function(data=NULL, con=NULL, raw=FALSE, K, nbPerChunk, ...)
2{
3
4
5#TODO: just a wrapper which calls ppam.exe (system("...")) and reads output (binary) file to retrieve medoids + IDs
6 #on input: can be data or con; data handled by writing it to file (ascii or bin ?!),
7 #con handled
8
9
10 #options for tmp files: in RAM, on disk, on DB (can be distributed)
11
12
13
14 if (!is.null(data))
15 {
16 #full data matrix
17
18 } else if (!is.null(con))
19 {
20 #incremental connection
21 #read it one by one and get coeffs until nbSeriesPerChunk
22 #then launch a clustering task............
23 } else
24 stop("at least 'data' or 'con' argument must be present")
25
26}