test_that("Test generate_sliding(sample_df, phy_mat)", {
sample_df <- generate_sliding(bears, 1, 10, 1)
expect_is(sample_df, "data.frame")
a <-dim(sample_df)
expect_equal(a[1], 10)
expect_equal(a[2], 3)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.