readex.gdsn {gdsfmt} | R Documentation |
Get data from a GDS node with subset selection.
readex.gdsn(node, sel=NULL, simplify=c("auto", "none", "force"), .useraw=FALSE, .value=NULL, .substitute=NULL)
node |
an object of class |
sel |
a list of |
simplify |
if |
.useraw |
use R RAW storage mode if integers can be stored in a byte, to reduce memory usage |
.value |
a vector of values to be replaced in the original data array, or NULL for nothing |
.substitute |
a vector of values after replacing, or NULL for
nothing; |
If sel
is a list of numeric vectors, the internal method converts
the numeric vectors to logical vectors first, extract data with logical
vectors, and then call [
to reorder or expend data.
Return an array.
Xiuwen Zheng
http://github.com/zhengxwen/gdsfmt
read.gdsn
, append.gdsn
,
write.gdsn
, add.gdsn
# cteate a GDS file f <- createfn.gds("test.gds") add.gdsn(f, "vector", 1:128) add.gdsn(f, "matrix", matrix(as.character(1:(10*6)), nrow=10)) f # read vector readex.gdsn(index.gdsn(f, "vector"), sel=rep(c(TRUE, FALSE), 64)) readex.gdsn(index.gdsn(f, "vector"), sel=c(4:8, 1, 2, 12)) readex.gdsn(index.gdsn(f, "vector"), sel=-1:-10) readex.gdsn(index.gdsn(f, "vector"), sel=c(4, 1, 10, NA, 12, NA)) readex.gdsn(index.gdsn(f, "vector"), sel=c(4, 1, 10, NA, 12, NA), .value=c(NA, 1, 12), .substitute=c(6, 7, NA)) # read matrix readex.gdsn(index.gdsn(f, "matrix")) readex.gdsn(index.gdsn(f, "matrix"), sel=list(rep(c(TRUE, FALSE), 5), rep(c(TRUE, FALSE), 3))) readex.gdsn(index.gdsn(f, "matrix"), sel=list(NULL, c(1,3,6))) readex.gdsn(index.gdsn(f, "matrix"), sel=list(rep(c(TRUE, FALSE), 5), c(1,3,6))) readex.gdsn(index.gdsn(f, "matrix"), sel=list(c(1,3,6,10), c(1,3,6))) readex.gdsn(index.gdsn(f, "matrix"), sel=list(c(-1,-3), -6)) readex.gdsn(index.gdsn(f, "matrix"), sel=list(c(1,3,NA,10), c(1,3,NA,5))) readex.gdsn(index.gdsn(f, "matrix"), sel=list(c(1,3,NA,10), c(1,3,NA,5)), simplify="force") readex.gdsn(index.gdsn(f, "matrix"), sel=list(c(1,3,NA,10), c(1,3,NA,5))) readex.gdsn(index.gdsn(f, "matrix"), sel=list(c(1,3,NA,10), c(1,3,NA,5)), .value=NA, .substitute="X") # close the GDS file closefn.gds(f) # delete the temporary file unlink("test.gds", force=TRUE)