inst/unitTests/CreateNetworkForTest_SifFileReader.r

In CausalR: Causal network analysis methods

# Copyright: Copyright 2012 GSK. All rights reserved
#
# *** SVN ***
# LastChanged: 	$Date: 2013-01-06 21:19:06 +0000 (Sun, 06 Jan 2013) $
# Changed By:  	$Author: rild $
# Version:		$Revision: 389 $
# Source:		$HeadURL: file:///L:/7000-7499/7412/SVNrepository/trunk/NetworkFileReader/CreateNetworkForTest_SifFileReader.r $
# 
# *** Summary ***
# Description: Create a network for use in the testsuite for CreateCG

CreateNetworkForTest_SifFileReader <- function(){
  network <- graph.formula( "node0" -+ "node1", "node0" -+ "node2")
  return(network)
}