Skip to content

Instantly share code, notes, and snippets.

View elinw's full-sized avatar

Elin Waring elinw

67 followers · 27 following
View GitHub Profile
@elinw
elinw / chs2019_2020
Created November 5, 2022 02:34 — forked from naomispence/chs2019_2020
library(haven)
chs2019_public <- read_sas("~/Downloads/chs2019_public.sas7bdat",
NULL)
library(Hmisc)
library(descr)
library(haven)
chs2020_public <- read_sas("~/Downloads/chs2020_public.sas7bdat",
NULL)
@elinw
elinw / WTC Wave 5 Dataset
Last active November 5, 2022 01:53 — forked from naomispence/WTC Wave 5 Dataset
# you should not need to do ths, try having them make a project? Because setwd() is considered bad practice.
setwd("~/R_Program_Folder")
# all the amazon code here
Sys.setenv("AWS_ACCESS_KEY_ID" = "xxxxx",
"AWS_SECRET_ACCESS_KEY" = "xxxxxx",
"AWS_DEFAULT_REGION" = "us-west-2")
@elinw
elinw / YRBS
Last active November 5, 2022 01:35 — forked from naomispence/YRBS
library(aws.s3)
Sys.setenv("AWS_ACCESS_KEY_ID" = "XXXX",
"AWS_SECRET_ACCESS_KEY" = "XXXX",
"AWS_DEFAULT_REGION" = "us-west-2")
s3load('nycyrbs.RData', bucket = 'XXXX')
nycyrbs <- subset(nycyrbs, select = c(q33, q34, q35, grade))
nycyrbs[nycyrbs==""]<-NA
skimr::skim(nycyrbs)
@elinw
elinw / histograms hompop unrelat
Last active October 18, 2017 18:09 — forked from naomispence/histograms hompop unrelat
```{r}
#YOU WILL ALWAYS NEED THIS FIRST CHUNK. WE WILL ADD TO IT DURING THE SEMESTER.
#THIS CHUNK LOADS THE LIBRARIES AND DATA THAT YOU NEED FOR YOUR WORK.
library(aws.s3)
library('lehmansociology')
library('ggplot2')
library('dplyr')
s3load('gss.Rda', bucket = 'lehmansociologydata')
```
@elinw
elinw / keybase.md
Created June 27, 2017 18:10

Keybase proof

I hereby claim:

  • I am elinw on github.
  • I am elinwaring (https://keybase.io/elinwaring) on keybase.
  • I have a public key ASAhNDpGGybt3lkhy3-BRGoXRT5mxr3hUZ8C-57UtgDZjQo

To claim this, I am signing this object:

@elinw
elinw / useUseMethods
Created May 30, 2017 01:12
skim.data.frame <- function(.data) {
rows <- purrr::map(.data, skim_v)
combined <- dplyr::bind_rows(rows, .id = "var")
return(structure(combined, class = c("skim_df", class(combined))))
}
skim.grouped_df <- function(.data){
nested_df <- .data %>%
tidyr::nest()
groups <- as.character(dplyr::groups(.data))
@elinw
elinw / Adding labels to 0 1 variables
Created May 10, 2017 22:19
RMS_Titanic$Survival<- factor(RMS_Titanic$Survival, levels = c("0","1"), labels = c("Died", "Survived"))
@elinw
elinw / keybase.md
Last active August 29, 2015 14:14

Keybase proof

I hereby claim:

  • I am elinw on github.
  • I am elinwaring (https://keybase.io/elinwaring) on keybase.
  • I have a public key whose fingerprint is 5A0F 7149 F237 2F79 725A 2A99 0381 44C6 B3DA BBB0

To claim this, I am signing this object:

@elinw
elinw / gist:5474844
Created April 27, 2013 21:40
--- a/plugins/system/languagefilter/languagefilter.php
+++ b/plugins/system/languagefilter/languagefilter.php
@@ -30,6 +30,8 @@
public function __construct(&$subject, $config)
{
+ parent::__construct($subject, $config);
+
// Ensure that constructor is called one time
self::$cookie = SID == '';
@elinw
elinw / gist:5474827
Created April 27, 2013 21:35
diff --git a/components/com_content/models/article.php b/components/com_content/models/article.php
index 081b936..205a3da 100644
--- a/components/com_content/models/article.php
+++ b/components/com_content/models/article.php
@@ -55,6 +55,8 @@
$this->setState('filter.published', 1);
$this->setState('filter.archived', 2);
}
+
+ $this->setState('filter.language', JLanguageMultilang::isEnabled());