tests/testthat/test_createEdgesVariables.R

In saezlab/CARNIVAL: A CAusal Reasoning tool for Network Identification (from gene expression data) using Integer VALue programming

### This script is a unit test for the function createEdgesVariables
#
# Matteo Spatuzzi 2021

nodenames = c(paste("Node", seq(1, 5), sep = ""))

#Create Dummy Data
priorKnowledgeNetwork_1 <- matrix( c(nodenames[1], 1, nodenames[4], 
                                     nodenames[2], 1, nodenames[4],
                                     nodenames[3], -1, nodenames[1],
                                     nodenames[3], -1, nodenames[2],
                                     nodenames[4], 1, nodenames[5]), 
                                   byrow = T, ncol = 3 ) %>% as.data.frame()
colnames(priorKnowledgeNetwork_1) <- c("Node1", "sign", "Node2")

edgesVariables <- CARNIVAL:::createEdgesVariables(priorKnowledgeNetwork_1)
edgesVariables_expected <- data.frame(Node1 = c("Node1", "Node2", "Node3", "Node3", "Node4"), 
                                      sign = c("1" , "1", "-1", "-1", "1"), 
                                      Node2 = c("Node4", "Node4", "Node1", "Node2", "Node5"), 
                                      edgesUpVars = c("eU1", "eU2", "eU3", "eU4", "eU5"), 
                                      edgesDownVars = c("eD1", "eD2", "eD3", "eD4", "eD5"))

test_that("Edges variables check:", {
    expect_equal(edgesVariables_expected, edgesVariables)
})

edgesVariables <- CARNIVAL:::createEdgesVariables(priorKnowledgeNetwork_1,prefixes= c("edgeUp" = "EU", 
                                                                                      "edgeDown" = "ED"))

edgesVariables_expected <- data.frame(Node1 = c("Node1", "Node2", "Node3", "Node3", "Node4"), 
                                      sign = c("1" ,"1", "-1", "-1", "1"), 
                                      Node2 = c("Node4", "Node4", "Node1", "Node2", "Node5"), 
                                      edgesUpVars = c("EU1", "EU2", "EU3", "EU4", "EU5"), 
                                      edgesDownVars = c("ED1", "ED2", "ED3", "ED4", "ED5"))


test_that("Comparison of the results", {
    expect_equal(edgesVariables_expected, edgesVariables)
})