# NOT RUN {
data(bnrf1)
bnrf1EB[1:500]
table(bnrf1EB)
table(bnrf1HV)
n <- length(bnrf1HV)
table(t = bnrf1HV[-1], "t-1" = bnrf1HV[-n])
plot(as.integer(bnrf1EB[1:500]), type = "b")
# }
# NOT RUN {
## Simplistic gene matching:
percent.eq <- sapply(0:200,
function(i) 100 * sum(bnrf1EB[(1+i):(n+i)] == bnrf1HV))/n
plot.ts(percent.eq)
# }
Run the code above in your browser using DataLab