inst/unitTests/intCriteria/runit_xie_beni.R

# ===========================================================================
# File: "runit_xie_beni.R"
#                        Created: 2012-11-13 11:28:57
#              Last modification: 2015-08-31 10:09:41
# Author: Bernard Desgraupes
# e-mail: <bernard.desgraupes@u-paris10.fr>
# Unit test file for the R package clusterCrit.
# ===========================================================================



test.xie_beni <- function() {
	dataPath <- file.path(path.package(package="clusterCrit"),"unitTests","data","testsInternal_400_4.Rdata")
	load(file=dataPath, envir=.GlobalEnv)
	idx <- intCriteria(traj_400_4, part_400_4[[4]], c("Xie_Beni"))
	cat(paste("\nFound idx =",idx))
	val <- 0.0776720010784792
	cat(paste("\nShould be =",val,"\n"))
	checkEqualsNumeric(idx[[1]],val)
}

Try the clusterCrit package in your browser

Any scripts or data that you put into this service are public.

clusterCrit documentation built on Nov. 23, 2023, 5:06 p.m.