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)