grosscol

library(gtools)

demo_input <- c("fname midname lname","doe john e") #only 2 'names' in this example list.

split_list <- strsplit(demo_input, " |-")

make_combinations <- function(x){
  # Use permutations from the gtools package
  name_grid <- permutations(3,3,x)
  apply(X=name_grid, MARGIN=1, FUN=paste0, collapse=' ')

grosscol

# DrawShape

#' @title Draw Shape
#' @param n height of shape in number of rows
#' @description If n is odd, draw a diamond pattern.
#'   If n is even, draw an hourglass pattern.
#' @note e.g. n = 6
#' #####
#'  ###
#'   #

grosscol

library(readr)
library(dplyr)
library(tibble)

# Input CSV 
input_path <- '/tmp/dahee_coding.csv'

input_df <- read_csv(input_path)

# Veena's observations are row 1

grosscol

library(tibble)
library(dplyr)

count_data <- tibble::tribble(
  ~id, ~numerator, ~denominator,
  "Aly",   14,   20,
  "Aly",   13,   20,
  "Aly",   12,   20,
  "Bob",   11,   20,
  "Bob",   12,   20,

grosscol

library(tidyverse)
library(broom)
library(doParallel)

# set variables to define data
n_samples <- 1000000
n_vars <- 10
n_group1 <- 500
n_group2 <- 2

grosscol

filters_df <- data.frame(lower = c(0, 10, 20),
                         upper = c(2, 12, 22),
                         filter_name = paste('filter',c('A','B','C'), sep='_'))

df <- data.frame(x = 1:30)

named_range <- function( lower, upper, name, data) {
  data > lower & data < upper
}

grosscol

library(dplyr)
df <- structure(
  list(
    ID = structure(
      c(
        1L,
        1L,
        1L,
        1L,
        1L,

grosscol

grosscol

# If logging into mimosa
# start ssh-agent and add key(s)
BASTION_HOST='bastion.example.com'
if [[ ${HOSTNAME} = ${BASTION_HOST} ]]; then

  # start ssh-agent if not running
  if [ -z "$SSH_AUTH_SOCK" ]; then
    eval `/usr/bin/ssh-agent -s`
  fi

grosscol

require 'watir'
require 'fileutils'
require 'pry'

# Given url and destination directory
def scrape_tables(browser, url, dest_dir)
  # create subdirectory
  FileUtils.mkdir_p dest_dir

  browser.goto url