seqfile=system.file("sequence", "EGFP.fasta", package="GeneGA")
seq=unlist(getSequence(read.fasta(seqfile), as.string=TRUE))
GeneGA.result=GeneFoldGA(sequence=seq, popSize=40, iters=100, crossoverRate=0.3,
mutationChance=0.05, region=c(1,42))
plotGeneGA(GeneGA.result)
Run the code above in your browser using DataLab