# NOT RUN {
# 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