Wrapper to function 'write.table' used to write data to a tab-delimited file

Share:

Description

Wrapper for the function write.table to write data to a tab-delimited file.

Usage

1

Arguments

...

arguments that get passed on to the function write.table.

Details

A trivial function, which we have included for convenience.

Value

The name of the file that was written.

Author(s)

Ligia Bras ligia@ebi.ac.uk

See Also

write.table

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
    data(KcViabSmall)
    x <- KcViabSmall
    ## determine the ratio between each well and the plate median
    xraw <- Data(x)
    y <- array(as.numeric(NA), dim=dim(xraw))
    nrWell <- prod(pdim(x))

    for(p in 1:max(plate(x))) {
      ind <- (1:nrWell)+nrWell*(p-1)
      samples <- (wellAnno(x)[ind]=="sample")
      y[ind, ,] <- apply(xraw[ind, , ,drop=FALSE], 2:3, function(w) w/median(w[samples], na.rm=TRUE))
    }
    y <- signif(y, 4)
    out <- y[,,1]
    out <- cbind(geneAnno(x), wellAnno(x), out)
    colnames(out) <- c("GeneID", "wellAnno",
       sprintf("Well/Median_r%d_ch%d", rep(1:dim(y)[2], dim(y)[3]), rep(1:dim(y)[3], each=dim(y)[2])))
    write.tabdel(out, file = tempfile())

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.