Nothing
#context("index_guess")
library(FCO)
library(testthat)
#Index Guess
test_that("Is CFI a GoF?",
{
out <- index_guess("CFI")
expect_equal(out, "GoF")
})
test_that("Is SRMR a BoF?",
{
out <- index_guess("SRMR")
expect_equal(out, "BoF")
})
test_that("Is something else?",
{
out <- index_guess("Donald")
expect_equal(out, "not a fit index")
})
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.