write.tabdel {cellHTS2} | R Documentation

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

### Description

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

### Usage

    write.tabdel(...)

### 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

        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())

[Package cellHTS2 version 2.4.1 Index]