tests/testthat/test-gd.R

In maialab/agvgd: An R Implementation of the 'Align-GVGD' Method

test_that("basic usage", {
  aa <- c("S", "R", "L", "P", "T", "A", "V", "G", "I", "F", "Y", "C",
    "H", "Q", "N", "K", "D", "E", "M", "W")

  object <-
    gd(
      aa,
      c_min = 0.39,
      c_max = 0.74,
      p_min = 4.9,
      p_max = 8.6,
      v_min = 3,
      v_max = 32.5
    )
  expected <-
    c(
      47.6965390543174,
      97.6733992923215,
      83.9237603049316,
      0,
      28.8759472466354,
      26.7824788970194,
      58.6513856612305,
      6.47349493009395,
      83.9237603049316,
      104.309466860681,
      105.673906031058,
      139.902613703392,
      70.62528429328,
      62.2981746501334,
      67.5704812463658,
      98.0167155880827,
      86.46869512714,
      79.7268262380638,
      78.1865561597548,
      140.453301780168
    )

  expect_equal(object, expected)
})