# cteate a GDS file
f <- createfn.gds("test.gds")
n <- add.gdsn(f, "int", val=1:24)
read.gdsn(n)
setdim.gdsn(n, c(6, 4))
read.gdsn(n)
setdim.gdsn(n, c(8, 5), permute=TRUE)
read.gdsn(n)
setdim.gdsn(n, c(3, 4), permute=TRUE)
read.gdsn(n)
n <- add.gdsn(f, "bit3", val=1:24, storage="bit3")
read.gdsn(n)
setdim.gdsn(n, c(6, 4))
read.gdsn(n)
setdim.gdsn(n, c(8, 5), permute=TRUE)
read.gdsn(n)
setdim.gdsn(n, c(3, 4), permute=TRUE)
read.gdsn(n)
# close the GDS file
closefn.gds(f)
# delete the temporary file
unlink("test.gds", force=TRUE)
Run the code above in your browser using DataLab