[synclust.git] / R / tests / runAll.R

source("helpers.R")
source("t.clustering.R")
source("t.connexity.R")
source("t.utils.R")

dyn.load("../../src/synclust.so")

functions = c(lsf.str())
for (func in functions)
{
	#ou test length(grep("test.", function)) > 0
	if (nchar(func) > 5 && substr(func, 1, 5) == "test.")
	{
		print(paste("run",func))
		eval(call(func))
	}
}

#sample call for full package :
#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)
Commit	Line	Data
15d1825d BA	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)