r - 我如何创建一个函数 gentimes() 来创建一个点的 nreps(w1,w2)

Question

x1,x2：两个客户到达的时间，遵循指数（0.2）

y1,y2：服务两个客户的时间遵循指数（0.25）

w1,w1：每位顾客等待服务或被服务所花费的时间（以分钟为单位）。

我想为该计算 (x1,x2),(y1,y2) 编写一个函数，然后 计算 (w1,w2) 并生成一个输出 nreps*2数组。gentimes()nreps

w1 和 w2 是否遵循 0.45 的指数？我知道如果w1=y1那时w2>y2

这是我的尝试：

    gentimes=function(nreps)
      {

        x1=rexp(nreps,0.2)
        x2=rexp(nreps,0.2)
        y1=rexp(nreps,0.25)
        y2=rexp(nreps,0.25)
        w1=rexp(nreps,0.45)
        w2=rexp(nreps,0.45)
if(w1==y1)
{
pmax(w1,y2)
}
randomw1w2=array(0,c(2,nreps))

谢谢。

Answer 1

genTimes = function(nreps){
  x  = matrix(rexp(2 * nreps, rate = 0.2), nc = 2)
  y  = matrix(rexp(2 * nreps, rate = 0.25), nc  = 2)

  w = x + y

  return(w)
}