# the GDS file
(gds.fn <- seqExampleFileName("gds"))
# display
(f <- seqOpen(gds.fn))
summary(seqMissing(f, TRUE, .progress=TRUE))
summary(seqMissing(f, FALSE, .progress=TRUE))
# close the GDS file
seqClose(f)
Run the code above in your browser using DataLab