tests/testthat/test-flip.lms.R
In J0vid/Colormesh: Functions for Processing Image Color Data for Statistical Analysis
test_that("lm flipper works", {
guppy.lms <- tps2array(system.file("extdata", "original_lms.TPS", package = "Colormesh"))
flip.test <- flip.lms(landmarks = guppy.lms, imagedir = "../../inst/extdata/cropped_images/", side_data = c("right", rep("left", 9)))
did.it.flip <- flip.test[1,1,1] < guppy.lms[1,1,1]
expect_equal(did.it.flip, T)
})
J0vid/Colormesh documentation built on Feb. 4, 2022, 1:33 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("lm flipper works", {
guppy.lms <- tps2array(system.file("extdata", "original_lms.TPS", package = "Colormesh"))
flip.test <- flip.lms(landmarks = guppy.lms, imagedir = "../../inst/extdata/cropped_images/", side_data = c("right", rep("left", 9)))
did.it.flip <- flip.test[1,1,1] < guppy.lms[1,1,1]
expect_equal(did.it.flip, T)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.