projects
/
epclust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
major folder reorganisation, R pkg is now epclust/ at first level. Experimental usage...
[epclust.git]
/
old_C_code
/
stage1
/
wrapper.R
diff --git
a/code/stage1/wrapper.R
b/old_C_code/stage1/wrapper.R
similarity index 85%
rename from
code/stage1/wrapper.R
rename to
old_C_code/stage1/wrapper.R
index
0a957d8
..
0ce9786
100644
(file)
--- a/
code/stage1/wrapper.R
+++ b/
old_C_code/stage1/wrapper.R
@@
-33,3
+33,10
@@
getMedoids = function(path=".", xmlResult = "ppamResult.xml",
ranks = as.integer( xmlToList( xmlParse(xmlResult) )$ranks )
return ( curves[ranks,] ) # == medoids
}
ranks = as.integer( xmlToList( xmlParse(xmlResult) )$ranks )
return ( curves[ranks,] ) # == medoids
}
+
+#TODO: check C function( is it correct?!)
+getDistor = function(path=".", xmlResult = "ppamResult.xml",
+ finalSeries = "ppamFinalSeries.bin")
+{
+ system(paste(path,"/ppam.exe classif ",finalSeries," ",xmlResult,sep=""))
+}