These 21 writing rules apply to all opencode sessions. They come from the agent-style project (yzhao062/agent-style), distilled from Strunk & White, Orwell, Pinker, Gopen & Swan, plus field-observed LLM patterns.
RULE-01 — Do not assume the reader shares your tacit knowledge
Pinker 2014, Ch. 3
| library(tidyverse) | |
| canvas_gradebook <- "2026-06-13T2142_Grades-ARCHY_208_A.csv" | |
| gb <- | |
| read_csv(canvas_gradebook) %>% | |
| filter(!is.na(`SIS Login ID`)) %>% | |
| # select only the relevant columns for this assignment | |
| # and those required to join | |
| select(Student, |
| 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 |
| # 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( |
| 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 |
| 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 |
| 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 |
| ## 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 |
| 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 %>% |
| # 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 |