Herb Susmann herbps10

## nhanes_geometric_mean.R
library(survey)
library(RNHANES)
library(tidyverse)

dat <- nhanes_load_data("EPHPP_H", "2013-2014", demographics = TRUE) %>%
  filter(!is.na(URXBPH), !is.na(URXBP3))

des <- nhanes_survey_design(dat, "WTSB2YR")

logmean <- svymean(~log(URXBPH), des, na.rm = TRUE)

## .block
license: mit

## .block
license: mit
height: 700
scrolling: yes
border: yes

## 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",

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

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

## .block
license: mit

## 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)

## 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 = "...")

## 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()

## .block
license: mit
	library(survey)
	library(RNHANES)
	library(tidyverse)

	dat <- nhanes_load_data("EPHPP_H", "2013-2014", demographics = TRUE) %>%
	filter(!is.na(URXBPH), !is.na(URXBP3))

	des <- nhanes_survey_design(dat, "WTSB2YR")

	logmean <- svymean(~log(URXBPH), des, na.rm = TRUE)

	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",
	library(tidyverse)
	library(rvest)
	library(survival)
	library(GGally)
	library(stringr)
	library(survminer)

	game_data = tibble(
	season = 1:33
	) %>%
	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)
	#
	# 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(tm)
	library(SnowballC)
	library(wordcloud)
	library(RColorBrewer)

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

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