test_that("profile tests work" , { data <- cbind(iris[,5], iris[,1:4]) expect_type(k.sample.profile(data, K = 3), "list") })
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.