context("relative warps")
test_that("relwarps behaves", {
data(boneData)
rW.baseline=readRDS("testdata/rW.rds")
rwtest <- relWarps(boneLM)
expect_equal(lapply(rwtest,abs),lapply(rW.baseline,abs),tol=1e-7,check.attributes = FALSE)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.