Publications by Andrew Bowen
Andrew Bowen DATA607 HW #3
Homework Assignment 3: DATA607 library('dplyr') ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union library('tidyverse') ## ── Attaching packages ## ─────────�...
1195 sym R (23847 sym/21 pcs)
Andrew Bowen - DATA607 Project 1
Project 1 library('dplyr') library('glue') library('plyr') library('stringr') Reading in our table using read.delim as it is pipe-delimited. We’ll skip the comment lines (i.e., “—…”) and we’ll also need to manipulate this dataframe so each player has one associated row with all their information. github_url <- "https://raw.githubuserc...
888 sym R (50201 sym/22 pcs)
Andre Bowen DATA 607 HW4
Andrew Bowen - DATA607 HW 4 library(dplyr) library(tidyr) library(ggplot2) library(stringr) Question 1 I manually typed the dataset into a .csv file via vim which I then pushed to GitHub. I kept the formatting of the table to reflect the ‘wide’ structure it was presented in. Reading into our R dataframe from the remote repo. data_url <- "htt...
1035 sym R (4384 sym/19 pcs) 3 img
Andrew Bowen Data 607 Project 2
Dataset 1: Gross Domestic Product (GDP) library(tidyverse) library(dplyr) library(ggplot2) gdp_data_url <- "https://raw.githubusercontent.com/andrewbowen19/cunyDATA607/main/data/gdp-wide-data.csv" gdp <- read.csv(gdp_data_url, header=TRUE, skip=5) head(gdp) ## Line X Q1 Q2 Q3 Q4 ## 1 1 ...
1588 sym R (84928 sym/32 pcs) 5 img
Data 607 HW #5
TODO: - [x] Ensure file paths are github urls - [x] HTML and XML read-in - Publish to Rpubs Using a few libraries to parse the various data formats library(rvest) library(XML) library(xml2) library(rjson) library(dplyr) library(tidyr) First, let’s lay out where we’re json_url <- "https://raw.githubusercontent.com/andrewbowen19/cunyDATA607/mai...
933 sym R (2654 sym/11 pcs)
Andrew Bowen DATA 607 HW6: Working With Web APIs
Andrew Bowen Data 607 HW 6 Using data from the NY Times public api to read JSON data into an R dataframe. library(httr) library(dplyr) library(glue) library(jsonlite) library(ggplot2) library(tidyr) First we’ll need to defin our API endpoint (URL). I chose the NT Times Books API, which provides data on NY Times bestseller lists. I am setting my...
703 sym R (15463 sym/7 pcs) 1 img
Andrew Bowen Data 607 HW 7
Using the sample code from Chapter 2 of Text Mining with R library(tidytext) library(tidyr) library(janeaustenr) library(dplyr) library(stringr) library(ggplot2) library(wordcloud) library(reshape2) library(glue) get_sentiments("afinn") ## # A tibble: 2,477 × 2 ## word value ## <chr> <dbl> ## 1 abandon -2 ## 2 abandoned ...
1854 sym R (8528 sym/48 pcs) 9 img
DATA 606 Lab 8: Simple Regression
The Human Freedom Index is a report that attempts to summarize the idea of “freedom” through a bunch of different variables for many countries around the globe. It serves as a rough objective measure for the relationships between the different types of freedom - whether it’s political, religious, economical or personal freedom - and other s...
13729 sym 7 img
DATA 607 Project 4
library(stringr) library(tensorflow) library(tfdatasets) library(keras) library(glue) library(ff) # Call this if you need tensorflow installed # install_tensorflow() I’d like to try some text classification using the tensorflow package in R. I’m leaning on this tutorial page to get some of the basics, as I’ve only used tensorflow in python...
856 sym R (6333 sym/25 pcs)
Andrew Bowen Data 606 Lab 9
Grading the professor Many college courses conclude by giving students the opportunity to evaluate the course and the instructor anonymously. However, the use of these student evaluations as an indicator of course quality and teaching effectiveness is often criticized because these measures may reflect the influence of non-teaching related charac...
9166 sym 6 img