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()