Publications by Glen Dale Davis

Data 607 - Project 2 - Pokémon

05.03.2023

Packages: Below, the packages required for data analysis and visualization are loaded. library(tidyverse) library(magrittr) library(zoo) library(DT) Pokémon Data Collection: Serebii.net keeps a list of all the Pokémon in the various games in the franchise. The data on this site is in a wide format where each Pokémon gets its own unique r...

5004 sym R (9252 sym/18 pcs) 3 img

Data 607 - Project 2 - Cosmetics Ingredients

05.03.2023

Packages: Below, the packages required for data analysis and visualization are loaded. library(tidyverse) library(magrittr) library(DT) Cosmetics Ingredients Data Collection: We load data related to cosmetics Products from a number of Brands and those Products’ Ingredients. We remove a number of columns not needed for analysis. my_url1 <- "...

1356 sym R (1155 sym/5 pcs)

Data 607 - Project 2 - Bob Ross Paintings

05.03.2023

Packages: Below, the packages required for data analysis and visualization are loaded. library(tidyverse) library(magrittr) library(DT) library(gganimate) library(gifski) Bob Ross Paintings Data Collection: We load data for all the paintings Bob Ross worked on during the TV show The Joy of Painting, which ran for 31 seasons. Each row of the ...

2255 sym R (3605 sym/6 pcs) 1 img

Data 605 - Homework 5

26.02.2023

Question 1: (Bayesian). A new test for multinucleoside-resistant (MNR) human immunodeficiency virus type 1 (HIV-1) variants was recently developed. The test maintains 96% sensitivity, meaning that, for those with the disease, it will correctly report “positive” for 96% of them. The test is also 98% specific, meaning that, for those without ...

6114 sym

Data 607 - Week 5

26.02.2023

Load the Packages: Below, the packages required for data analysis and visualization are loaded. library(magrittr) library(tidyverse) library(DT) Load the Messy Data: Below, we load the messy data regarding delayed vs. on time arrivals for two airlines (ALASKA and AMWEST). my_url <- "https://raw.githubusercontent.com/geedoubledee/data607_week5...

1611 sym R (2095 sym/7 pcs) 1 img

Data 607 - Week 4 - Project 1

19.02.2023

Load the Required Packages Below, I load the packages required for tidying up and viewing the data. library(tidyverse) library(DT) Load and Clean Up the Raw Chess Tournament Info Data Below I load the chess tournament info .txt file, replace all -…- lines with \(*\), define \(*\) as a comment character so those lines can then be skipped comp...

1767 sym R (4190 sym/7 pcs)

Data 605 - Homework 4

19.02.2023

Load the Required Packages library(png) library(OpenImageR) Load Image Data into Arrays, Vectorize the Data, and Create a Matrix Where Each Row Represents a Vectorized Image Since the large dimensions of the shoe images was causing me some memory issues at first, I used a set of smaller (40 x 40) images for this project instead. The images I u...

1583 sym R (1888 sym/7 pcs) 2 img

Data 605 - Homework 3

13.02.2023

Load the Required Packages library(pracma) Functions to_LaTeX <- function(A){ rows <- apply(A, MARGIN=1, paste, collapse = " & ") matrix_string <- paste(rows, collapse = " \\\\ ") return(paste("\\begin{bmatrix}", matrix_string, "\\end{bmatrix}")) } get_properties <- function(A){ m = nrow(A) n = ncol(A) if (m != n){...

3467 sym R (7404 sym/15 pcs)

Data 607 - Week 3 Assignment

10.02.2023

Load the Required Packages library(tidyverse) library(DT) library(DescTools) Part 1: Using the 173 majors listed in fivethirtyeight.com’s College Majors dataset https://fivethirtyeight.com/features/the-economic-guide-to-picking-a-college-major/, provide code that identifies the majors that contain either “DATA” or “STATISTICS” in th...

2684 sym R (2728 sym/22 pcs)

Data 605 - Homework 2

06.02.2023

Before We Begin: Below, I define a function that gets the dimensions of a matrix, whether it is square, whether it is symmetric, and stores those properties, as well as a copy of the matrix, its transpose, and the dimensions of its transpose all in a list. It will be useful in answering the questions throughout. get_properties <- function(A){...

6722 sym