tests/testthat/test_biomart.R

context("biomart")

test_that("convert_ids", {
  data_table <- data.frame(Protein = c("Q01581", "P49327", "2/P63261/P60709"), 
                           Abundance = c(100, 3390, 43423))
  result <- convert_protein_ids(data_table)
  expect_that(result[which(result$Protein == "Q01581"), "hgnc_symbol"], equals("HMGCS1"))
  expect_that(result[which(result$Protein == "P49327"), "hgnc_symbol"], equals("FASN"))
 })

Try the SWATH2stats package in your browser

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

SWATH2stats documentation built on April 17, 2021, 6:01 p.m.