tests/testthat/test.R

In JianboFu0406/EVALFQ111: R Package for Evaluating Label-Free Proteome Quantification

library(EVALFQ)
context('Testing EVALFQ - Basic Functionality')

test_that('Evaluating Label-Free Proteome Quantification', {
  mdata <- lfqevalupart(data_q=my_df, selectFile=selectworkflows, Ca="1", Cb="1", Cc="1", Cd="1")
  #check results of overall rankings
  expect_equal(ncol(mdata), 9)
  expect_equal(colnames(mdata[1]), "Rank.OverallRank")
  expect_equal(colnames(mdata[2]), "Rank.Precision")
  expect_equal(colnames(mdata[3]), "Rank.Classification.Ability")
  expect_equal(colnames(mdata[4]), "Rank.Differential.Expression")
  expect_equal(colnames(mdata[5]), "Rank.Accuracy")
  expect_equal(colnames(mdata[6]), "Value.Precision")
  expect_equal(colnames(mdata[7]), "Value.Classification.Ability")
  expect_equal(colnames(mdata[8]), "Value.Differential.Expression")
  expect_equal(colnames(mdata[9]), "Value.Accuracy")
})