tests/test_net_align.R

library(Corbi)
library(tools)

setwd("net_align")

net_align("net1.txt", "net3.txt", "sim.txt")
if (Rdiff("answer1.txt", "net1.txt_result.txt") != 0) 
  stop("Failed in net_align.")
if (Rdiff("answer1_uni.txt", "list net1.txt_result.txt") != 0) 
  stop("Failed in net_align.")
wulingyun/Corbi documentation built on May 11, 2022, 11:32 p.m.