Learn R Programming

visualFields (version 0.6.2)

bebie: Bebie curve

Description

Plots Bebie rank TD curve

Usage

bebie( tdr, type = "conventional", diff = TRUE, percentiles = TRUE,
       correction = TRUE, txtfont = "serif", pointsize = 12, cex = 1 )

Arguments

tdr

a vf object with the rank TD curve

type

whether to use a conventional way to plot the rank TD curve or ghrank type where the vf object passed is the reconstructed within-normal TD rank curve. Default is conventional

diff

add absolute td values or differences from mean normal. Default is TRUE

percentiles

add percentile lines. Default is TRUE

correction

add ranked TD line after correcting for general height difference. Default is TRUE

txtfont

font of the text with visual-sensitivity values. Default is serif

pointsize

size of the text with visual-sensitivity values. Default is 12

cex

a numerical value giving the amount by which plotting text and symbols should be magnified relative to the default, which is 1

Value

returns a graph with the Bebie rank TD curve (also known as the cumulative defect curve [1]) if the option diff is set to FALSE. If the option diff is set to true, then it returns the difference between the subject's rank curve and the mean normal curve. To use this option (and the options with percentile = TRUE), the tables nvtdrank, perctdrank, and perctdrankadj must exist in the nv-object, for the perimeter tperimetry, the pattern of locations talgorithm, and thepresentation algorithm tpattern. See nvsapdefault to see the structure the tables must have

References

[1] H. Bebie, J. Flammer, and T. Bebie. The cumulative defect curve: separation of local and diffuse components of visual field damage. Graefe's Archive Clinical Experimental Ophthalmology, 227, 1989

Examples

Run this code
# 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