程序代写代做代考 R Notebook

R Notebook

R Notebook
x = read.csv(“interArrivalDistribution.txt”)
hist(x[, 1], main = “Histogram of inter-arrivial time”, xlab = “Inter-arrival time”)

mean(x[, 1])
## [1] 0.5047331
var(x[, 1])
## [1] 0.2616264
x = read.csv(“serviceTimeDistribution.txt”)
hist(x[, 1], main = “Histogram of service time”, xlab = “Service time”)

mean(x[, 1])
## [1] 1.50211
var(x[,1])
## [1] 0.7652041