Skip to content

Instantly share code, notes, and snippets.

Herb Susmann herbps10

Block or report user

Report or block herbps10

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@herbps10
herbps10 / pfas_example.R
Last active Jul 13, 2017
Example of calculating median and 95th percentiles for NHANES PFAS data
View pfas_example.R
devtools::install_github("silentspringinstitute/RNHANES")
library(tidyverse)
library(RNHANES)
# Data frame of variables for the analysis
variables <- tribble(
~column, ~comment_column, ~file_name, ~cycle,
"LBXPFNA", "LBDPFNAL", "PFAS_H", "2013-2014",
"LBXPFHS", "LBDPFHSL", "PFAS_H", "2013-2014",
View Jeopardy Survival Plot
library(tidyverse)
library(rvest)
library(survival)
library(GGally)
library(stringr)
library(survminer)
game_data = tibble(
season = 1:33
) %>%
@herbps10
herbps10 / .block
Created Jan 5, 2017
Violin Plot + Box Plot v3
View .block
license: mit
@herbps10
herbps10 / package-downloads.R
Last active Feb 25, 2018
R Package Download Graph
View package-downloads.R
library(tidyverse)
log <- cranlogs::cran_downloads(packages="RNHANES", from="2016-09-28")
ggplot(log, aes(x = date, y = cumsum(count))) + geom_point()
sum(log$count)
@herbps10
herbps10 / twitter-bulk-add-to-list.R
Last active Dec 8, 2016
Twitter Bulk Add to List
View 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 = "...")
View 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()
View .block
license: mit
@herbps10
herbps10 / .block
Last active Nov 3, 2016
IQ with comparison
View .block
license: mit
@herbps10
herbps10 / .block
Last active Nov 3, 2016
IQ Distribution Mean/SD Slider
View .block
license: mit
border: no
You can’t perform that action at this time.