\name{NetworkName}
\alias{NetworkName}
\alias{NetworkName<-}
\title{
  Gets or Sets the name of a Netica network.
}
\description{
  Gets or sets the name of the network. Names must conform to the
  \code{\link{IDname}} rules.
}
\usage{
NetworkName(net)
NetworkName(net) <- value
}
%- maybe also 'usage' for other objects documented here.
\arguments{
  \item{net}{
    A \code{\link{NeticaBN}} object which links to the network.
}
  \item{value}{
    A character scalar containing the new name.
}
}
\details{
  Network names must conform to the \code{\link{IDname}} rules for
  Netica identifiers.  Trying to set the network to a name that does not
  conform to the rules will produce an error, as will trying to set the
  network name to a name that corresponds to another different network.

  The \code{\link{NetworkTitle}()} function provides another way to name
  a network which is not subject to the \code{IDname} restrictions.
}
\value{
  The name of the network as a character vector of length 1.

  The setter method returns the modified object.
}
\references{
\newcommand{\nref}{\href{http://norsys.com/onLineAPI/functions/#1.html}{#1()}}
  \url{http://norsys.com/onLineAPI/Manual/index.html}:
    \nref{GetNetName_bn}, \nref{SetNetName_bn}
}
\author{
  Russell Almond
}
\note{
  \code{NeticaBN} objects are internally implemented as character vectors
  giving the name of the network.  If a network is renamed, then it is
  possible that R will hold onto an old reference that still using the
  old name.  In this case, \code{NetworkName(net)} will give the correct
  name, and \code{GetNamedNets(NetworkName(net))} will return a
  reference to a corrected object.
}
\seealso{
  \code{\link{CreateNetwork}()}, \code{\link{NeticaBN}},
  \code{\link{GetNamedNetworks}()}, \code{\link{NetworkTitle}()} 
}
\examples{
net <- CreateNetwork("funNet")
netcached <- net

stopifnot(NetworkName(net)=="funNet")

NetworkName(net)<-"SomethingElse"
stopifnot(as.character(net)=="SomethingElse")

##Warning, the following expression is true!
as.character(netcached) != NetworkName(netcached)
## But this one holds
stopifnot(NetworkName(net)==NetworkName(netcached))
## And this one
stopifnot(net==netcached)

## This fixes the problem
NetworkName(netcached) <- NetworkName(netcached)
stopifnot(as.character(netcached) == NetworkName(netcached))

DeleteNetwork(net)
}
\keyword{ interface }
\keyword{ attribute }% __ONLY ONE__ keyword per line