\name{CreateNetwork}
\alias{CreateNetwork}
\alias{DeleteNetwork}
\title{
  Creates (destroys) a new Netica network.
}
\description{
  \code{CreateNetwork()} makes a new empty network in Netica, returning
  new \code{\linkS4class{NeticaBN}} objects.
  \code{DeleteNetwork()} frees the memory associated with the named
  network inside of Netica.
}
\usage{
CreateNetwork(names, session=getDefaultSession())
DeleteNetwork(nets)
}
\arguments{
  \item{names}{
    A character vector giving the name or names of the network to be created.
}
  \item{session}{An object of type \code{\linkS4class{NeticaSession}}
    which defines the reference to the Netica workspace.}
  \item{nets}{
    A list of \code{\link{NeticaBN}} objects to be destroyed.
}
}
\details{

  The \code{CreateNetwork} method creates a new network for each of the
  names.  Names must follow the \code{\link{IDname}} rules.  It returns
  a \code{\linkS4class{NeticaBN}} object, or a list of such objects if
  the argument \code{names} has length greater than 1.

  The \code{DeleteNetwork} method frees the Netica memory associated
  with each net in its argument.  Note that the network will not be
  available for use after it is deleted.  It returns the
  \code{\link{NeticaBN}} objects, but modified so that they are no
  longer active.

  The function \code{\link{is.active}()}, checks to see if the network
  associated with a \code{\linkS4class{NeticaBN}} object still corresponds to a
  network loaded into Netica's memory.

  These functions wrap the Netica API functions \code{NewNet_bn()} and
  \code{DeleteNet_bn()}. 
}
\value{

  A single \code{\linkS4class{NeticaBN}} object if the length of the
  argument is 1, and a list of such objects if the argument has length
  greater than 1.  For \code{DeleteNets()} if a specified network does
  not exist, the corresponding element in the return list will be
  \code{NULL}.
  
}
\references{
\newcommand{\nref}{\href{http://norsys.com/onLineAPIManual/functions/#1.html}{#1}}
  \url{http://norsys.com/onLineAPIManual/index.html}:
  \nref{NewNet_bn()}, \nref{DeleteNet_bn()}
}
\author{
  Russell Almond
}
\note{
  The function \code{DeleteNetwork()} implicitly deletes any nodes
  associated with the network.  Therefore, any nodes associated with
  this network will become inactive (see \code{\link{is.active}()}).
}
\section{Implementation Note}{

  In RNetica version 0.5 and later, the \code{\linkS4class{NeticaBN}} is
  used to store the refernce to the network. The enclosing
  \code{\linkS4class{NeticaSession}} object contains a table of network
  names to \code{NeticaBN} objects giving the pointer.  It will signal
  an error if a network with the given name already exists and is active
  (not deleted).

  In RNetica version 0.4 and prior, the \code{NeticaBN} object used the
  name of the networks to store the pointer into the network.  

}
\seealso{
  \code{\linkS4class{NeticaBN}}
  \code{\link{CopyNetworks}()}, \code{\link{is.active}()}
}
\examples{
sess <- NeticaSession()
startSession(sess)

net1 <- CreateNetwork("EmptyNet", session=sess)
stopifnot(is(net1,"NeticaBN"))
stopifnot(net1$Name=="EmptyNet")
stopifnot(is.active(net1))

netd <- DeleteNetwork(net1)
stopifnot(!is.active(netd))
stopifnot(!is.active(net1))
stopifnot(netd$Name=="EmptyNet")

stopSession(sess)
}
\keyword{ interface }
\keyword{ utilities }