tests/testthat/test_modsToTable.R

context("modstoTable.R")

test_that("modstoTable", {
  r = modsToTable(c("A", "Unmodified", "A,B", "C", "Unmodified", "Unmodified"))
 

  exp = data.frame(modification_names = factor(c("A", "B", "C", "Unmodified")), 
                   Freq = c(200/6, 100/6, 100/6, 300/6))
  testthat::expect_equal(r, exp)
})

Try the PTXQC package in your browser

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

PTXQC documentation built on May 29, 2024, 9:26 a.m.