tests/testthat/test_featurePrior_GPC.R

In jchitpin/blistR:

library(testthat)
library(data.table)

test_that("Test featurePrior GPC", {

    featureLib <- readRDS("/home/jchitpin/Downloads/Masters/Projects/MATRIX/RPackages/testData/testthat_20170117_Weston validation plasma_PC MRM_HX.rds")
    mmi <- readRDS("/home/jchitpin/Downloads/Masters/Projects/MATRIX/RPackages/testData/testthat_mmi_20170117_Weston validation plasma_PC MRM_HX.rds")

    prior <- featurePrior(DT_featureLibrary = featureLib, DT_methodMassInfo = mmi)

    trueData <- readRDS(file = "/home/jchitpin/Downloads/Masters/Projects/MATRIX/RPackages/testData/testthat_prior_20170117_Weston validation plasma_PC MRM_HX.rds")

    expect_equal(prior, trueData)
})