benmarwick

javascript:(function(){'use strict';const CONFIG={llmPrompt:"You are an experienced academic advisor who cares deeply about supporting students in their graduate studies. You are highly-detail oriented and laser-focused on giving correct advice. Your tone is warm and supportive. You write in the third person point of view, never first or second person point of view. You never make anything up. You always quote exact verbatim text from a specific University of Washington websites to support your decisions. Do not paraphrase or infer. You always include clickable links to the websites that you quote from. Do not quote anything unless you fetch it directly from the URLs I have given you. Quote only the relevant requirement sections. If you cannot fetch it, say so. You do not read webpages from Departments other than the Anthropology Department at the University of Washington. You do not read webpages from other universities. If you see 'PRE‑DOCTOR (ANTH‑50‑3‑0)', understand this as the student is enrolled in a P

benmarwick

# Load necessary libraries
library(selenider)
library(dplyr)
library(ggplot2)
library(purrr)
library(tidyr)

# --- 1. Setup the Selenider Session ---
# The timeout here is important: find_elements() will wait up to 20 seconds.
selenider_session <- selenider_session(

benmarwick

Q. If you could collaborate with an engineer to design or build a solution for a problem in your archaeological work, what specific problem would you want them to address?

A.  I'd like a highly mobile little robot that can drive or walk to an artefact on the ground, record its location by scanning it on the ground, then pick it up and 3D scan the entire artefact, then put it back exactly where it found the artefact, and move on to the next artefact. I want a swarm of these robots so I can map an entire site and scan many artefacts quickly without having to collect them and take them to a lab. 
 
Q. What are some of your typical daily or weekly activities as an archaeologist?

A. Daily tasks include teaching archaeology, preparing to teach, grading, responding to messages from students. Daily tasks also include analysing data collected during field work, writing technical reports to describe the data analysis, writing articles for scholars and the public to communicate the results of our fieldwork. Planning f

benmarwick

adif_data_string <- c("ADIF for WA7BEN: SOTA at W7U/CA-007 SOTA W7U/CA-007 on 2025-05-10
<ADIF_VER:5>3.1.4
<PROGRAMID:21>Ham2K Portable Logger
<PROGRAMVERSION:6>25.4.6
<EOH>
<CALL:5>AA7OY <MODE:2>CW <BAND:3>40m <FREQ:8>7.064000 <QSO_DATE:8>20250510 <TIME_ON:6>183820 <RST_RCVD:3>599 <RST_SENT:3>599 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>AZ <CQZ:1>3 <ITUZ:1>6 <COMMENT:9>s599 r599 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <SOTA_REF:10>W7A/AP-007 <EOR>
<CALL:4>KX0R <MODE:2>CW <BAND:3>40m <FREQ:8>7.064000 <QSO_DATE:8>20250510 <TIME_ON:6>184026 <RST_RCVD:3>599 <RST_SENT:3>599 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>KS <CQZ:1>4 <ITUZ:1>7 <COMMENT:9>s599 r599 <QSLMSG:15>SOTA W7U/CA-007 <MY_SOTA_REF:10>W7U/CA-007 <SOTA_REF:10>W0C/FR-086 <EOR>
<CALL:4>K9PM <MODE:2>CW <BAND:3>40m <FREQ:8>7.064000 <QSO_DATE:8>20250510 <TIME_ON:6>184216 <RST_RCVD:3>559 <RST_SENT:3>559 <STATION_CALLSIGN:6>WA7BEN <OPERATOR:6>WA7BEN <DXCC:3>291 <STATE:2>SD <CQZ:1>4 <ITUZ:1>8 

benmarwick

library(tidyverse)

gradebook <- read_csv("2024-03-28T1049_Grades-CS&SS_490_A.csv")

# random assignments into groups with leader and backup leader
gradebook <- 
  gradebook %>% 
  filter(!Student %in% c(NA, "Points Possible", "Student, Test"))

n_people_per_group <-  6 # six people per group

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")) %>%