Description Usage Arguments Details Value Author(s) See Also Examples
Wrapper for the function write.table
to write data to a tabdelimited file.
1 
... 
arguments that get passed on to the function

A trivial function, which we have included for convenience.
The name of the file that was written.
Ligia Bras [email protected]
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*(p1)
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())

Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.