程序代写代做代考 —

—
title: “R Notebook”
output:
html_document: default
html_notebook: default
word_document: default
—

“`{r}

x = read.csv(“interArrivalDistribution.txt”, header = FALSE)
hist(x[, 1], main = “Histogram of inter-arrivial time”, xlab = “Inter-arrival time”)
“`
“`{r}
mean(x[, 1])
“`
“`{r}
var(x[, 1])
“`

“`{r}
x = read.csv(“serviceTimeDistribution.txt”, header = FALSE)
hist(x[, 1], main = “Histogram of service time”, xlab = “Service time”)
“`
“`{r}
mean(x[, 1])
“`
“`{r}
var(x[,1])
“`

“`{r}
res = read.csv(“responseTime.txt”, header = FALSE)
tc = seq(0:100)
plot(tc, res[, 1], type=”l”, xlab = “Tc”, ylab = “Response Time”, main = “Plot of Response time with different Tc”)
abline(v = 10, col = ‘red’)
“`