Herb Susmann herbps10

## raytracer.sh
#!/bin/bash
#
#
# Bash Raytracer
# Herb Susmann
#

PIXEL_INCR="0.05"

# Object type IDs

## .block
license: mit

## .block
license: mit

## .block
license: mit
border: no

## .block
license: mit

## .block
license: mit

## twitter-cloud.R
library(tidyverse)
library(tm)
library(SnowballC)
library(wordcloud)
library(RColorBrewer)

setup_twitter_oauth(consumer_key = "...", consumer_secret = "...")

results <- searchTwitter("#EHSFEST", n = 1000) %>%
  twListToDF()

## twitter-bulk-add-to-list.R
#
# Adds twitter users to a twitter list in bulk
#
library(twitteR)

query <- "#EHSFEST"
screen_name <- "herbps10"
list_slug <- "ehsfest"

setup_twitter_oauth(consumer_key = "...", consumer_secret = "...")

## .block
license: mit

## Jeopardy Survival Plot
library(tidyverse)
library(rvest)
library(survival)
library(GGally)
library(stringr)
library(survminer)

game_data = tibble(
  season = 1:33
) %>%
	#!/bin/bash
	#
	#
	# Bash Raytracer
	# Herb Susmann
	#

	PIXEL_INCR="0.05"

	# Object type IDs
	library(tidyverse)
	library(tm)
	library(SnowballC)
	library(wordcloud)
	library(RColorBrewer)

	setup_twitter_oauth(consumer_key = "...", consumer_secret = "...")

	results <- searchTwitter("#EHSFEST", n = 1000) %>%
	twListToDF()
	#
	# Adds twitter users to a twitter list in bulk
	#
	library(twitteR)

	query <- "#EHSFEST"
	screen_name <- "herbps10"
	list_slug <- "ehsfest"

	setup_twitter_oauth(consumer_key = "...", consumer_secret = "...")
	library(tidyverse)
	library(rvest)
	library(survival)
	library(GGally)
	library(stringr)
	library(survminer)

	game_data = tibble(
	season = 1:33
	) %>%