library(SeqVarTools)
library(Biobase)
gds <- seqOpen(seqExampleFileName("gds"))
sample.id <- seqGetData(gds, "sample.id")
sample.data <- AnnotatedDataFrame(data.frame(sample.id, stringsAsFactors=FALSE))
seqData <- SeqVarData(gds, sample.data)
Error in seqGetData(object, "sample.id") :
'gdsfile' should be a 'SeqVarGDSClass' object.