Nothing
library(testthat)
library(dplyr)
library(purrr)
# conference tests
testthat::test_that("number of columns in conference df is correct", {
expect_equal(ncol(conference), 3)
})
test_that("number of rows in conference df is correct", {
expect_equal(nrow(conference), 500)
})
test_that("Number of conferences for football is correct", {
expect_equal(length(which(conference$Sport =="Football")), 101)
})
test_that("Number of conferences for basketball is correct", {
expect_equal(length(which(conference$Sport =="Basketball")), 134)
})
test_that("Number of conferences for baseball is correct", {
expect_equal(length(which(conference$Sport =="Baseball")), 131)
})
test_that("Number of conferences for track is correct", {
expect_equal(length(which(conference$Sport =="Track")), 134)
})
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.