benmarwick

# list of lists
url <- "https://en.wikipedia.org/wiki/Lists_of_World_Heritage_Sites"

# Table of sites per country can be found at each of these pages
# probably the simplest entry point

# Africa
africa <- "https://en.wikipedia.org/wiki/List_of_World_Heritage_Sites_in_Africa"

# Americas

benmarwick

---
title: 'C14 analysis: Coastal vs Inland'
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

Import and clean the data:

benmarwick

library(tidyverse)
the_pages <- c(
  "https://en.wikipedia.org/wiki/Angela_McGowan",
  "https://en.wikipedia.org/wiki/Caroline_Bird_(archaeologist)",
  "https://en.wikipedia.org/wiki/Jo_McDonald",
  "https://en.wikipedia.org/wiki/Laurajane_Smith",
  "https://en.wikipedia.org/wiki/Louise_Zarmati",
  "https://en.wikipedia.org/wiki/Marcia-Anne_Dobres",
  "https://en.wikipedia.org/wiki/Sarah_Colley",

benmarwick

library(tidyverse)

base_url <- "http://academicjobs.wikia.com/wiki/Archaeology_Jobs_"

# starts at 2010-2011

years <- map_chr(2010:2019, ~str_glue('{.x}-{.x +1}'))
# though it seems to start at 2007-8: https://academicjobs.fandom.com/wiki/Archaeology_07-08

urls_for_each_year <- str_glue('{base_url}{years}')

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