Nothing
context("Checking whether attribute names are properly extracted")
p <- 5
n <- 100
test_that("attrnames finds the names of the attributes of a matrix", {
x <- matrix(seq_len(n), ncol = p)
colnames(x) <- letters[seq_len(p)]
expect_true(
setequal(
attrnames(x), c("dim", "dimnames")
)
)
})
test_that("attrnames finds the names of the attributes of a data frame", {
x <- matrix(seq_len(n), ncol = p)
colnames(x) <- letters[seq_len(p)]
y <- data.frame(x)
expect_true(
setequal(
attrnames(y), c("names", "row.names", "class")
)
)
})
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.