PopGplot(values,colors=FALSE,span=0.1,ylab="",xlab="",
ylim=c(min(values,na.rm=TRUE),max(values,na.rm=TRUE)))
# GENOME.class <- readSNP("Arabidopsis",CHR=1)
# GENOME.class.slide <- sliding.window.transform(test,1000,1000)
# GENOME.class.slide <- diversity.stats(GENOME.class.slide)
# values <- GENOME.class.slide@nuc.divesity.within
# PopGplot(values)
Run the code above in your browser using DataLab