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

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("[email protected]")

# 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}')