write.tabdel(cellHTS)
write.tabdel()所属R语言包:cellHTS
Wrapper to function 'write.table' used to write data to a
包装功能“write.table”用于数据写入到
译者:生物统计家园网 机器人LoveR
描述----------Description----------
Wrapper for the function write.table to write data to a tab-delimited file.
包装的功能write.table制表符分隔的文件中写入数据。
用法----------Usage----------
write.tabdel(...)
参数----------Arguments----------
参数:...
arguments that get passed on to the function write.table.
参数被传递到功能write.table。
Details
详情----------Details----------
A trivial function, which we have included for convenience.
一个微不足道的功能,这是我们为方便。
值----------Value----------
The name of the file that was written.
书面文件的名称。
作者(S)----------Author(s)----------
Ligia Braz <a href="mailto:ligia@ebi.ac.uk">ligia@ebi.ac.uk</a>
参见----------See Also----------
write.table
write.table
举例----------Examples----------
data(KcViabSmall)
x <- KcViabSmall
## determine the ratio between each well and the plate median[#确定彼此之间以及和板块中位数的比例。]
y <- array(as.numeric(NA), dim=dim(x$xraw))
nrWell <- dim(x$xraw)[1]
for(p in 1dim(x$xraw)[2])) {
samples <- (x$wellAnno[(1:nrWell)+nrWell*(p-1)]=="sample")
y[, p, , ] <- apply(x$xraw[, p, , , drop=FALSE], 3:4,
function(w) w/median(w[samples], na.rm=TRUE))
}
y <- signif(y, 4)
out <- matrix(y, nrow=prod(dim(y)[1:2]), ncol=dim(y)[3:4])
out <- cbind(x$geneAnno, x$wellAnno, out)
colnames(out) <- c(names(x$geneAnno), "wellAnno",
sprintf("Well/Median_r%d_ch%d",
rep(1:dim(y)[3], dim(y)[4]), rep(1:dim(y)[4], each=dim(y)[3])))
write.tabdel(out, file = tempfile())
转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。
注:
注1:为了方便大家学习,本文档为生物统计家园网机器人LoveR翻译而成,仅供个人R语言学习参考使用,生物统计家园保留版权。
注2:由于是机器人自动翻译,难免有不准确之处,使用时仔细对照中、英文内容进行反复理解,可以帮助R语言的学习。
注3:如遇到不准确之处,请在本贴的后面进行回帖,我们会逐渐进行修订。
|