Publications by Jonathan Burns
Data 607 Project 3 Part 1
Description: Create a short document, with the names of group members. You should briefly describe your collaboration tool(s) you'll use as a group, including for communication, code sharing, and project documentation. You should have identified your data sources, where the data can be found, and how to load it. And you should have created at l...
7599 sym 1 img
Week 7 Assignment
##Rpubs Source code: HTML - https://github.com/jonburns2454/DATA607/blob/main/Book%20List.html XML - https://github.com/jonburns2454/DATA607/blob/main/Book%20list.xml JSON - https://github.com/jonburns2454/DATA607/blob/main/Book%20list.JSON ##Packages Used library(tidyverse) ## ── Attaching core tidyverse packages ──────────...
449 sym R (2303 sym/23 pcs)
Updated Project 1
library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.2 ✔ readr 2.1.4 ## ✔ forcats 1.0.0 ✔ stringr 1.5.0 ## ✔ ggplot2 3.4.3 ✔ tibble 3.2.1 ## ✔ lubridate 1.9.3 ✔ tidyr 1.3.0...
192 sym R (6567 sym/24 pcs) 1 tbl
Week.5.assignment
library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.2 ✔ readr 2.1.4 ## ✔ forcats 1.0.0 ✔ stringr 1.5.0 ## ✔ ggplot2 3.4.3 ✔ tibble 3.2.1 ## ✔ lubridate 1.9.3 ✔ tidyr 1.3.0...
1550 sym R (2596 sym/11 pcs) 2 img
DATA 607 Project 1. JB
packages used library(tidyverse) library(stringr) library(readr) import raw data from github and parse it out. This set of code gets rid of most of the data I dont need. Keeping only Total PTS, Round 1-7, the state, the name and the pre-tournament rating. The Pre and Post are still joined I will need to figure that out. my_data_raw <- read.csv...
432 sym R (9458 sym/14 pcs)
607.Week.3.JB
library(readr) library(tidyverse) library(stringr) Question 1 code provide code that identifies the majors that contain either “DATA” or “STATISTICS” college_majors_df <- read.csv("https://raw.githubusercontent.com/fivethirtyeight/data/master/college-majors/all-ages.csv") college_majors_df[str_detect(college_majors_df$Major, "DATA")|str_...
1152 sym R (2791 sym/17 pcs)
607.Assignment1.JB
PACKAGES USED library(tidyverse) library(openintro) library("dplyr") library(grid) library(pander) LOADING DATASET FROM GITHUB urlfile="https://raw.githubusercontent.com/jonburns2454/DATA607/main/data_aging_congress.csv" usCongressAges<-read_csv(url(urlfile)) usCongressAges <- as.tibble(usCongressAges) OVERVIEW: [Congress Today Is Older Than...
1902 sym R (3008 sym/9 pcs) 1 img
Document
Question 1 Income.Inequality.US <- read.csv("https://vincentarelbundock.github.io/Rdatasets/csv/Ecdat/incomeInequality.csv") head(Income.Inequality.US) ## X Year Number.thousands quintile1 quintile2 median quintile3 quintile4 ## 1 35 1947 37237 14243 22984 26764.14 31166 44223 ## 2 36 1948 38624 13...
245 sym R (15705 sym/41 pcs) 8 img
HW.2 ~ Jonathan Burns
#Question 1 MacroData <- read.csv("https://vincentarelbundock.github.io/Rdatasets/csv/AER/USMacroSW.csv") dfMacroData <- MacroData summary(dfMacroData) ## X unemp cpi ffrate ## Min. : 1 Min. : 3.400 Min. : 27.78 Min. : 0.930 ## 1st Qu.: 49 1st Qu.: 5.000 1st Qu.: 35.87 ...
358 sym
HW.1 -Jonathan Burns
#Question 1 x <- 1 for (i in c(2:12)) { x <- x*i } print(x) ## [1] 479001600 #Question 2 nVector <- seq(20,50,5) print(nVector) ## [1] 20 25 30 35 40 45 50 #Question 3 quadratic <- function(a,b,c){ if(quad(a, b, c) > 0) { x1 = (-b+sqrt(quad(a,b,c)))/(2*a) x2 = (-b-sqrt(quad(a,b,c)))/(2*a) quadratic = c(x1,x2) print(pa...
9 sym