\HeaderA{writeclust}{Write a Bicluster as a CLuster Result}{writeclust}
\keyword{hplot}{writeclust}
\keyword{cluster}{writeclust}
\begin{Description}\relax
Draws a graph to compare the values inside the diffrent biclusters with the values outside the bicluster
\end{Description}
\begin{Usage}
\begin{verbatim}
writeclust(Biclusterresult,row=TRUE,noC=10)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{Biclusterresult}] BiclustResult object
\item[\code{row}] If TRUE, cluster of rows were written.
\item[\code{noC}] Number of Clusters written
\end{ldescription}
\end{Arguments}
\begin{Author}\relax
Sebastian Kaiser
\email{sebastian.kaiser@stat.uni-muenchen.de}
\end{Author}
\begin{Examples}
\begin{ExampleCode}

  s2=matrix(rnorm(400),20,20)
  s2[12:16,12:16]=rnorm(25,3,0.3)
  set.seed(1)
  bics <- biclust(s2,BCPlaid(), back.fit = 2, shuffle = 3, fit.model = ~m + a + b,
  iter.startup = 5, iter.layer = 30,  verbose = TRUE)
  writeclust(bics)

\end{ExampleCode}
\end{Examples}

