nmcglincy

#' call primer3 for a given set of DNAstringSet object
#'
#' @param seq DNAstring object, one DNA string for the given amplicon
#' @param size_range default: '151-500'
#' @param Tm melting temprature parameters default:c(55,57,58)
#' @param name name of the amplicon in chr_start_end format
#' @param primer3 primer3 location
#' @param therme.param thermodynamic parameters folder
#' @param settings text file for parameters
#' @author Altuna Akalin modified Arnaud Krebs' original function

nmcglincy

library(ggplot2)

df = data.frame(foo = rep(c("foo", "bar"), each = 50),
                bar = c(rep("tom", 33),
                        rep("harry", 33),
                        rep("dick", 34)),
                big = runif(n = 100),
                small = rnorm(n = 100))

testPlot = function(df, var1, var2) {

nmcglincy

suppressMessages(library(dplyr))
suppressMessages(library(ggplot2))
suppressMessages(library(ggthemes))
suppressMessages(library(lubridate))

data = read.csv(file = "days-of-zhorik - Sheet1.csv",
                header = TRUE,
                stringsAsFactors = FALSE)
dat = data %>%
   group_by(date) %>%