tests/testthat/test-vlr.R

library(balance)

data(iris)
x <- iris[,1:4]

test_that("this vlr matches the one used in propr", {

  expect_equal(
    as.numeric(propr:::lr2vlr(as.matrix(log(x)))),
    as.numeric(vlr(x))
  )
})

Try the balance package in your browser

Any scripts or data that you put into this service are public.

balance documentation built on July 10, 2019, 9:03 a.m.