tests/testthat/test-cmdscalesammon.R

context("cmdscale and sammon")

library(cops)

initsam <- sammon(dis^3)
expect_that(initsam,is_a("sammon"))
expect_that(initsam,is_a("cmdscale"))

Try the cops package in your browser

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

cops documentation built on Oct. 29, 2019, 3:01 a.m.