About Me

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.

Résumé

My résumé is available Here.

  • Map made in R showing UNM interactive map.
# 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.