createCel(affxparser)
createCel()所属R语言包：affxparser
Creates an empty CEL file
创建一个空的CEL文件
译者：生物统计家园网 机器人LoveR
描述----------Description----------
Creates an empty CEL file.
创建一个空的CEL的文件。
用法----------Usage----------
createCel(filename, header, nsubgrids=0, overwrite=FALSE, ..., verbose=FALSE)
参数----------Arguments----------
参数：filename
The filename of the CEL file to be created.
要创建的CEL文件的文件名。
参数：header
A list structure describing the CEL header, similar to the structure returned by readCelHeader(). This header can be of any CEL header version.
list（）返回一个readCelHeader结构描述CEL头，结构相似。这头是任何CEL头版本。
参数：overwrite
If FALSE and the file already exists, an exception is thrown, otherwise the file is created.
如果FALSE“文件已经存在，则抛出一个异常，否则该文件被创建。
参数：nsubgrids
The number of subgrids.
子网格数。
参数：...
Not used.
不使用。
参数：verbose
An integer specifying how much verbose details are outputted.
integer指定输出多少详细细节。
Details
详情----------Details----------
Currently only binary (v4) CEL files are supported. The current version of the method does not make use of the Fusion SDK, but its own code to create the CEL file.
目前只有二进制（V4）CEL文件的支持。当前版本的方法不使用的融合SDK，但它自己的代码来创建CEL的文件。
值----------Value----------
Returns (invisibly) the pathname of the file created.
回报（不可见）创建的文件的路径。
在CEL头冗余领域----------Redundant fields in the CEL header----------
There are a few redundant fields in the CEL header. To make sure the CEL header is consistent, redundant fields are cleared and regenerated. For instance, the field for the total number of cells is calculated from the number of cell rows and columns.
有几在CEL头的冗余字段。使确保CEL头是一致的，多余的字段被清除和再生。例如，计算单元总数领域从单元行和列的数目。
作者（S）----------Author(s)----------
Henrik Bengtsson (<a href="http://www.braju.com/R/">http://www.braju.com/R/</a>)
举例----------Examples----------
##############################################################[＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃ ＃＃＃＃＃＃＃＃＃＃＃]
if (require("AffymetrixDataTestFiles")) { # START #[开始＃]
##############################################################[＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃ ＃＃＃＃＃＃＃＃＃＃＃]
# Search for first available ASCII CEL file[搜索第一个可用的ASCII码为CEL文件]
path <- system.file("rawData", package="AffymetrixDataTestFiles")
files <- findFiles(pattern="[.](cel|CEL)$", path=path, recursive=TRUE, firstOnly=FALSE)
files <- grep("ASCII", files, value=TRUE)
file <- files[1]
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -[--------------------------------]
# Read the CEL header[阅读CEL头]
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -[--------------------------------]
hdr <- readCelHeader(file)
# Assert that we found an ASCII CEL file, but any will do[断言，我们发现一个ASCII CEL的文件，但将尽]
stopifnot(hdr$version == 3)
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -[--------------------------------]
# Create a CEL v4 file of the same chip type[创建一个相同的芯片类型为CEL V4文件]
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -[--------------------------------]
outFile <- file.path(tempdir(), "zzz.CEL")
if (file.exists(outFile))
file.remove(outFile)
createCel(outFile, hdr, overwrite=TRUE)
str(readCelHeader(outFile))
# Verify correctness by update and re-read a few cells[确认更新的正确性，并重新读了几单元]
intensities <- as.double(1:100)
indices <- seq(along=intensities)
updateCel(outFile, indices=indices, intensities=intensities)
value <- readCel(outFile, indices=indices)$intensities
stopifnot(identical(intensities, value))
##############################################################[＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃ ＃＃＃＃＃＃＃＃＃＃＃]
} # STOP #[停止＃]
##############################################################[＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃ ＃＃＃＃＃＃＃＃＃＃＃]
转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。
注：
注1：为了方便大家学习，本文档为生物统计家园网机器人LoveR翻译而成，仅供个人R语言学习参考使用，生物统计家园保留版权。
注2：由于是机器人自动翻译，难免有不准确之处，使用时仔细对照中、英文内容进行反复理解，可以帮助R语言的学习。
注3：如遇到不准确之处，请在本贴的后面进行回帖，我们会逐渐进行修订。
|
发表于 2012-2-25 11:05:51
