inst/unitTests/extCriteria/runit_sokal_sneath2.R

In clusterCrit: Clustering Indices

# ===========================================================================
# File: "runit_sokal_sneath2.R"
#                        Created: 2012-11-06 20:02:30
#              Last modification: 2015-08-31 09:58:26
# Author: Bernard Desgraupes
# e-mail: <bdesgraupes@users.sourceforge.net>
# Unit test file for the R package clusterCrit.
# ===========================================================================



test.sokal_sneath2 <- function() {
	dataPath <- file.path(path.package(package="clusterCrit"),"unitTests","data","testsExternal100.Rdata")
	load(file=dataPath, envir=.GlobalEnv)
	idx <- extCriteria(clus_p2, clus_p3, c("Sokal_Sneath2"))
	val <- 0.677354709418838
	cat(paste("\nShould be =",val,"\n"))
	cat(paste("\nFound idx =",idx,"\n"))
	checkEqualsNumeric(idx[[1]],val)
}