### R code from vignette source 'vignettes/GeneRfold/inst/doc/GeneRfold.Rnw'

###################################################
### code chunk number 1: GeneRfold.Rnw:33-36
###################################################
library(GeneRfold)
s <- "TTAGCTCAATTGGTAAAGACCCTAGGCGAAGCTTAGAGGTCGCCGGTT"
fold(s)


###################################################
### code chunk number 2: GeneRfold.Rnw:44-47
###################################################
s <- "TTAGCTCAATTGGTAAAGACCCTAGGCGAAGCTTAGAGGTCGCCGGTT"
dotPlot(s,file="dot.ps")
rnaPlot(s,file="rna.ps")