VKSgraphic {CVD}

Graphical score for the D-15 tests

Description

VKSgraphic computes a graphical score based on the Vingrys and King-Smith method (VKS) for the D-15 test or similar tests. VKSvariantGraphic shows the angles with double their value, for a continuous display of the confusion axis.

Usage

VKSgraphic(VKSdata, xLimit=5, yLimit=4, VKStitle='', VKSxlabel='',
VKSylabel='')

Arguments

VKSdata

data.frame with color vision deficiency name, VKS angle and VKS index

xLimit

X-axis boundaries

yLimit

Y-axis boundaries

VKStitle

title for the plot

VKSxlabel

text for the x label

VKSylabel

text for the y label

Value

none

Author(s)

Jose Gama

Source

VKSvariantGraphic - original idea by David Bimler Atchison DA, Bowman KJ, Vingrys AJ Quantitave scoring methods for D15 panel tests in the diagnosis of congenital colour-vision deficiencies. Optometry and Vision Science 1991, 68:41-48.

References

Atchison DA, Bowman KJ, Vingrys AJ Quantitave scoring methods for D15 panel tests in the diagnosis of congenital colour-vision deficiencies. Optometry and Vision Science 1991, 68:41-48.

Examples

# Creating similar graphics to "A Quantitative Scoring Technique For Panel 
#Tests of Color Vision" Algis J. Vingrys and P. Ewen King-Smith
## Not run: 
VKSdata<-VKStable2[,c(1,3:5)]
VKSdata[1,1]<-'Normal no error'
VKSdata[2:9,1]<-'Normal'
VKSdata[10:13,1]<-'Acquired CVD'
# the graphics are similar but not identical because the data used in the 
#plots is the average of the values instead of all the values
VKSgraphic(VKSdata[,1:3],5,4,'D-15 angle vs C-index (Average)','Angle',
'C-index') # Fig. 6
VKSgraphic(VKSdata[,c(1,2,4)],5,4,'D-15 angle vs S-index (Average)','Angle',
'S-index') # Fig. 7

## End(Not run)