Cat 5 July 22

tasking <- read.csv("C:/Users/Rinor/Downloads/sgt/july22/tasking5.csv")
taskingTS <- ts(tasking$Average.taskingPerformance, frequency=1, start=c(0,1))

elset <- read.csv("C:/Users/Rinor/Downloads/sgt/july22/elset5.csv")
elsetTS <- ts(elset$Average.elsetAge, frequency=1, start=c(0,1))

rcs <- read.csv("C:/Users/Rinor/Downloads/sgt/july22/rcs5.csv")
rcsTS <- ts(rcs$Average.rcs, frequency=1, start=c(0,1))

rrc <- read.csv("C:/Users/Rinor/Downloads/sgt/july22/rrc5.csv")
rrcTS <- ts(rrc$rrc, frequency=1, start=c(0,1))

Outlier Detection Tasking Performance Category 5

library(tsoutliers)
outliers <- tso(taskingTS)
plot(outliers)

Arima of Tasking Priority 5

library(forecast)
library(timeDate)
fit <- auto.arima(taskingTS)
plot(forecast(fit, 14), ylab="Tasking Performance 14 Day Prediction", xlab="Day")

Arima of Adjusted Graph (Outliers Taken Out)

fit <- auto.arima(outliers$yadj)
plot(forecast(fit, 14), ylab="Tasking Performance 14 Day Prediction", xlab="Day")

Correlation of Tasking Performance Priority 5 vs RCS

cor(taskingTS, rcsTS)
## [1] 0.109426
library(clusterSim)
z1 <- data.Normalization(tasking$Average.taskingPerformance,type="n1",normalization="column")
z2 <- data.Normalization(rcs$Average.rcs,type="n1",normalization="column")
timeSeries1 <- ts(z1, frequency=1, start=c(0,1))
timeSeries2 <- ts(z2, frequency=1, start=c(0,1))
ts.plot(timeSeries1, timeSeries2, col=1:2, main="Tasking Perfomance Priority 5 (Black) vs RCS (Red)", xlab="Day", ylab="# of Std Dev from the Mean")

x <- unlist(tasking$Average.taskingPerformance)
y <- unlist(rcs$Average.rcs)
plot(x,y, pch = 16, cex = 1.3, col = "blue", main="Tasking Performance Priority 5 vs RCS",xlab="task", ylab="rrc")
abline(lm(y~x), col="red")

Correlation of Tasking Performance Priority 5 vs RRC

cor(taskingTS, rrcTS)
## [1] -0.4562417
library(clusterSim)
z1 <- data.Normalization(tasking$Average.taskingPerformance,type="n1",normalization="column")
z2 <- data.Normalization(rrc$rrc,type="n1",normalization="column")
timeSeries1 <- ts(z1, frequency=1, start=c(0,1))
timeSeries2 <- ts(z2, frequency=1, start=c(0,1))
ts.plot(timeSeries1, timeSeries2, col=1:2, main="Tasking Perfomance Priority 5 (Black) vs RRC (Red)", xlab="Day", ylab="# of Std Dev from the Mean")

x <- unlist(tasking$Average.taskingPerformance)
y <- unlist(rrc$rrc)
plot(x,y, pch = 16, cex = 1.3, col = "blue", main="Tasking Performance Priority 5 vs RRC",xlab="task", ylab="rrc")
abline(lm(y~x), col="red")

Correlation of Tasking Performance Priority 5 vs Elset

cor(taskingTS, elsetTS)
## [1] -0.1005427
library(clusterSim)
z1 <- data.Normalization(tasking$Average.taskingPerformance,type="n1",normalization="column")
z2 <- data.Normalization(elset$Average.elsetAge,type="n1",normalization="column")
timeSeries1 <- ts(z1, frequency=1, start=c(0,1))
timeSeries2 <- ts(z2, frequency=1, start=c(0,1))
ts.plot(timeSeries1, timeSeries2, col=1:2, main="Tasking Perfomance Priority 5 (Black) vs Elset (Red)", xlab="Day", ylab="# of Std Dev from the Mean")

x <- unlist(tasking$Average.taskingPerformance)
y <- unlist(elset$Average.elsetAge)
plot(x,y, pch = 16, cex = 1.3, col = "blue", main="Tasking Performance Priority 5 vs Elset",xlab="task", ylab="rrc")
abline(lm(y~x), col="red")

Corr Plot 5

library(corrplot)
cat5 <- read.csv("C:/Users/Rinor/Downloads/sgt/july22/corr5.csv")
M <- cor(cat5)
corrplot(M, method="number", type="lower")