\name{annotReciprocal}
\alias{annotReciprocal}
\title{annotReciprocal}
\usage{
annotReciprocal(dataGraph, file,
keepOnlyReciprocal = FALSE)
}
\arguments{
\item{dataGraph}{data.frame which contains the graph
description, must have two columns \code{n1} and
\code{n2} filled with node IDs, each row denoting there
is an edge from \code{n1} to \code{n2}.}

\item{file}{file where the graph description is written}

\item{keepOnlyReciprocal}{if TRUE \code{dataGraph} is
restricted to reciprocal edges, else all edges are kept
(default).}
}
\value{
This function returns the argument \code{dataGraph} with
an additional column named 'reciprocal' which contains
TRUE if the edge described by the row is reciprocal, and
FALSE if it is not reciprocal.
}
\description{
This function notes edges of a graph as reciprocal or
not.
}
\examples{
dg <- data.frame(n1=c("A","B","B","C","C","D","E","F"),n2=c("B","G","A","B","D","C","F","E"))
annotReciprocal(dataGraph=dg)
}
\author{
Anne Biton
}