\name{CopyNetworks}
\alias{CopyNetworks}
\title{
  Makes copies of Netica networks.
}
\description{
  Makes a copy of the networks in the list \code{nets} giving them the
  names in \code{newnamelist}.  The \code{options} argument controls how
  much information is copied.
}
\usage{
CopyNetworks(nets, newnamelist, options = character(0))
}
\arguments{
  \item{nets}{
    A list of \code{\link{NeticaBN}} objects.
}
  \item{newnamelist}{
    A character vector of the same length as \code{nets} which gives the
    names for the newly created copies.
}
  \item{options}{
    A character vector containing information about what to copy.  The
    elements should be one of the values \code{"no_nodes"},
    \code{"no_links"}, \code{"no_tables"}, \code{"no_visual"}.
}
}
\details{
  Copies each of the networks in the \code{nets} lists, giving it a new
  name from the \code{newnamelist}. It returns a list of the new
  networks.  If the specified net does not exist, then a warning is
  issued and a \code{NULL} is returned instead of the corresponding
  \code{NeticaBN} object.
  
  The \code{options} argument is passed to the \code{options} argument
  of the Netica API function \code{CopyNet_bn()}.  Meanings for the
  various arguments can be found in the documentation for that
  function.  Note that Netica expects a list of comma separated values.
  RNetica will collapse the \code{options} argument into a comma
  separated list, so the argument can be given either as a character
  vector of length 1 containing a comma separated list, or the elements
  of that list in separate elements of a character vector.
}
\value{
  A list of \code{\link{NeticaBN}} objects corresponding to the new
  networks, or if the length of \code{nets} is one, a single
  \code{NeticaBN} object is returned instead.  A \code{NULL} is returned
  instead of the \code{NeticaBN} object if the corresponding element of
  \code{nets} does not exit.
}
\references{
\newcommand{\nref}{\href{http://norsys.com/onLineAPIManual/functions/#1.html}{#1()}}
\url{http://norsys.com/onLineAPIManual/index.html}:
\nref{CopyNet_bn}
}
\author{
  Russell Almond
}

\seealso{
  \code{\link{DeleteNetwork}()}
}
\examples{
sess <- NeticaSession()
startSession(sess)

net1 <- CreateNetwork("Original", session=sess)
nets <- CreateNetwork(paste("Original",2:3,sep=""), session=sess)

copy1 <-CopyNetworks(net1,"Copy1")
stopifnot(is(copy1,"NeticaBN"))
stopifnot(copy1$Name == "Copy1")
stopifnot(copy1 != net1)

netc <- CopyNetworks(nets,paste("Copy",2:3,sep=""))
stopifnot(all(sapply(netc,is,"NeticaBN")))
stopifnot(netc$Name == c("Copy2","Copy3"))

DeleteNetwork(c(netc,nets,list(copy1,net1)))
stopSession(sess)

}
\keyword{ interface }
\keyword{ utilities }