tests/testthat/test-prediction.R

In quollr: Visualising How Nonlinear Dimension Reduction Warps Your Data

test_that("predict_emb() works", {

  testthat::expect_snapshot(predict_emb(highd_data = scurve,
                                        model_highd = scurve_model_obj$model_highd,
                                        model_2d = scurve_model_obj$model_2d))

})

test_that("glance() works", {

  testthat::expect_snapshot(glance(highd_data = scurve,
                                   model_highd = scurve_model_obj$model_highd,
                                   model_2d = scurve_model_obj$model_2d))

})


test_that("augment() works", {

  testthat::expect_snapshot(augment(highd_data = scurve,
                                    model_highd = scurve_model_obj$model_highd,
                                    model_2d = scurve_model_obj$model_2d))

})

test_that("gen_diffbin1_errors() works", {

  testthat::expect_snapshot(gen_diffbin1_errors(highd_data = scurve,
                                                nldr_data = scurve_umap))

})

test_that("plot_rmse_layouts() works", {

  design <- gen_design(n_right = 6, ncol_right = 2)
  result <- plot_rmse_layouts(plots = scurve_plts,
                    design = design)

  testthat::expect_s3_class(result, "patchwork")

})