Simulate paired samples

rpaired.gld(n=30,r=0.5)

## Object of class "paired"
##              x           y
## 1  -0.03479785 -1.68927158
## 2   1.77816758  0.96814593
## 3   0.33704992  0.84990390
## 4  -0.86239677  0.31474248
## 5  -0.86327321 -1.40278430
## 6   1.21784249  1.05170365
## 7  -0.47329835  0.79023669
## 8   2.02228333  0.48640976
## 9  -0.68700943  0.48238421
## 10 -0.81594269  0.41294144
## 11  0.56788355  0.34097769
## 12 -0.18464370 -0.20228631
## 13  0.50560393  0.84430501
## 14 -0.11389267 -0.24849537
## 15 -0.17248371  0.76696504
## 16  0.94077002  0.02343792
## 17 -0.27039452 -0.35443403
## 18 -1.87267855 -0.91067261
## 19  0.64760009  1.11495433
## 20  1.11468821 -0.54607783
## 21  0.95367160  0.69906524
## 22  0.78241532  0.50637654
## 23  1.39025778 -0.04799651
## 24 -0.74955208  1.73885351
## 25  0.05830750  0.69012017
## 26 -0.59313843  0.69348784
## 27  0.60953772 -0.06962667
## 28  0.15720739 -0.44949269
## 29 -2.40333822 -1.42858087
## 30  2.37775543  0.91192331

data(lambda.table)
p<-rpaired.gld(n=30,d1=lambda.table[7,],d2=lambda.table[7,],r=0.5)
plot(p)