Publications by Richard Martin
Education similarity based on NOC counts
Measuring Education similarity on the basis of occupation counts Source code: Author Richard Martin Code edu_noc <- read_csv(here("out","edu_noc.csv")) all_cor <- vroom::vroom(here("out", "all_cor.csv"))|> group_by(cip1, highest1)|> mutate(broad1=str_sub(cip1, 1, 2), broad2=str_sub(cip2, 1, 2)) max_spearman <- all_cor|> filter...
6697 sym Python (4387 sym/8 pcs) 5 img
education similarity based on noc counts
Measuring Education similarity on the basis of occupation counts Source code: Author Richard Martin Code edu_noc <- read_csv(here("out","edu_noc.csv")) all_cor <- vroom::vroom(here("out", "all_cor.csv"))|> group_by(cip1, highest1) max_spearman <- all_cor|> filter(spearman_cor==max(spearman_cor, na.rm = TRUE))|> mutate(what_same=case_wh...
6145 sym Python (4192 sym/8 pcs) 5 img
Measuring Education similarity on the basis of occupation counts
Measuring Education similarity on the basis of occupation counts Source code: Author Richard Martin Code edu_noc <- read_csv(here("out","edu_noc.csv")) all_cor <- vroom::vroom(here("out", "all_cor.csv"))|> group_by(cip1, highest1)|> mutate(cip1_broad=str_sub(cip1, 1,2), cip2_broad=str_sub(cip2, 1,2)) max_spearman <- all_cor|> ...
3400 sym Python (3158 sym/4 pcs) 1 img
top Education paths to LMO skill based clusters
Top educational background for LMO2023 skill based clusters Source code: Author Richard Martin Intro In the 2023 LMO we formed clusters of occupations on the basis of skill similarity. This provided two useful bits of information: What occupations share similar skill profiles: useful information for those considering a career change. What are...
811 sym 1 img
Labour market impact of skills mis-match
source("shared_code.R") TL;DR People vary in how well matched their skills are to the skill required by their occupation. There are various reasons why people might be mis-matched. For instance, if there is an element of “winner takes all” in the labour market, one would expect that the highest quality workers and highest quality employers wou...
14705 sym Python (7088 sym/22 pcs) 8 img 1 tbl
LMO simulation forecasts
Forecast Simulation Code ggr <- function(tbbl){#get growth rate tbbl|> mutate(growth_rate=value/lag(value))|> select(year, growth_rate)|> na.omit() } glv <- function(tbbl){#get last value tbbl$value[tbbl$year==max(tbbl$year)] } mk_fcast <- function(last_val, grt_rts){#make the forecast lyod <- as.numeric(max(grt_rts$year)) ra...
587 sym 1 img
skills mismatch slides
Labour market impact of skill mis-match Richard Martin TL; DR employment income of those who work full time full year: Going from relatively well matched to relatively poorly matched causes a -7.9% reduction in employment income for those working full time, full year. the probability of working full time full year: Going from relatively well ma...
2743 sym 7 img
forestry employment based on AAC
library(tidyverse) library(readxl) library(janitor) library(patchwork) library(stargazer) library(fpp3) library(ggplotify) library(ggallin) #functions------------------ residual_plot <- function(fit, mod, quoted_title){ fit|> select({{ mod }})|> gg_tsresiduals()+ labs(title=quoted_title) } plot_fcasts <- function(var, fcast_tbbl, quoted...
1927 sym R (6820 sym/24 pcs) 23 img
forestry employment based on AAC
library(tidyverse) library(readxl) library(janitor) library(patchwork) library(stargazer) add_aac <- function(tbbl){ tbbl|> full_join(aac)|> mutate(period=if_else(is.na(employment), "forecast","historic")) } get_test_data <- function(tbbl){ tbbl|> filter(is.na(employment))|> select(-employment) } fit_lm <- function(tbbl){ lm...
1037 sym R (3425 sym/6 pcs) 3 img 2 tbl