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

Question

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

y1,y2：按照指数(0.25(为两个客户提供服务的时间

w1,w1：每个客户等待服务或被服务的时间，以分钟为单位。

我想为nreps写一个函数gentimes()，它计算(x1，x2(，(y1，y2(，然后计算(w1，w2(并产生输出nreps*2阵列。

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