#breaks
    bk <- c(0,seq(0,10,by=2))
    #colors (one less than breaks
    mycols <- c("white",colorRampPalette(colors = c("green","red"))(length(bk)-2))


    A_heatmap <- heatmap(A_matrix, Rowv=NA, Colv=NA, col=mycols,][1] breaks=bk, scale ="none")