-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathResume.Rmd
92 lines (70 loc) · 2.51 KB
/
Resume.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
---
name: Michael
surname: McCarthy
position: "Founder and Chief Scientist"
address: "Radical Research LLC, Riverside, CA"
#profilepic: "./images/JTree_mike2.png"
www: radicalresearch.llc
email: "[email protected]"
github: RadicalResearchLLC
linkedin: mike-mccarthy-7966964
orcid: 0000-0003-4222-681X
date: "`r format(Sys.time(), '%B %Y')`"
output: vitae::awesomecv
headcolor: ff3c00
bibliography: pubsTox.json
csl: acs.csl
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
packages <- c('vitae', 'magrittr', 'tibble', 'glue', 'dplyr', 'stringr', 'lubridate')
require(xfun)
xfun::pkg_attach2(packages, message = FALSE)
source('CV_lists.R')
```
# Summary
Founder and Chief Scientist at Radical Research LLC, an environmental consulting firm. I have over 20 years of experience as an atmospheric scientist, with most of my career spent at Sonoma Technology, Inc. My areas of scientific interest include data science, visualization, quality assurance, risk assessment, source apportionment, network evaluation, and monitoring study design. I have extensive experience with speciated trace chemicals in the atmosphere, including hazardous air pollutants, volatile organic compounds, speciated components of particulate matter, and PFAS (polyfluoroalkyl substances).
# Experience
```{r Work}
work %>%
#filter(resume = '1') %>%
detailed_entries(with = title,
what = organization,
when = glue::glue("{startMonth} {startYear} -- {endMonth} {endYear}",.na = ''),
where = where
)
```
# Education
```{r Education}
edu %>%
filter(resume == 1) %>%
detailed_entries(
with = Degree,
what = Institution,
when = glue::glue("{startMonth} {startYear} -- {endMonth} {endYear}",.na = ''),
where = Where,
why = detail)
```
# Skills
```{r Skills}
skills %>%
detailed_entries(
with = area,
what = skills)
```
\pagebreak
# Publications
Relevant peer-reviewed journal articles for this call.
---
nocite: |
@mccarthyAssessmentMobileSource2021,
@mccarthyCharacterizationChronicRisk2009,
@brownAssessmentAmbientAir2020,
@mukherjeeMeasuringSpatialTemporal2019,
@mccarthyFiltrationEffectivenessHVAC2013,
@mccarthySourceApportionmentVolatile2013,
@mccarthyCharacterizationChronicRisk2009,
@mccarthyTemporalVariabilitySelected2007,
@mccarthyBackgroundConcentrations182006,
@kenskiLessonsLearnedAir2005
---