Publications by David Moore
Assignment 9
Portion of Employees who left by Department chisq.test(hr1$Department, hr1$Employee_Status) ## ## Pearson's Chi-squared test ## ## data: hr1$Department and hr1$Employee_Status ## X-squared = 86.825, df = 9, p-value = 7.042e-15 Interpreting the results in technical term: Since the p-value is below 0.05 we can indicate that there is a relati...
2396 sym
Assignment 8
T-test: Monthly hours - Empolyee Status t.test(hr1$average_montly_hours ~ hr1$Employee_Status) ## ## 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 #...
2192 sym
Assignment 7: Correlation
Perform a correlation with HR data set: Satisfation level and Evaluation level cor.test(hr$satisfaction_level, hr$last_evaluation) ## ## Pearson's product-moment correlation ## ## data: hr$satisfaction_level and hr$last_evaluation ## t = 12.933, df = 14997, p-value < 2.2e-16 ## alternative hypothesis: true correlation is not equal to 0 #...
1008 sym R (711 sym/4 pcs) 1 img
Assignment 6: Data Visualization - Employee
Histogram Distrbition: Employee Satisfaction plot_ly(hr, x = ~satisfaction_level, type = "histogram") %>% layout(title = "Most Employees are satisfaction level (0.60)", xaxis = list(title = "Satisfaction Level"), yaxis = list(title = "Number of Employees")) Majority of the graph leans towards the higher end of the histogram ...
1716 sym R (1145 sym/4 pcs)
Assignment 5: Joins and more
Data for Assignment 5 library(nycflights13),library(tidyverse),View(flights),View(airlines),View(weather), View(planes), View(airports) Question 1: Which airplanes fly LGA to XNA library(nycflights13) library(tidyverse) ## ── Attaching core tidyverse packages ──────────────────────── tidyverse ...
360 sym R (4214 sym/10 pcs)
Assignment 4: Data Wrangling Two Tables
Dataset 1: Customers 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 customers <- tibble( customer_id = c(1, 2, 3, 4, 5), name = c("Alice", "Bob", "Charl...
2028 sym R (6211 sym/37 pcs)
Assignment 2: Getting Started
Data Types and Variable Types #Satisfaction_level: Data Type(Numeric), Variable Type (Continous Varaibles) #Last_evaluation: Data Type(Numeric), Variable Type (continous Varaibles) #Number_projects: Data Type(Integer), Variable Type (Discrete) #Average_monthly_hours: Data Type(Integer), Variable type (Discrete) #Time_spend_company: Data Ty...
36 sym
Movies Dataset Analysis
Movies Dataset Analysis ```{r, echo=FALSE, message=FALSE, warning=FALSE} # Load necessary libraries library(dplyr) library(readr) Load the movies dataset movies <- read_csv(“https://gist.githubusercontent.com/tiangechen/b68782efa49a16edaf07dc2cdaa855ea/raw/0c794a9717f18b094eabab2cd6a6b9a226903577/movies.csv”) ```{r} movies <- movies %>% ...
938 sym