610168dddc918e75a1d3c9bca1fbf63fbed150d6
[synclust.git] / R / tests / runAll.R
1 source("helpers.R")
2 source("t.clustering.R")
3 source("t.connexity.R")
4 source("t.utils.R")
5
6 dyn.load("../../src/synclust.so")
7
8 functions = c(lsf.str())
9 for (func in functions)
10 {
11 #ou test length(grep("test.", function)) > 0
12 if (nchar(func) > 5 && substr(func, 1, 5) == "test.")
13 {
14 print(paste("run",func))
15 eval(call(func))
16 }
17 }
18
19 #sample call for full package :
20 #t = findSyncVarRegions(method="convex",M=NULL,k=10,alpha=0.0,gmode=1,K=5,dtype="spath",cmeth="HC",pcoef=2.2,h=5e-4,eps=1e-5,maxit=3e3,showLL=TRUE,disp=TRUE)