Nothing
context("sperrorest-misc.R")
# dataset_distance Sat Jun 3 14:41:05 2017 ------------------------------------
test_that("dataset_distance works correctly", {
df <- data.frame(x = rnorm(100), y = rnorm(100))
out <- dataset_distance(df, df) # == 0
expect_equal(out, 0)
})
# add.distance Sat Jun 3 14:45:34 2017 ----------------------------------------
test_that("add.distance works correctly", {
data(ecuador) # Muenchow et al. (2012), see ?ecuador
nsp_parti <- partition_cv(ecuador)
nsp_parti <- add.distance(nsp_parti, data = ecuador)
expect_length(nsp_parti[[1]], 10)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.