Skip to content

Instantly share code, notes, and snippets.

View thoughtfulbloke's full-sized avatar

David Hood thoughtfulbloke

68 followers · 0 following
View GitHub Profile
@thoughtfulbloke
thoughtfulbloke / examplefeeddback.csv
Created May 24, 2026 08:27
We can make this file beautiful and searchable if this error is corrected: Unclosed quoted field in line 6.
"Course.Code","Teacher","Campus","Remote","Course.Content","Course.Delivery","Other.comments","rating"
"XMPL101","Mary","Dunedin","Online","Content was well structured and relevant to the course goals.","Delivery was clear and easy to follow.","Overall I was satisfied with the course.",3
"XMPL101","Mary","Dunedin","Online","Content covered many useful topics but some areas felt a bit shallow.","Delivery was generally good but the pace was sometimes too fast.","I would have liked more time for questions.",4
"XMPL101","Mary","Dunedin","Online","Content was challenging in a good way and made me think deeply.","Delivery included helpful explanations and examples.","I feel more confident in this subject now.",8
"XMPL101","Mary","Dunedin","Online","Content sometimes jumped between topics which was confusing.","Delivery could have been more organized from week to week.","I occasionally felt lost during the middle of the semester.",6
"XMPL101","Mary","Dunedin","Online","Content linked theory to practice in a meaningf
@thoughtfulbloke
thoughtfulbloke / dupdata.csv
Created May 9, 2026 22:38
dupeddata.csv
We can't make this file beautiful and searchable because it's too large.
Country,Trainer,Recommend,Comments
Australia,Mary,3,Training was easy to follow
Australia,Mary,2,The session was informative
Australia,Mary,8,Session met my expectations
Australia,Mary,10,Helpful and well structured training
Australia,Mary,2,I learned new skills today
Australia,Mary,10,Overall a positive experience
Australia,Mary,2,Helpful and well structured training
Australia,Mary,3,Very useful training session
Australia,Mary,9,Would recommend this training
@thoughtfulbloke
thoughtfulbloke / twoAxisTo01range.R
Created April 27, 2026 21:04
# The microsoft report whose number use makesme sad
# New Zealand’s Generative AI opportunity
# https://msftstories.thesourcemediaassets.com/sites/433/2024/08/New-Zealands-Generative-AI-Opportunity.pdf
# impact to date
# UNDERSTANDING AOTEAROA NEW ZEALAND: THE IPSOS AI MONITOR 2025
# https://www.ipsos.com/sites/default/files/ct/news/documents/2025-08/Ipsos-AI-Monitor-2025%20NZ%20version.pdf
# productivity
# https://infoshare.stats.govt.nz
@thoughtfulbloke
thoughtfulbloke / emergency_states.R
Last active April 22, 2026 10:59
Code for converting a saved webpages of NZ States of Emergency to a graph of time in emergency
# https://www.civildefence.govt.nz/emergency-events/previous-emergencies/declared-states-of-emergency
# Declared state of emergency page, save locally as an html page
# in the working directory called em.html
library(rvest)
library(dplyr)
library(lubridate)
library(ggplot2)
source("~/theme.R")
@thoughtfulbloke
thoughtfulbloke / day17_2026.R
Created April 16, 2026 21:45
library(dplyr)
library(tidyr)
library(readxl)
library(readr)
library(ggplot2)
library(lubridate)
library(slider)
source("~/theme.R")
p2 <- "https://www.trade.gov/i-94-arrivals-program"
@thoughtfulbloke
thoughtfulbloke / weather.R
Created April 10, 2026 19:39
library(dplyr)
library(lubridate)
library(ggplot2)
library(readr)
source("~/theme.R")
Rain <- read_csv("2810__Rain__daily.csv")
Gust <- read_csv("2810__Gust__daily.csv")
col_background = "#DDDDDD"
col_rain = "#56B4E9"
@thoughtfulbloke
thoughtfulbloke / RD.csv
Created April 3, 2026 06:24
geo iso3c iso2c nabs07_2 RD_sum RD_percent pop_2023 gdp_pc_2023_USD
Austria AUT AT Agriculture 94.776 7.944888081 9131761 56579.50418
Austria AUT AT Society 79.743 6.684700876 9131761 56579.50418
Austria AUT AT Defence 7.332 0.614627326 9131761 56579.50418
Austria AUT AT Energy 117.083 9.814840584 9131761 56579.50418
Austria AUT AT Environment 42.761 3.584571613 9131761 56579.50418
Austria AUT AT Exploration and exploitation of space 29.572 2.478963349 9131761 56579.50418
Austria AUT AT Exploration and exploitation of the earth 57.199 4.794881123 9131761 56579.50418
Austria AUT AT Health 195.342 16.37514062 9131761 56579.50418
Austria AUT AT Industrial production and technology 519.87 43.57969282 9131761 56579.50418
@thoughtfulbloke
thoughtfulbloke / nztamap.R
Last active April 11, 2026 03:44
# site locations
# https://opendata-nzta.opendata.arcgis.com/datasets/b90f8908910f44a493c6501c3565ed2d_0/explore?location=-40.549980%2C173.382464%2C6
# download of full data as csv as of 2026-04-02, approx 385KB
# traffic counters
# https://opendata-nzta.opendata.arcgis.com/datasets/898e77d403c443c4961ada073d144735_0/explore
# download of full data as csv as of 2026-04-01, approx 800MB
# road outline map
@thoughtfulbloke
thoughtfulbloke / NZTA.r
Last active March 31, 2026 00:02
NZTA TMS traffic count processing
library(dplyr)
library(lubridate)
library(readr)
library(ggplot2)
source("~/theme.R")
# known site aliases of interest from data exploration of complete data sites
# in places I am personally invested in knowing about
sites_of_interest <- c(621, 620)
@thoughtfulbloke
thoughtfulbloke / makedatamap.R
Created March 18, 2026 03:24
# get a clipped map of territorial authorities, like
# https://koordinates.com/from/datafinder.stats.govt.nz/layer/123496-territorial-authority-2026-clipped/
# download (needs registration) in a format useful you. I used
# Coordinate Reference System WGS 84 (EPSG:4326)) and as a .kml file (21MB)
#
# download territorial population like from
# https://infoshare.stats.govt.nz Population : Population Estimates (DPE)
# Estimated Resident Population for Territorial Authority Areas, at 30 June(1996+) (Annual-Jun)
# as a csv for the year 2025
#