Nothing
test_that("The function works as expected", {
skip_if_not_installed("keras")
skip_if_not_installed("tensorflow")
skip()
skip_on_cran()
skip_on_covr()
skip_on_ci()
testing_data <- testing_helper_2()
nn <- keras_test_model()
# compile the model
keras::compile(nn,
loss = "mse",
optimizer = keras::optimizer_adam(),
metrics = "mse")
# train the model
keras::fit(nn,
testing_data$train_x,
testing_data$train_y,
verbose = 0,
epochs = 30,
validation_split = 0.3
)
# compute the different plots
plots <- plot_taylor_and_activation_potentials(
object = nn,
data = cbind(testing_data$train_x, testing_data$train_y),
taylor_orders = testing_data$taylor_orders,
max_order = 3,
constraints = FALSE)
# test the different plots
vdiffr::expect_doppelganger("layer1", plots[[1]])
vdiffr::expect_doppelganger("layer2", plots[[2]])
vdiffr::expect_doppelganger("layer3", plots[[3]])
})
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.