library(testthat)
library(data.table)
library(openxlsx)
test_that("Test methodMassInfo GPC", {
mmi <- methodMassInfo(nameLibrary = "/home/jchitpin/Downloads/Masters/Projects/MATRIX/RPackages/testData/testthat_sampleGPCSMv67.xlsx")
truthData <- readRDS(file = "/home/jchitpin/Downloads/Masters/Projects/MATRIX/RPackages/testData/testthat_mmi_20170117_Weston validation plasma_PC MRM_HX.rds")
expect_equal(mmi, truthData)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.