# NOT RUN {
probes <- data.frame (ids = 1:3, probes = c ("acacacacacaca", "aaaaagggggtttttccccc",
"atgcgctagctcagc"))
probes <- count_GC (probe.var = probes$probes, trim.gc = FALSE, GCmin = 40, GCmax = 60,
add.to.data = TRUE, data = probes)
probes <- count_REP (probe.var = probes$probes, trim.rep = FALSE, n.crit = 5,
add.to.data = TRUE, data = probes)
# }
# NOT RUN {
# This function is using ViennaRNA service. ViennaRNA Package must be installed.
MFE.files.dir <- tempdir()
probes <- count_MFE (probe.var = probes$probes, RNAfold.path = "D:/Vienna/RNAfold.exe",
temperature = 40, trim.mfe = FALSE, MFEmin = 0,
MFE.files.dir = MFE.files.dir, delete.MFE.files = TRUE,
add.to.data = TRUE, data = probes, mc.cores = 1)
unlink (MFE.files.dir, recursive = TRUE)
# }
# NOT RUN {
probes <- count_TM (probe.var = probes$probes, TD.params = NULL, trim.tm = FALSE,
TMmin = 55, TMmax = 60, add.to.data = TRUE, data = probes,
digits = 4, mc.cores = 1)
# All in one command
# }
# NOT RUN {
# This function is using ViennaRNA service. ViennaRNA Package must be installed.
MFE.files.dir <- tempdir()
probes2 <- count_PhCh (probe.var = probes$probes, trim = FALSE,
nucl.pattern = c ("a", "t", "g", "c"), n.crit = 5,
MFE.files.dir = MFE.files.dir, delete.MFE.files = TRUE,
RNAfold.path = "D:/Vienna/RNAfold.exe", temperature = 40,
TD.params = NULL, digits = 3, mc.cores = 1,
data = probes)
unlink (MFE.files.dir, recursive = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab