add alternative approach from 2013-01
[synclust.git] / R / tests / runAll.R
CommitLineData
15d1825d
BA
1source("helpers.R")
2source("t.clustering.R")
3source("t.connexity.R")
4source("t.utils.R")
5
6dyn.load("../../src/synclust.so")
7
8functions = c(lsf.str())
9for (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)