Deliverables

> library(readxl) > Malware <- read_excel("C:/Users/Amin Khan/Desktop/Malware.xlsx") > print(summary(Malware)) > var(Malware$`Flow Duration`) > sd(Malware$`Flow Bytes/s`) > var(Malware$`Flow Bytes/s`) > sd(Malware$`Flow Packets/s`) > var(Malware$`Flow Packets/s`) > summary(Malware$`Flow Packets/s`) > var(Malware$`Flow IAT Mean`) > sd(Malware$`Flow IAT Mean`) > y=Malware$`Flow IAT Mean` > x=Malware$`Fwd IAT Mean` > scatter.smooth(x, y, main="x ~ y") > cor(x,y) > linearMod <- lm(y~ x) # build linear regression model on full data > print(linearMod) >plot(sort(x)) > hist(sort(x)) > library(lattice) > densityplot(log(x)) >boxplot(x, main="Boxplot") >dotchart(x) abline(v = median(x), col = "magenta", lwd = 4) rug(x) boxplot(x, main="Title", xlab="Fwd IAT Mean", ylab="Flow IAT Mean") boxplot(y~x, main="Flow IAT Mean") abline(h = 12) >install.packages("car") >library(car) >install.packages("ggplot2") >library(ggplot2) >quit()