powered by
rpaired.gld(n, d1=c(0.000,0.1974,0.1349,0.1349), d2=c(0.000,0.1974,0.1349,0.1349), r)
rpaired.gld(n=30,r=0.5) data(lambda.table) p<-rpaired.gld(n=30,d1=lambda.table[7,],d2=lambda.table[7,],r=0.5) plot(p)
Run the code above in your browser using DataLab