benmarwick

## Introduction

# This code will take grades on the Canvas gradebook, and add up the individual
# assignments to get a final grade, according to the policy for the class, in this
# case, here https://docs.google.com/spreadsheets/d/1-6f7mpgStojP4Gb3mk2PSwupGY2MiSrnIDD_KlxxEzk/edit?gid=874302185#gid=874302185

## Get the Canvas gradebook

# Go to the Canvas course page, go to the gradebook for that
# course, click 'Actions' then 'Export'. That will download a CSV file to

benmarwick

library(tidyverse)
library(rcarbon)

signbase <- read_csv("signBase_Version1.0.csv")

# clean up and separate the data in the radiocarbon age columns
# so we can use it for plotting and analyses. This will generate some
# warnings, that's ok, nothing to worry about
signbase_years <- 
  signbase %>% 

benmarwick

# Load required libraries
library(rcarbon)
library(ggplot2)
library(ggridges)
library(dplyr)

# Step 1: Calibrate dates
# Example data: replace with your actual radiocarbon dates and errors
dates <- c(4500, 4800, 5000)  # Replace with your dates
errors <- c(30, 50, 100)      # Replace with your errors

benmarwick

data <- tibble( x = c(
  # Peak 1 (around 0-2)
  rep(1, 50), rep(2, 30), rep(3, 20),
  
  # Dip (middle values)
  rep(4, 10), rep(5, 8), rep(6, 8), rep(7, 10), 
  
  # Peak 2 (around 10-12)
  rep(8, 20), rep(9, 30), rep(10, 50) 
))

benmarwick

library(rvest)
library(httr)
library(tidyverse)

# get list of regions in the W7W association
# via API
sota_regions_w7w <- "https://api2.sota.org.uk/api/associations/w7w"
r <- GET(sota_regions_w7w)
dat <- 
  jsonlite::fromJSON(content(r, as = "text")) %>% 

benmarwick

library(raster)
library(terra)
library(tidyterra)
library(ggplot2)
library(sf)
library(tidyverse)
library(ggrepel)
library(ggspatial)

# get all summits via the GeoJSON download

benmarwick

library(tidyverse) # you may need to install.packages("tidyverse") in the console
library(googlesheets4) # ditto

# change to your own UW email
gs4_auth("bmarwick@uw.edu")

# Get our google sheet of information about the location of each point
ms_data <- 
  read_sheet("https://docs.google.com/spreadsheets/d/1rDyfJQ6OnWJktIWMZfnLe8YRtCiW1PVrP9nKW1kERN4/edit?pli=1#gid=0") 

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

---
title: "AY24-25 ARCHY course time overlaps"
format: html
execute: 
  echo: false
  warning: false
self-contained: true
---

benmarwick

library(httr2)
library(tidyverse)
library(sf)
library(lutz)
library(hms)

req <- request("https://api2.sota.org.uk/api/")

# get associations so we can get their time zones via lat-long
resp <- req %>%