# Test the data set robespierre
test.wam.specificities.dataset <- function() {
data(robespierre, package="wam")
N <- sum(robespierre$k)
checkEqualsNumeric(N, robespierre$N[1])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.