semicorCOP(cop=PSP, n=50)$minus.semicor # with large sampling variability!
set.seed(45)
semicorCOP(cop=PLACKETTcop, para=3.755, n=100000)
# The function returns: rhoN = 0.397, rhoN-=0.191, rhoN+=0.184
# Joe (2015, p. 72) shows: rhoN = 0.4 , rhoN-=0.189, rhoN+=0.189
set.seed(45)
semicorCOP(cop=PLACKETTcop, para=8.543, n=100000)
# The function returns: rhoN = 0.597, rhoN-=0.373, rhoN+=0.373
# Joe (2015, p. 72) shows: rhoN = 0.6 , rhoN-=0.371, rhoN+=0.371
Run the code above in your browser using DataLab