data("dna.obj")
## original data
x<-dna.obj
range(x)
x@seqlengths
## Only gaps '-' are removed from sequences.
x<-remove.gaps(dna.obj, entire.col=FALSE)
range(x)
x@seqlengths
## entire columns with gaps are removed.
x<-remove.gaps(dna.obj, entire.col=TRUE)
range(x)
x@seqlengths
Run the code above in your browser using DataLab