# GENOME.class <- read.big.fasta("Alignment.fas")
# GENOME.class
# GENOME.class@region.names
# GENOME.class.slide <- sliding.window.transform(GENOME.class,100,100)
# GENOME.class <- neutrality.stats(GENOME.class,FAST=TRUE)
# show the result:
# get.sum.data(GENOME.class)
# GENOME.class@region.data
Run the code above in your browser using DataLab