Publications by Katie Quinn ’ Lauren Cunneen
MiniProject
pacman::p_load(jsonlite,httr) library(dplyr) library(httr) library(jsonlite) library(dplyr) library(httr) data("cars") cars Question 1. median(cars$speed) [1] 15 on_time_preformance <- read.csv("On_Time_Performance.csv") on_time_preformance Question 2. dim(on_time_preformance) [1] 570131 110 nrow(on_time_preformance) [1] 570131 ncol(on_time...
2343 sym R (1464 sym/17 pcs)
Assignmet_6
library(dplyr) library(ggplot2) Question 1. pacman::p_load(nycflights13) View(flights) # this View() function opens lets you directly view the whole dataset glimpse(flights) # this glimpse() function provides a quick overview of the dataset Rows: 336,776 Columns: 19 $ year <int> 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 2013, 201...
4709 sym R (8234 sym/28 pcs) 1 img
Assignment 5
library(Hmisc) Registered S3 method overwritten by 'htmlwidgets': method from print.htmlwidget tools:rstudio Registered S3 method overwritten by 'data.table': method from print.data.table Attaching package: ‘Hmisc’ The following objects are masked from ‘package:base’: format.pval, units libra...
5671 sym R (7742 sym/35 pcs)
Assignment4
library(robotstxt) library(rvest) library(stringr) bike <- read.csv("bike_sharing_data.csv") str(bike) 'data.frame': 17379 obs. of 13 variables: $ datetime : chr "1/1/2011 0:00" "1/1/2011 1:00" "1/1/2011 2:00" "1/1/2011 3:00" ... $ season : int 1 1 1 1 1 1 1 1 1 1 ... $ holiday : int 0 0 0 0 0 0 0 0 0 0 ... $ workingday: int 0 0 ...
1881 sym R (4656 sym/31 pcs)
Assignment2
Extra Data From API’s Katie Quinn library("wbstats") meta <- wb_cache() names(meta) ## [1] "countries" "indicators" "sources" "topics" ## [5] "regions" "income_levels" "lending_types" "languages" meta$topics library(quantmod) ## Loading required package: xts ## Loading required package: zoo ## ## Attaching package: 'z...
174 sym R (3881 sym/42 pcs)
BIAssigment1_KatieQuinn
Question 4 bike4 <- read.delim("bike_sharing_data.txt") bike3 <- read.csv("bike_sharing_data.csv") bike2 <- read.table("bike_sharing_data.txt", sep="\t", header=TRUE) bike1 <- read.table("bike_sharing_data.csv", sep=",", header=TRUE) Question 6 str(bike1) ## 'data.frame': 17379 obs. of 13 variables: ## $ datetime : chr "1/1/2011 0:00" "1/1...
83 sym
Assignment_8
1. ## ## Welch Two Sample t-test ## ## data: hr1$average_montly_hours by hr1$Employee_Status ## t = 7.5323, df = 4875.1, p-value = 5.907e-14 ## alternative hypothesis: true difference in means between group Left and group Stayed is not equal to 0 ## 95 percent confidence interval: ## 6.183384 10.534631 ## sample estimates: ## mean in group ...
1736 sym
Assignment 7
library(readr) library(ggplot2) hr1 <- read_csv('https://raw.githubusercontent.com/aiplanethub/Datasets/refs/heads/master/HR_comma_sep.csv') ## Rows: 14999 Columns: 10 ## ── Column specification ──────────────────────────────────────────────────�...
2103 sym R (3360 sym/19 pcs) 4 img
Assignment_5
library(nycflights13) library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ── ## ✔ dplyr 1.1.4 ✔ readr 2.1.5 ## ✔ forcats 1.0.0 ✔ stringr 1.5.1 ## ✔ ggplot2 3.5.1 ✔ tibble 3.2.1 ## ✔ lubridate 1.9.3 �...
457 sym R (2697 sym/11 pcs)
Assignment_4
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 # Dataset 1: Customers customers <- tibble( customer_id = c(1, 2, 3, 4, 5), name = c("Alice", "Bob", "Charlie", ...
3736 sym R (5017 sym/32 pcs)