tests/testthat/tests_preprocessPriorKnowledgeNetwork.R

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

##This function runs a unit test for the function preprocessPriorKnowledgeNetwork
#
# Matteo Spatuzzi 2021

# Create dummy network
nodenames = c(paste("Node", seq(1, 5), sep = ""))

dummy_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()

expected_priorKnowledgeNetwork_1 <- dummy_priorKnowledgeNetwork_1
colnames(dummy_priorKnowledgeNetwork_1) = c("source", "interaction", "target")
colnames(expected_priorKnowledgeNetwork_1) = c("Node1", "interaction", "target")

preprocessPriorKnowledgeNetwork(dummy_priorKnowledgeNetwork_1)

#TODO finish