tests/testthat/test-lolliplot_AA2sidechain.R

test_that("lolliplot_AA2sidechain, converts amino acid codes to sidechain information", {
    x <- c("f")
    out <- lolliplot_AA2sidechain(x)
    expect_equal(out, "Nonpolar")
    
    x <- c("F")
    out <- lolliplot_AA2sidechain(x)
    expect_equal(out, "Nonpolar")
})

Try the GenVisR package in your browser

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

GenVisR documentation built on March 18, 2018, 2:36 p.m.