Skip to content

Instantly share code, notes, and snippets.

View nmcglincy's full-sized avatar

Nicholas McGlincy nmcglincy

View GitHub Profile
@nmcglincy
nmcglincy / days-of-zhorik.R
Last active December 17, 2015 07:40
making graphs from my calories counting gsheet
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) %>%
@nmcglincy
nmcglincy / plot-from-var.R
Last active November 13, 2015 19:46
Took me too long to figure this out...
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) {
#' 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