tests/testthat/test_acc.R

In road2stat/Rcpi: Molecular Informatics Toolkit for Compound-Protein Interaction in Drug Discovery

test_that("`acc()` works", {
    p   = 8    # p is the scales number
    n   = 200  # n is the amino acid number
    lag = 7    # the lag paramter
    mat = matrix(rnorm(p * n), nrow = p, ncol = n)

    expect_equal(length(acc(mat, lag)), 448L)
})