Mercurial > repos > peter-waltman > ucsc_cluster_tools2

diff cluster.tools/fix.and.merge.TCGA.sample.IDs.R @ 3:563832f48c08 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author peter-waltman
date Fri, 01 Mar 2013 19:51:25 -0500
parents dddfeedb85af
children
line wrap: on
line diff
--- a/cluster.tools/fix.and.merge.TCGA.sample.IDs.R	Fri Mar 01 10:17:24 2013 -0500
+++ b/cluster.tools/fix.and.merge.TCGA.sample.IDs.R	Fri Mar 01 19:51:25 2013 -0500
@@ -48,7 +48,6 @@
   cat( err.msg, file=opt$output.fname )
   stop( err.msg )
 }
-
 remove.periods.from.ids <- function( ids ) {
   return( gsub( "\\.", "-", ids ) )
 }
@@ -115,6 +114,7 @@
   if ( nelts > 3 ) {
     normals <- grepl( "^TCGA-..-....-1", cnames )
     data <- data[ , (! normals ), drop=FALSE ]
+    cnames <- cnames[ ! normals ]
   }
 }