library(readxl)
library(ggpubr)

## Loading required package: ggplot2

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(effectsize)
library(effsize)
Team1Data <- read_excel("//apporto.com/dfs/SLU/Users/brentgallagher_slu/Desktop/Team1Data.xlsx")
ggscatter(
  Team1Data,
  x = "AfterComm",
  y = "Satisfaction",
  add = "reg.line"
)

# The relationship between AfterComm and Satisfaction is linear.
# The relationship is positive.
# There are outliers.

mean(Team1Data$AfterComm)

## [1] 75.12

sd(Team1Data$AfterComm)

## [1] 11.90644

median(Team1Data$AfterComm)

## [1] 76

# AfterComm Mean: 75.12, Median: 76, sd: 11.90

mean(Team1Data$Satisfaction)

## [1] 6.8

sd(Team1Data$Satisfaction)

## [1] 1.901621

median(Team1Data$Satisfaction)

## [1] 7

# Satisfaction Mean: 6.8, Median: 7, sd: 1.90

hist(Team1Data$AfterComm,
     breaks = 15,
     col = "skyblue",
     border = "white")

hist(Team1Data$Satisfaction,
     breaks = 15,
     col = "firebrick",
     border = "white")

# Data for AfterComm appears normally distributed.
# Data for Satisfaction appears abnormally distributed.

shapiro.test(Team1Data$AfterComm)

## 
##  Shapiro-Wilk normality test
## 
## data:  Team1Data$AfterComm
## W = 0.98466, p-value = 0.2999

shapiro.test(Team1Data$Satisfaction)

## 
##  Shapiro-Wilk normality test
## 
## data:  Team1Data$Satisfaction
## W = 0.84717, p-value = 9.333e-09

# Shapiro Test AfterComm W = 0.98, p-value = 0.30
# Shapiro Test Satisfacton w = 0.85, p-value = 9.33e-09

# Aftercomm is normally distributed p-value 0.3 > .05.
# Satisfaction is abnormally distruted p-value 9.33e-09 < .05.

cor.test(
Team1Data$AfterComm,
Team1Data$Satisfaction,
method = "spearman"
)

## Warning in cor.test.default(Team1Data$AfterComm, Team1Data$Satisfaction, :
## cannot compute exact p-value with ties

## 
##  Spearman's rank correlation rho
## 
## data:  Team1Data$AfterComm and Team1Data$Satisfaction
## S = 130127, p-value = 0.02847
## alternative hypothesis: true rho is not equal to 0
## sample estimates:
##       rho 
## 0.2191592

# Spearman's rank correlation rho
# S = 130127, p-value = 0.02847
# rho = 0.2191592
# Weak relationship.
# A Spearman correlation was conducted to test the relationship between AfterComm (Mdn: 76) and Satisfaction (Mdn: 7).
# There was not a statistically significant relationship between the two variables, p = 0.30, p = 9.333e-09.
# The relationship was weak.