###################################################
### chunk number 1: 
###################################################
library(GeneRfold)
s <- "TTAGCTCAATTGGTAAAGACCCTAGGCGAAGCTTAGAGGTCGCCGGTT"
fold(s)


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