## Not run:
# dna_file<-list.files(path=system.file("extdata",package="graphscan"),
# pattern="fna",full.names=TRUE)
# g1<-graphscan_1d(data=dna_file)
# g1<-cluster(g1)
# barplot(g1)
# ## End(Not run)
Run the code above in your browser using DataLab