-
Notifications
You must be signed in to change notification settings - Fork 0
/
20240811_CV.Rmd
264 lines (208 loc) · 9.93 KB
/
20240811_CV.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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
---
name: Catalina
surname: Cañizares
email: "cata.canizares@gmail.com"
twitter: CatalinaCaniza1
github: ccani007
orcid: 0000-0002-6854-5205
date: "`r format(Sys.time(), '%B %Y')`"
headcolor: 414141
docname: CV
output:
vitae::awesomecv
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
library(vitae)
library(tibble)
library(tidyverse)
library(here)
library(readr)
library(scholar)
```
# Education
```{r education}
tribble(
~ Degree, ~ Year, ~ Institution, ~ Where,
"Florida International University", "2024", "PhD in Social Welfare", "Miami, United States",
"Universidad de los Andes", "2014", "Master in Clinical and Health Psychology", "Bogotá, Colombia",
"Universidad de los Andes", "2012", "Bachelor in Pyschology", "Bogotá, Colombia"
) %>%
detailed_entries(Degree, Year, Institution, Where)
```
# Research
```{r research_tribble,include=FALSE}
research <- tribble(
~title, ~unit, ~startYear, ~endMonth, ~endYear, ~where, ~ professor, ~detail,
"Postdoctoral Fellow", "NYU Steinhardt School of Culture, Education, and Human Development", 2024, "September", 2026, "New York University",
"Pamela Morris-Perez", "ARCADIA.
\\begin{itemize}
\\item Examining trends in adolescent suicidal behaviors by place, cohort, and policy.
\\end{itemize}",
"Research Coordinator", "Robert Stempel College of Public Health and Social Work", 2022, "Februrary", 2024, "Florida International University",
"Roberto Lucchini, M.D", "World Trade Center Health Study in Florida.
\\begin{itemize}
\\item Build the strategy to collect data and grant application support
\\end{itemize}",
"Research Assistant as an Independent Contractor", "School of Social Work", 2022,
"Present", NA, "Boston College",
"Maria Piñeros-Leaño, Ph.D.", "Mothers and Children of All Nations Defying the Odds.
\\begin{itemize}
\\item Analysis of qualitative data
\\end{itemize}",
"Research Assistant", "Department of psychology", 2012, "Present", NA, "Universidad de los Andes", "Yvonne Gómez, Ph.D.", "Depression and genetics.
\\begin{itemize}
\\item Review and select literature, collect and analyze data, evaluate and write proposals for publication.
\\end{itemize}",
"Research Assistant", "Department of psychology", 2018, "January", 2019, "Universidad de los Andes", "Leonidas Castro Ph.D.",
"Adaptation and Validation of the Unified Protocol for victims of armed conflict in Colombia.
\\begin{itemize}
\\item Implement the Unified Protocol with victims of armed conflict in Colombia
\\end{itemize}"
)
```
```{r research}
research %>%
detailed_entries(
with = title,
what = unit,
why = detail,
when = glue::glue("{startYear} - {endMonth} {endYear}",.na = ""),
where = where, .protect = F)
```
# Teaching Experience
```{r teaching_tribble, include=FALSE }
teaching <- tribble(
~title, ~unit, ~startMonth, ~startYear, ~endMonth, ~endYear, ~where, ~detail,
"Instructor", " NIH/NHLBI R25HL161796: Training program in biostatistics, epidemiology and data science to undergraduate and early graduate students from underrepresented groups", "June", 2024, "June", 2024, "Florida Atlantic University", "Data Science and Machine Learning",
"Co-Teacher", "R Computing for Health Sciences", "June", 2023, "August", 2023, "Florida International University", "Introduction to Supervised Machine Learning",
"Teacher Assistant", "R Medicine 2023", "June", 2023, "June", 2023, "Virtual Conference", "R Medicine 101: Introduction to Clinical Data Analysis with R",
"Instructor", "The Research Centers in Minority Institutions (RCMI) Consortium",
"February", 2023, "May", 2023, "Morehouse School of Medicine", "A 10-week national series to the R Programming language, using a modified version of the R for Reproducible Scientific Analysis Data Carpentry curriculum",
"Teacher Assistant", "Institute for Data Science and Computing", "February", 2023, "February", 2023, "University of Miami", "Facilitated educational sessions on Git, Shell, and R using the Data Carpentry curriculum",
"Teacher Assistant", "Biostatistics", "January", 2023, "April", 2023, "Florida International University", "Avanced R for posgraduate students",
"Teacher Assistant", "Biostatistics", "June", 2022, "August", 2022, "Florida International University", "Avanced R for posgraduate students",
"Graduate Teaching Assistantship", "Spanish Center", "January", 2013, "December", 2013, "Universidad de los Andes",
"Tutored undergraduate students in Spanish writing skills.
\\begin{itemize}
\\item Developed and implemented activities and rubrics to evaluate skills in Spanish writing.
\\item Assisted the course Fundamentals of Psychology (spring, 2013 and fall, 2013).
\\end{itemize}",
"Undergraduate Teaching Assistantship", "Department of Psychology", "January", 2010, "May", 2010, "Universidad de los Andes",
"Assisted the course Neuroscience 1 (Spring, 2010)")
```
```{r teaching}
teaching %>%
detailed_entries(
with = title,
what = unit,
why = detail,
when = glue::glue("{startMonth} {startYear} - {endMonth} {endYear}",.na = ""),
where = where, .protect = F)
```
# Publications
```{r}
bibliography_entries("bib/Publications.bib") %>%
arrange(desc(issued))
```
# Software development
```{r}
bibliography_entries("bib/Software.bib")
```
# Conference presentations
```{r}
bibliography_entries("bib/Presentations.bib")
```
# Workshops
```{r}
bibliography_entries("bib/Workshops.bib")
```
# Work in Progress
```{r}
bibliography_entries("bib/In_progress.bib")
```
# Skills
```{=tex}
\begin{cvskills}
\cvskill {Software} {Microsoft Office, SPSS, ATLAS.ti, Nvivo, Dedoose}
\cvskill {Programming Languages} {R, Python}
\cvskill {Reproducible Report} {Quarto, Markdown/Rmarkdown, R shiny apps, Jupyter Notebook}
\cvskill {DevOps} {Git, GitHub}
\cvskill {Web development} {Wordpress, GitHub Pages, Netlify} \cvskill {Languages} {Spanish, English}
\end{cvskills}
```
# Honors and Awards
```{r honors_tribble, include=FALSE }
honors <- tribble(
~area, ~accomplishment, ~year, ~detail, ~where,
"Outstanding Graduate", "Florida International University", 2024, "Extraordinary academic, professional, and personal achievements as a graduate student from FIU", "Miami, FL",
"Honorable Mention: NIDA International Poster Session", "Society for Prevention Research", 2023, "Honorable Mention for Poster Hopelessness in Youth: A Supervised Machine Learning Classification Approach to Identify Risk Factors. Prize: SPR Membership for 2024", "Washington, D.C",
"The C.V. Starr Scholarship", "Robert Stempel College of Public Health and Social Work", 2023, "Scholarship for Latin America and The Caribbean doctoral students with an award of up to $27,941", "Miami, FL",
"Fulbright", "Scholarship Fulbright-Minciencias", 2020, "Scholarship for Doctoral studies in the United States of America for $100,000","Bogotá",
"Spanish Center Award", "Scholarship for posgraduate studies", 2013, "Awarded for academic excellence and proficient knowledge in Spanish writing skills", "Universidad de los Andes" )
```
```{r honors}
honors %>%
detailed_entries(
with = area,
what = accomplishment,
why = detail,
when = year,
where = where
)
```
# Professional Membership
```{r membership}
professional_membership <- tribble(
~title, ~member, ~startYear, ~endYear,
"Society for Social Work and Research", "Member", 2021, "Present",
"Society for Prevention Research", "Member", 2023, "Present",
"International Association for Social Work With Groups", "Member", 2023, "Present",
"American Psychological Association", "Member", 2022, "2023"
)
```
```{r membership_table}
professional_membership%>%
detailed_entries(
with = title,
what = member,
when = glue::glue("{startYear} - {endYear}",.na = ""),
.protect = F
)
```
# Professional Experience
```{r professional_experience_tribble, include=FALSE}
professional_experience <- tribble(
~title, ~unit, ~startMonth, ~startYear, ~endMonth, ~endYear, ~where, ~detail,
"Academic Coordinator", "School of Education", "October", 2017, "July", 2020, "Universidad de los Andes",
"Arrangement of academic matters like schedules, lectures, classes and summer school for undergraduate, postgraduate and PhD programs of the School of Education.
\\begin{itemize}
\\item Assess the quality of academic processes.
\\item Support students throughout their programs and warrant their graduation.
\\item Systematize information and use it to improve academic processes.
\\end{itemize}",
"Clinical Psychologist", "Office of student affairs", "March", 2017, "October", 2017, "Universidad de los Andes",
"Provided psychological attention for undergraduate and graduate students. \\begin{itemize}
\\item Designed psycho-educational workshops for students.
\\item Mediated in disciplinary cases.
\\item Supported the development of the protocol to report cases of sexual abuse and harassment (MAAD).
\\end{itemize}",
"Clinical Manager of the Center of Psychology, Casa-Espinosa", "Department of Psychology", "February", 2014, "March", 2017, "Universidad de los Andes",
"Supervised students practicum of the Master in Clinical and Health Psychology.
\\begin{itemize}
\\item Guided the development of intervention guidelines for the center of psychological attention.
\\item Implemented technological features to gather information from patients to be used in further investigation.
\\item Represented the center at the Colombian Network of Psychological University Centers Red ISUAP
\\end{itemize}"
)
```
```{r professional_experience}
professional_experience %>%
detailed_entries(
with = title,
what = unit,
why = detail,
when = glue::glue("{startMonth} {startYear} - {endMonth} {endYear}",.na = ""),
where = where, .protect = F
)
```