# NOT RUN {
## construct an obkSequences object ##
data(ToyOutbreakRaw)
attach(ToyOutbreakRaw)
x <- new("obkSequences", dna, individualID=dna.info$individualID,
date=dna.info$date)
x
detach(ToyOutbreakRaw)
## Load ToyOutbreak, a simulated outbreak stored in a obkData object ##
data(ToyOutbreak)
x <- ToyOutbreak
## show obkObject
##summary(x) # generates an error
## access raw content
get.dna(x)
## access data by locus
get.nlocus(x)
get.locus(x)
get.dna(x, locus=1)
get.dna(x, locus="gene2")
get.dna(x, locus=1:2)
get.nsequences(x)
get.nsequences(x, "bylocus")
get.sequences(x)
## access data by sequence ID
get.dna(x, id=c("10"))
get.dna(x, id=c("100","354"))
get.dna(x, id=c(100:105))
# }
Run the code above in your browser using DataLab