R/writeBiclusterResults.r

In biclust: BiCluster Algorithms

# Write bicluster results to a text file
# fileName - path to the file were biclusters are written
# bicResult - biclsuters results as a bicluster class
# geneNames - array with strings with gene Names
# arrayNames - array with string with condition names
# append - if true, adds the bicluster results to previous information in the text file, if this exists. Default false.
# delimiter - delimiter string between gene and condition names. Default " ".
writeBiclusterResults=function(fileName, bicResult, bicName, geneNames, arrayNames, append=FALSE, delimiter=" ")
  {
  write(bicName, file=fileName, append=append)
  for(i in 1:bicResult@Number)
    {
    listar=row(matrix(bicResult@RowxNumber[,i]))[bicResult@RowxNumber[,i]==T]
    listac=row(matrix(bicResult@NumberxCol[i,]))[bicResult@NumberxCol[i,]==T]
    write(c(length(listar), length(listac)), file=fileName, ncolumns=2, append=TRUE, sep =delimiter)
    write(geneNames[listar], file=fileName, ncolumns=length(listar), append=TRUE, sep =delimiter)
    write(arrayNames[listac], file=fileName, ncolumns=length(listac), append=TRUE, sep =delimiter)
    }
  }