benmarwick

Keybase proof

I hereby claim:

• I am benmarwick on github.
• I am benmarwick (https://keybase.io/benmarwick) on keybase.
• I have a public key ASChwHLecS9Y85PZlJMPf64_Yl8wvwJzBPgrqfYkWbAWrwo

To claim this, I am signing this object:

benmarwick

# get canvas gradebook as CSV...

library(tidyverse)
students <-
  readr::read_csv("2023-10-01T2053_Grades-ARCHY_482_A.csv") %>%
  # exclude test student
  filter(!is.na(`SIS User ID`)) %>%
  select(Student) %>%
  as.data.frame()

benmarwick

;; -*- mode: emacs-lisp -*-
;; This file is loaded by Spacemacs at startup.
;; It must be stored in your home directory.
;; restart after editing with SPC f e R or SPC q R

(defun dotspacemacs/layers ()
  "Configuration Layers declaration.
You should not put any user code in this function besides modifying the variable
values."
  (setq-default

benmarwick

# in a terminal
# python -m pip install --user opencv-contrib-python numpy scipy matplotlib ipython jupyter pandas sympy nose


import cv2
import pandas as pd
import numpy as np
import imutils
from scipy.spatial import distance as dist
from imutils import perspective

benmarwick

library(tidyverse)

# using expression() for the text formatting:
ggplot(mtcars,
       aes(disp,
           mpg)) +
geom_point() +
# ~ for spaces, and * for no-space between (unquoted) expressions
ylab(expression(Anthropogenic~SO[4]^{"2-"}~(ngm^-3))) + 
xlab(expression(italic(delta)^13*C[ap]*"‰")) + 

benmarwick

# from http://my.ilstu.edu/~wjschne/444/IndependentSamples.html#(19)
t.report <- function(tt){
  tvalue <- tt$statistic %>% formatC(digits = 2, format = "f")
  pvalue <- tt$p.value %>% formatC(digits = 2, format = "f")
  if (round(tt$parameter, 0) == tt$parameter) {
    df <- tt$parameter
  } else {
    df <- formatC(digits = 2, format = "f")
  }
  if (tt$p.value < 0.0005) {

benmarwick

For writing we will use: https://atom.io/

Background reading:
- http://u.arizona.edu/~selisker/post/workflow/
- https://programminghistorian.org/en/lessons/sustainable-authorship-in-plain-text-using-pandoc-and-markdown
- http://plain-text.co
- https://the-javascripting-english-major.org/1-environment
- https://discuss.atom.io/t/using-atom-for-academic-writing/19222?u=benmarwick

benmarwick

library(rvest)

url <- "https://www.maestronet.com/history/makers_list.cfm?ID=1"


links_on_page <- 
url %>%
  read_html() %>% 
  html_nodes(".text a") %>% 

benmarwick

# get the dates of all emails with a certain search string, and plot

# install.packages(c("gmailr", "lubridate", "tidyverse"))
suppressPackageStartupMessages(library(gmailr))
suppressPackageStartupMessages(library(tidyverse))

archy_109 <- 
  messages(
    search = 'ARCHY 109',
    num_results = 1000,

benmarwick

# load the libraries
library(tidyverse)
library(readxl)

# load the data
pottery <- 
  read_excel("data/HTSKY-RIM.xlsx",
             col_types = "text")