data(dolomedes)
doloSpp <- substr(dimnames(dolomedes)[[1]], 1, 5)
slideNucDiag(dolomedes, doloSpp, 200, interval = 3)
slidND <- slideNucDiag(dolomedes, doloSpp, 200, interval = 3)
#Number of basepairs for each species
matplot(t(slidND), type = "l")
#Number of basepairs for a single species
plot(slidND[4, ], type = "l")
#Total number of basepairs per window
plot(colSums(slidND), type = "l")Run the code above in your browser using DataLab