tests/robespierre.R

# Test the data set robespierre

test.wam.specificities.dataset <- function() {
	data(robespierre, package="wam")
	N <- sum(robespierre$k)
	checkEqualsNumeric(N, robespierre$N[1])
}
sylvainloiseau/wam documentation built on Feb. 12, 2020, 12:30 a.m.