#' Binary Heatmap for Standardized A Matrix
#'
#' @details creates a binarized heatmap of the A matrix
#' in which the value is 1 if the value in Amean is greater than
#' threshold * Asd and 0 otherwise
#' @param Amean the mean estimate for the A matrix
#' @param Asd the standard deviations on Amean
#' @param threshold the number of standard deviations above zero
#' that an element of Amean must be to get a value of 1
#' @return plots a heatmap of the A Matrix
#' @examples
#' data(SimpSim)
#' binaryA(SimpSim.result$Amean, SimpSim.result$Asd, threshold=3)
#' @export
binaryA <-function(Amean, Asd, threshold=3)
{
    BinA_Map <- ifelse(Amean/Asd > threshold,1,0)
    colnames(BinA_Map) <- colnames(BinA_Map, do.NULL=FALSE, prefix = "Pattern ")
    rownames(BinA_Map) <- rep(" ",nrow(BinA_Map))

    heatmap.2(BinA_Map, Rowv = FALSE, Colv = FALSE,dendrogram="none",
        scale="none",col = brewer.pal(3,"Blues"), trace="none",
        density.info="none",cexCol=1.3,srtCol=45,
        lmat=rbind(c(0, 3),c(2,1),c(0,4) ),
        lwid=c(1,10),lhei=c(1, 4, 1.2 ),
        main="Heatmap of Standardized A Matrix")
    mtext(paste("(Threshold = ", threshold, ")"))
}