crit2cost {DendSer}

Cost function from seriation criterion

Description

Returns a cost function from seriation criterion (package seriation)

Usage

crit2cost(crit)

Arguments

crit

One of seriation::list_criterion_methods("dist")

Examples

	 			
require(DendSer) 			

d<- dist(iris[1:20,-5])
h <- hclust(d)
DendSer(h,d,cost=function(x,o,...) criterion(as.dist(x),o,method="AR_deviations"))
DendSer(h,d,cost=crit2cost("AR_deviations")) # short version of above
DendSer(h,d,cost=crit2cost("ME"))

# use DendSer methods via seriate
# get_order(seriate(d,method="Dendser", control=list(hclust=h,cost=costARc))) 
DendSer(h,d,cost=costARc)