context('test-neural_network.R')
test_that('Make sure neural network functions for multiple scenarios', {
# --{ This is broken for now! }--
expect_equal(1, 1)
# # Simple full scaled data set
# result <- footballstats::scaled.data %>%
# mltools::gen_nn(
# NN = list(
# REP = 1,
# THRESH = 0.04
# )
# )
#
# expect_that( result$model, is_a('nn') )
# expect_equal( result %>% length, 3 )
#
# # Minus the draw
# new.scaled <- footballstats::scaled.data %>%
# subset(scaled.data$res != 'D')
#
# # Take out Draws, can I still get a neural network (This is an edge case!)
# result <- new.scaled %>%
# mltools::gen_nn(
# NN = list(
# REP = 1,
# THRESH = 0.04
# )
# )
#
# expect_that( result$model, is_a('nn') )
# expect_equal( result %>% length, 3 )
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.