I created this website using the R programming language. If you’re like me, you had no idea that was possible (But it is!). I’m using it to host my résumé in a convenient place online and also to make use of Github Pages to host some examples of projects I have been doing in the R programming language. Until recently (Graduated Dec. 2018), I was working as a Graduate Research Assistant at the University of New Mexico, Anderson School of Management. I conducted research related to alternative medicine for Dr. Karen Patterson and also helped to organize two professional development workshops in Research on Stigmatization (Academy of Management).
I graduated from the University of Puget Sound with a BSc in Molecular and Cellular Biology in 2014. Afterwards, I worked in the medical field as an EMT-B before returning to my home state to begin working toward my MSc in Information Systems and Assurance. I worked as a Graduate Research Assistant until graduating in Dec. 2018. My concentrations during my master’s were databases and data analysis.
My current interests include programming in R (and secondly in Python), iOS development, and staying up-to-date on the latest in machine learning and data analysis in general.
My résumé is available Here.
# Here is some R code to make an interactive map view.
rand_lng <- function(n = 2) rnorm(n, -106.6197812, .005)
rand_lat <- function(n = 2) rnorm(n, 35.0863187, .005)
x = rand_lng()
y = rand_lat()
Rlogo <- file.path("imgs","unmlogo.jpeg")
m <- leaflet() %>% addTiles()
# a map with the default OSM tile layer
m %>% fitBounds(0, 40, 10, 50) %>%
setView(-106.6197812, 35.0853187, zoom = 16) %>%
addPopups(-106.6197812, 35.0863187, "Here is the <b>Anderson School of Management</b>, UNM") %>%
addPopups(x, y, "htmlwidget example") %>%
addMarkers(x, y) %>%
addMarkers(
x, y, popup = paste("...with leaflet package", sample(LETTERS, 10))
) %>%
addMarkers(
-106.6180812, 35.0843187, icon = list(
iconUrl = Rlogo, iconSize = c(50, 38)
), popup = "UNM"
) %>%
addCircles(x, y, radius = runif(2, 2, 75)) %>%
addPolylines(x, y) %>%
clearBounds()
Copyright © 2019 Tomas Leriche. All rights reserved.