Publications by Kaley Morgenstern
Assignment 9
R Markdown library(readr) library(plotly) library(dplyr) library(ggplot2) hr <- read_csv('https://raw.githubusercontent.com/aiplanethub/Datasets/refs/heads/master/HR_comma_sep.csv') 1. Department vs. Attrition chisq.test(hr$Department , hr$left) ## ## Pearson's Chi-squared test ## ## data: hr$Department and hr$left ## X-squared = 86.825, df ...
1809 sym R (3650 sym/17 pcs)
Assignment 8
library(readr) library(plotly) library(dplyr) hr <- read_csv('https://raw.githubusercontent.com/aiplanethub/Datasets/refs/heads/master/HR_comma_sep.csv') 1. Perform the t-test (.5 point) Choose any two appropriate variables from the data and perform the t-test, displaying the results. t.test(hr$satisfaction_level ~ hr$left) ## ## Welch Two Samp...
1059 sym R (3847 sym/17 pcs)
assignment 7
R Markdown library(readr) library(ggplot2) hr <- read_csv('https://raw.githubusercontent.com/aiplanethub/Datasets/refs/heads/master/HR_comma_sep.csv') ## Rows: 14999 Columns: 10 ## ── Column specification ──────────────────────────────────────────────�...
2582 sym R (4863 sym/26 pcs) 4 img
Assignment 6
library(readr) library(plotly) ## Loading required package: ggplot2 ## ## Attaching package: 'plotly' ## The following object is masked from 'package:ggplot2': ## ## last_plot ## The following object is masked from 'package:stats': ## ## filter ## The following object is masked from 'package:graphics': ## ## layout library(dplyr) #...
1030 sym R (2901 sym/23 pcs)
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 �...
432 sym R (2183 sym/10 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", ...
3439 sym R (4951 sym/47 pcs)
Assignment 3
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(readr) ### Load the movies dataset movies <- read_csv("https://gist.githubusercontent.com/tiangechen/b68782...
1374 sym R (8205 sym/25 pcs)
Assignment 2 - Data 3210
Question 1 library(readr) HR_comma_sep <- read_csv("~/Downloads/HR_comma_sep.csv") ## Rows: 14999 Columns: 10 ## ── Column specification ──────────────────────────────────────────────────────── ## Delimiter: "," ## chr (2): Department...
474 sym R (477 sym/2 pcs)