microsamplingDesign (version 1.0.8)

extractByRank: extract a timepoint or Scheme choice by its rank

Description

extract a timepoint or Scheme choice by its rank

Usage

extractByRank(object, rank)
# S4 method for SetOfSchemes,numeric
extractByRank(object, rank)
# S4 method for SetOfTimePoints,numeric
extractByRank(object, rank)

Arguments

object

an S4 object

rank

integer

Examples

# NOT RUN {
  object        <-  getExampleSetOfSchemes()
  pkData        <-  getPkData( getExamplePkModel() , 
   getTimePoints( object ) , getNSubjects( object ) , nSamples = 10  )
  objectRanked    <- rankObject(  object ,  pkData  ,
    data.frame(criterion = "auc" , weight = 1 , stringsAsFactors = TRUE) ) 
 extractByRank( object = objectRanked  , rank = 1 )
 extractByRank( objectRanked  , rank = 5 )
  object                             <-  getExampleSetOfTimePoints( 0 :10 ) 
  pkData                             <-  getPkData(getExamplePkModel() ,
 getTimePoints( object ) , 1 , 5 )
objectRanked                       <-  rankObject( object , pkData , nGrid = 20,
  nSamplesAvCurve = 25 )
  extractByRank( objectRanked , 1)
  extractByRank( object = objectRanked , rank = 5 )
# }