Yeah I'm good like that. What I was looking for is capture.output()

    capture.output({ # {{{
      clusts <- suppressWarnings(heatmap.3(t(tmp), scale="none", trace="none",
                                 color.FUN=get(col.fun), dendrogram='none',
                                 labCol=snps, kr=individuals, Colv=T, Rowv=T,
                                 labRow=colnames(x), main=heading))
      clusts$clusters <- clusts$row.clusters
      clusts$ind <- clusts$rowInd
    }) # }}}


--t

On Jul 29, 2013, at 4:35 PM, Steve Lianoglou <lianoglou.steve@gene.com> wrote:

> Hi,
> 
> On Mon, Jul 29, 2013 at 1:38 PM, Tim Triche, Jr. <tim.triche@gmail.com> wrote:
>> So here is something I came across in my code:
>> 
>> 
>> 
>> --t
> 
> ... you came across a blank line or two? Fascinating ... :-)
> 
> -steve
> 
> -- 
> Steve Lianoglou
> Computational Biologist
> Bioinformatics and Computational Biology
> Genentech

	[[alternative HTML version deleted]]

