# 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