View 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)
View .block
license: mit
View .block
license: mit
height: 700
scrolling: yes
border: yes
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
) %>%
View .block
license: mit
View package-downloads.R
log <- cranlogs::cran_downloads(packages="RNHANES", from="2016-09-28")
ggplot(log, aes(x = date, y = cumsum(count))) + geom_point()
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