Friday, June 8, 2012
read cel file
library(affxparser)
celfile = "E:\\CEL\\BreastCancer\\GSE28821_LCM\\OneBatch\\GSM713753.CEL"
dat.header <- readCelHeader(celfile)$datheader
split.header <- strsplit(dat.header, " ")[[1]]
scan.date <- grep("\\d+\\/\\d+\\/\\d+", split.header, perl=T, value = T)
scan.time <- grep("\\d+:\\d+:\\d+", split.header, perl=T, value = T)
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment