comparison cluster.tools/fix.and.merge.TCGA.sample.IDs.R @ 1:dddfeedb85af draft

Uploaded

0:0decf3fd54bc

                \n\n")
args <- commandArgs(TRUE)
if ( length( args ) == 1 && args =="--help") { 
  write(argspec, stderr())
  q();
}

lib.load.quiet <- function( package ) {
   package <- as.character(substitute(package))
   suppressPackageStartupMessages( do.call( "library", list( package=package ) ) )

  data <- merge.cols( data, cnames )
}

if ( transpose.back ) data <- t( data )

write.table( data, opt$output.fname, sep="\t", quote=FALSE, col.names=NA )

1:dddfeedb85af

                \n\n")
args <- commandArgs(TRUE)
if ( length( args ) == 1 && args =="--help") { 
  write(argspec, stderr())
  q();
}

## some helper fn's
write.2.tab <- function( mat,
                         fname ) {
  mat <- rbind( colnames( mat ), mat )
  mat <- cbind( c( "ID", rownames( mat )[-1] ),
                      mat )
  write.table( mat, fname, sep="\t", row.names=FALSE, col.names=FALSE, quote=FALSE )
}

lib.load.quiet <- function( package ) {
   package <- as.character(substitute(package))
   suppressPackageStartupMessages( do.call( "library", list( package=package ) ) )

  data <- merge.cols( data, cnames )
}

if ( transpose.back ) data <- t( data )

write.2.tab( data, opt$output.fname )