# conventional "Bebie" rank TD curve
td <- tdval( vf91016right[15,] )
tdr <- tdrank( td )
bebie( tdr )
#
# "ghrank" type of "Bebie" rank TD curve
td <- tdval( vf91016right[15,] )
tdr <- tdrank( td )
#################################################ghr <- ghranktd( td )
#################################################bebie( ghr, type = "ghrank" )Run the code above in your browser using DataLab